excel - 复制粘贴生成错误 : Subscript out of range

Question

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

Subscript out of range

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

'...
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)