vba - 从不同的工作表复制和粘贴数据

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