ActiveSheet.PasteSpecial 粘贴：=xlPasteValues 无效

Question

我想创建一个宏，它从另一个 sheet 复制一些数据并将它们（使用粘贴特殊值）粘贴到我的活动范围的最后一行（从第一列开始）sheet（工作表 1）。然而，当我尝试执行我的宏时，我的宏的最后一行没有被正确读取并且它 returns 错误消息 "run time error 1004: application defined or object defined error" 如果有人可以帮我解决这个问题，那就太好了。非常感谢。泽维尔

请在下面找到我的 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

试试这个并继续阅读 how to avoid Select and Activate。

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

ActiveSheet.PasteSpecial 粘贴：=xlPasteValues 无效

ActiveSheet.PasteSpecial Paste:=xlPasteValues not working

excel

vba

copy-paste