將一個單元格從10張紙復制到一張新紙上

Question

我想使用Excel VBA將單元格從10張紙復制到新紙上。

即

1. Sheet1 ， Sheet2 ...的D4的值。Sheet10
2. 到Sheet11的 A1:A10 （使用excel-vba ）

Answer 1

這會將單元格復制到從A1開始的Sheet11列A中

Sub GatherData()
    For i = 1 To 10
        Sheets("Sheet" & i).Range("D4").Copy Sheets("Sheet11").Cells(i, 1)
    Next i
End Sub

自然，您必須首先創建Sheet11