Excel VBScript將單元格值複製並粘貼到另一個列表的末尾

Question

我有一個單元格值的表格，並希望將它們複製到另一個工作表上的範圍。下面的腳本適用於複製和粘貼部分，但我希望每次將信息粘貼到列表的末尾，而不是覆蓋已經存在的信息。

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

只需將範圍（「A2」）更改爲引用最後一行。

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

請參閱其他方式reference last row。