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

【问题标题】：Excel VBScript Copy and Paste cell values to end of another listExcel VBScript 将单元格值复制并粘贴到另一个列表的末尾
【发布时间】：2015-06-15 00:34:46
【问题描述】：

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

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

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

谢谢

【问题讨论】：

标签： excel vbscript

【解决方案1】：

只需更改 Range("A2") 即可引用最后一行。

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

查看reference last row的其他方式。

【讨论】：