2015-12-02 60 views
1

我想設置一個命令按鈕,將數據從一張複製並粘貼到另一張。使用活動x按鈕複製和粘貼時出錯

目前我的代碼看起來是這樣的:

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 

我不斷收到一個錯誤說「範圍類的選擇方法失敗」,但不知道如何解決它。 感謝

+0

不要使用剪貼板一個簡單的複製操作,剪貼板是必須保留的用戶資源。 **提示**:看一下'Range()。Copy()'方法。 –

回答

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