Excel VBScript复制并粘贴单元格值到另一个列表的末尾

我有一个表单元值，并希望将它们复制到另一个工作表上的范围。 下面的脚本适用于复制和粘贴部分，但我希望每次将信息粘贴到列表的末尾，而不是覆盖已经存在的信息。

Set excel = CreateObject("Excel.Application") Set info = excel.Workbooks.Open("C:\Users\jcampos\Google Drive\Standings Excel\Standings.xlsm") info.Worksheets("XML").Range("DATA").Copy info.Worksheets("Gameday Info").Range("A2").PasteSpecial -4163 info.save info.Application.Quit 

有没有办法使它附加到列表的底部，而不是覆盖信息？

谢谢

Answer 1

只需将Range（“A2”）更改为引用最后一行。

 lastrow = info.Worksheets("Gameday Info").UsedRange.Rows.Count + 1 info.Worksheets("Gameday Info").Range("A" & lastrow).PasteSpecial -4163 

请参阅其他方式来引用最后一行 。