使用活动x按钮复制和粘贴

Question

我正在尝试设置一个命令按钮，将数据从一个工作表复制并粘贴到另一个工作表。

目前我的代码如下：

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

我一直收到错误说＆＃39;选择范围类的方法失败＆＃39;，但无法解决如何修复它。 谢谢

Answer 1

试试这个：

Private Sub CommandButton1_Click()

ThisWorkbook.Sheets("Raw Data").Activate

Sheets("Data AC").Range("A1:J1000").Copy Sheets("Raw Data").Range("A2:J1001")


End Sub