我正在尝试设置一个命令按钮,将数据从一个工作表复制并粘贴到另一个工作表。
目前我的代码如下:
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("Raw Data").Activate
ThisWorkbook.Sheets("Data AC").Range("A1:J1000").Select
Selection.Copy
ThisWorkbook.Sheets("Raw Data").Range("A2:J1001").Select
Selction.Paste
End Sub
我一直收到错误说'选择范围类的方法失败',但无法解决如何修复它。 谢谢
答案 0 :(得分:2)
试试这个:
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("Raw Data").Activate
Sheets("Data AC").Range("A1:J1000").Copy Sheets("Raw Data").Range("A2:J1001")
End Sub