Question

Private Sub Daily_Click()
Sheets("Sheet1").Range("A1:P1").Select
Selection.Copy
Sheets("Sheet2").Range("A1:P1").Select
ActiveSheet.Paste
End Sub

这会引发1004错误，说“应用程序 - 定义/对象定义”＆＃39;错误

我尝试将第4行更改为

Sheets("Sheet2").Select
ActiveSheet.Paste

这很有效。我需要知道为什么第一段代码无法工作

Answer 1

最好不要使用Select。

复制内容的简便方法：

Sheets("Sheet1").Range("A1:P1").Copy Destination:=Sheets("Sheet2").Range("A1:P1")

修改：或使用Select：

Sub Daily_Click()

Sheets("Sheet1").Activate
Sheets("Sheet1").Range("A1:P1").Select
Selection.Copy
Sheets("Sheet2").Activate
Sheets("Sheet2").Range("A1:P1").Select
ActiveSheet.Paste

End Sub

无法将我的选择粘贴到特定范围内的VBA中

1 个答案: