我有我寫的這個宏:
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。
但當我嘗試單獨執行它時,它確實有效。那我哪裡可能錯了呢?
謝謝。