Excel VBA中複製粘貼錯誤

Question

我有相同的數據的兩個表

A B C 
    5 6 
4 3 3 

公式1

Sub Button1_Click() 

Dim Current As Worksheet 


    Range("A2").Copy _ 
    Destination:=Range("A1") 
    Range("A2").ClearContents   

End Sub 

的公式爲我工作。但我需要這個腳本適用於所有的牀單，

公式2

Dim Current As Worksheet 

     ' Loop through all of the worksheets in the active workbook. 
     For Each Current In ThisWorkbook.Worksheets 
    With Current 



      Range("A2").Copy _ Destination:=Range("A1") 
    Range("A2").ClearContents 
      End With 
     Next Current 


End Sub 

- >它的工作原理，但在A1值也被刪除。並沒有被用於所有紙張。只有活動工作表。

Answer 1

一個With ... End With statement可攜帶父母工作的參考沿命令塊，但你必須前綴一個週期（又名句號）接受父母工作關係，每個.Range或.Cells參考。

Dim Current As Worksheet 

' Loop through all of the worksheets in the active workbook. 
For Each Current In ThisWorkbook.Worksheets 
    With Current 
     .Range("A2").Copy Destination:=.Range("A1") 
     .Range("A2").ClearContents 
    End With 
Next Current 

注意.Range而不是Range。