复制和粘贴来自不同工作表的数据

Question

我正在尝试使用VB脚本将excel sheet1中的数据复制到sheet2。 问题是我想粘贴从A1开始的复制数据，并将A1中的当前数据推到新数据的底部。 到目前为止，我的代码仅涉及权利，请看以下内容：

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Open(CurrentDirectory & "\test.xlsx")
objWorkbook.Worksheets("Sheet1").Range("A1:B9").Copy
objWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
objExcel.ActiveWorkbook.Save
objExcel.Quit

Answer 1

尝试这个：

objWorkbook.Worksheets("Sheet1").Range("A1:B9").Copy
objWorkbook.Worksheets("Sheet2").Range("A1").Insert -4121