Vba 将整行从1个文件复制到另一个Visual Basic Excel

我正在创建一个宏，它需要将行从workbook1复制到workbook2

workbook1有一个标题，因此我们将从第2行及其后复制。 workbook2中已经有50000行，因此我们必须将其粘贴到最后一行的末尾

工作簿1和工作簿2具有相同的标题和格式，因此基本上我只需要复制整行

提前谢谢

你可以试试这个

Sub CopyData()
Dim wk1, wk2 As Workbook
Dim row1, row2 As Integer
Dim path1, path2 As String

'turn off screen updating
Application.ScreenUpdating = False

'' path of 2 file
path1 = "D:\NSO\Tool\test\1.xlsx"
path2 = "D:\NSO\Tool\test\2.xlsx"

''open 2 workbook
Set wk1 = Workbooks.Open(path1)
Set wk2 = Workbooks.Open(path2)

'Get last row of workbook1 and workbook2
row1 = wk1.Sheets(1).Cells(wk1.Sheets(1).Rows.Count, 1).End(xlUp).Row
row2 = wk2.Sheets(1).Cells(wk2.Sheets(1).Rows.Count, 1).End(xlUp).Row + 1

'' copy from workbook1 to workbook2
wk1.Sheets(1).Rows("2:" & row1).Copy Destination:=wk2.Sheets(1).Cells(row2, 1)

'' close and save workbook
wk1.Close
wk2.Close (True)

'turn on screen updating
Application.ScreenUpdating = True

---

End Sub

您好，您能告诉我们到目前为止您尝试了什么吗？我是VB新手，所以这只是我能做的，我不知道如何将intRowN=2的IF条件放入工作表newentries.UsedRange.Rows.Count工作簿（“file1.xls”）。激活行（intRowN）.EntireRow.Copy工作簿（“file2.xls”）。如果行为空，则激活文件1中的粘贴值如果下一个我使用了该值，并且我收到应用程序定义或对象定义的错误，则结束。代码`

Sub-CopyData（）

获取工作簿1和工作簿2的最后一行

intRowN=Existing.Sheets（1）.Cells（Existing.Sheets（1）.Rows.Count，1）.End（xlUp）.row+1``从工作簿1复制到工作簿2` Existing.Sheets（1）.Rows（2:'&intRowN）.Copy Destination:=NewEntries.Sheets（1）.Cells（intRowE，1）在重新启动我的宏后，它现在可以工作了。但不幸的是，它删除了工作簿2中的现有条目。在第

intRowE=NewEntries.Sheets（1）、Cells（NewEntries.Sheets（1）、Rows.Count、1）、End（xlUp）、Row+1行调试，以查看它是否得到正确的最后一行。也许你可以使用其他列来查找最后一行，顺便说一句，在你的代码中，它会将数据从现有条目复制到新条目，这与你的想法相同吗？