Excel VBScript将单元格值复制并粘贴到另一个列表的末尾
我有一个包含单元格值的表,希望将它们复制到另一个工作表上的某个区域。下面的脚本用于复制和粘贴部分,但我希望每次都将信息粘贴到列表的末尾,而不是覆盖已经存在的信息Excel VBScript将单元格值复制并粘贴到另一个列表的末尾,excel,vbscript,Excel,Vbscript,我有一个包含单元格值的表,希望将它们复制到另一个工作表上的某个区域。下面的脚本用于复制和粘贴部分,但我希望每次都将信息粘贴到列表的末尾,而不是覆盖已经存在的信息 Set excel = CreateObject("Excel.Application") Set info = excel.Workbooks.Open("C:\Users\jcampos\Google Drive\Standings Excel\Standings.xlsm") info.Worksheets("XML").Ran
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
有没有办法让它附加到列表的底部,而不是覆盖信息
谢谢,只需将范围(“A2”)更改为参考最后一行即可
lastrow = info.Worksheets("Gameday Info").UsedRange.Rows.Count + 1
info.Worksheets("Gameday Info").Range("A" & lastrow).PasteSpecial -4163
看看其他的方法