复制粘贴生成错误：下标超出范围

Question

我有代码来复制/粘贴返回的数据

下标超出范围

此代码适用于具有不同参数的另一个工作簿。

'...
wb.Worksheets("Sheet1").Range("A2:P" & lastRowCopy).Copy
activeWB.Worksheets("Sheet1").Range("A" & lastRowPaste).PasteSpecial xlPasteValues 'line where it breaks 'edited
wb.Close SaveChanges:=False

它打开一个工作簿“wb”，复制正确的值（lastRowCopy 和 lastRowPaste 是正确的）并且无法粘贴它，而 activeWB 也设置正确，因为它之前在代码中使用过。

Answer 1

而不是：

Range("A1" & lastRowPaste)

用：

Range("A" & lastRowPaste)

Answer 2

我实际上使用了“sheet1”，因为它是已重命名的工作表的“真正”名称。

activeWB.Worksheets("Sheet1")...

将其更改为“可变”工作表名称有效。

所以如果我再次更改选项卡的名称，我的脚本将不起作用？

还是很感谢你。