ActiveSheet.PasteSpecial Paste: = xlPasteValues ​​не работает

Question

Я хочу создать макрос, который копирует некоторые данные с другого листа и вставляет их (со специальным значением вставки) в последнюю строку моего диапазона (из столбца I) моего активного листа (Sheet1). Однако, когда я пытаюсь выполнить свой макрос, последняя строка моего макроса не читается должным образом, и он возвращает сообщение об ошибке «ошибка времени выполнения 1004: ошибка приложения или объекта» Если кто-то может помочь мне решить эту проблему, это было бы супер. Большое спасибо. Xavier

Пожалуйста, найдите мой код VBA ниже:

Sub insertfinalrow()
Worksheets("instructions macros").Activate
Range("N18:S18").Copy
Worksheets("Sheet1").Activate
Range("I" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.PasteSpecial Paste:=xlPasteValues 
End Sub

Answer 1

Попробуйте и прочитайте , как избежать выбора и активации .

Worksheets("instructions macros").Range("N18:S18").Copy
Worksheets("Sheet1").Range("I" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Вы можете вообще избежать копирования и вставки (при вставке значений), что несколько более эффективно, хотя вряд ли будет заметно в вашем случае.

With Worksheets(1).Range("N18:S18")
    Worksheets("Sheet1").Range("I" & Rows.Count).End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value
End With