使用活动的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