使用活动的xbutton进行复制和粘贴时出错

我试图设置一个命令button,将复制和粘贴到另一个工作表的数据。

目前我的代码如下所示:

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 

我不断收到一个错误,说'范围类select方法失败',但不能解决如何解决它。 谢谢

尝试这个:

 Private Sub CommandButton1_Click() ThisWorkbook.Sheets("Raw Data").Activate Sheets("Data AC").Range("A1:J1000").Copy Sheets("Raw Data").Range("A2:J1001") End Sub