Dim lastC As Long
lastC = wb2.Worksheets(2).Cells(1, Columns.Count).End(xlToLeft).Column 'highlighted in debug
SourceRange.Copy
wb2.Worksheets(2).Cells(1, lastC + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Выше код, который у меня есть, это часть большего макроса. Когда я запускаю его, он дает мне ошибку времени выполнения 1004, определенную приложением или ошибкой, определенной объектом.
Как часть большего кода, он не работает, но когда я попытался отделить его и запустить, он работает нормально.
Я работаю с несколькими книгами и рабочими листами. У меня есть этот один файл .xlsm
который объединяет 4 других файла .xls
в один.
Благодарю.