Excel 在工作簿之间复制粘贴

我想将一个表从一个Workbook1逐行复制粘贴到Workbook2（每隔一段时间）。 在Workbook2中，复制的每一行都有自己的工作表，下一次复制粘贴将在下一个空行上。 （在我附上的图片中，奥迪一行将有自己的表格，其中每个更新都将进入下一个空行，其他行也一样），下面是我仅为一行表格尝试的代码，但它不起作用：

Sub Updateeee()
Application.OnTime Now + TimeValue("00:00:15"), "lalala"
End Sub

Sub lalala()
Workbooks("Workbook1.xls").Worksheets("Sheet1").Range("B2:R2").Copy
ActiveCellRow.Offset(1, 0).Activate
Workbooks("Workbook2.xls").Worksheets("Sheet1").Range("B2").Paste
Call Updateeee
End Sub

---

你可以试试这样的东西

Workbooks("Name.xlsx").Worksheets(1).Range(Cells(6, 8), Cells(6, 9)).Copy Destination:=ThisWorkbook.Worksheets(2).Range(Cells(6, 8), Cells(6, 9))

或者像这样的

Dim wbSour As Workbook
Dim wbDest As Workbook

'Open WB's
Set wbSour = Workbooks.Open("wbSource.xls")
Set wbDest = Workbooks.Open("wbDestination.xls")

'Copy from one to the other
wbDest.Sheets("sheet1").Range("A1").Value = wbSour.Sheets("sheet2").Range("A1") 

'Close Source file:
wbSour .Close

---

要查找下一个空行，请执行以下操作：

 rowCount =  wbDest.Sheets("Data").rows.count
 NextEmptyRow = wbDest.Sheets("Data").Range("A" & rows.count).End(xlUp).Row + 1

要粘贴，您可以使用@Moosli提供的解决方案，或者在中给出了许多示例，包括此处给出的解决方案，因此您可以使用适合您需要的解决方案

---

希望有帮助。

有效吗？你的问题是什么？嗨@JacobH，它不起作用，我刚刚编辑了这个问题，谢谢！你好，艾米，请考虑一下链接。它有多种解决方案。谢谢@StillNestling，我要去看看@StillNestling我尝试了前两个代码，但它没有复制，我也仔细检查了它们……在“wbSour”和“.Sheets”之间有一些空格。”（类似地）应该删除。