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

时间:2015-12-02 14:26:56

标签: excel vba activex

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

目前我的代码如下:

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

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

1 个答案:

答案 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