运行时错误 1004 应用程序定义或对象定义错误

运行时错误 1004 应用程序定义或对象定义错误

我有这个我写的宏:

Dim lastColumn As Long
lastColumns = wkbWorkbook2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'this is the highlighted part in debug

SourceRange.Copy
wkbWorkbook2.Worksheets(2).Cells(1, lastColumns + 1).PasteSpecial Paste:=xlPasteValues,       Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False

本来上面的代码是一个更大的代码的一部分。但是当我执行它时,它给出了运行时错误 1004。

但当我尝试单独执行它时,它确实有效。那么我错在哪里呢?

谢谢。

相关内容