将单元格从10张复印到新工作表

Question

我想使用Excel VBA将单元格从10张复制到新表格。

即

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

Answer 1

这会将单元格复制到 Sheet11 列 A ，从 A1

开始

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

当然，您必须先创建 Sheet11