Question

我想创建一个宏，该宏将从另一张工作表中复制一些数据并将其粘贴（具有粘贴特殊值）到活动工作表（Sheet1）的范围的最后一行（从I列开始）。但是，当我尝试执行宏时，宏的最后一行未正确读取，并且返回错误消息“运行时错误1004：应用程序定义或对象定义的错误” 如果有人可以帮助我解决此问题，那就太好了。非常感谢。泽维尔

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

3.3.0

您可以完全避免“复制”和“粘贴”（粘贴值时），这样做虽然效率不高，但在您的情况下不太明显。

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

ActiveSheet.PasteSpecial粘贴：= xlPasteValues不起作用

1 个答案: