![運行時錯誤 1004 應用程式定義或物件定義錯誤](https://rvso.com/image/1419581/%E9%81%8B%E8%A1%8C%E6%99%82%E9%8C%AF%E8%AA%A4%201004%20%E6%87%89%E7%94%A8%E7%A8%8B%E5%BC%8F%E5%AE%9A%E7%BE%A9%E6%88%96%E7%89%A9%E4%BB%B6%E5%AE%9A%E7%BE%A9%E9%8C%AF%E8%AA%A4.png)
我有我寫的這個宏:
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。
但當我嘗試單獨執行它時,它確實有效。那我哪裡可能錯了呢?
謝謝。