使用 active x 按钮复制和粘贴时出错

Question

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

目前我的代码如下所示：

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 method of range class failed'，但不知道如何解决。谢谢

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

使用 active x 按钮复制和粘贴时出错

Error when using active x button to copy and paste

excel

vba

activex