同じ構造で、フォルダー内にある複数の Excel ファイルがあります。
各 Excel ファイルのデータは d4 から始まります (複数行のデータですが、すべての行は後続の d から始まります)
フォルダー内のすべての個別の Excel ファイルからデータを取得し、次のような構造の個別の Excel ファイルからすべてのデータの単一の新しい Excel ファイルを作成するマクロが必要です。
1.) ロールアップ ファイルの a1 で始まる Excel ファイル 1 のデータ
2.) ロールアップ ファイルの最初の Excel ファイルのデータの下に、Excel ファイル 2 のデータが追加されます。
3.) フォルダー内のすべての Excel ファイルに対して繰り返します。
ありがとう
編集これを見つけました（申し訳ありませんが、どこで機能していたか覚えていません）Excelとvbaについてはほとんど知りません（主にphpで作業しています）。私が必要なものを手に入れるために私自身の多くの助けを提供することができます.
2 つの単純な Excel ファイルを作成し、それぞれにデータ行を追加して、Rollup という Excel ファイルでマクロを実行しました。このコードの問題は、ロールアップ Excel ファイルで、両方のファイルを追加したかのようにカーソルが適切な行に移動するが、データが表示されないという点で機能することだと思います。
Sub extract()
Dim a, b, c, d, n, x As Integer
Dim f As String
Cells(2, 1).Select
f = Dir("C:\" & "*.xls")
Do While Len(f) > 0
ActiveCell.Formula = f
ActiveCell.Offset(1, 0).Select
f = Dir()
n = n + 1
Loop
x = Cells(Rows.Count, 1).End(xlUp).Row
d = 2
For a = 2 To x
Cells(d, 2) = Cells(a, 1)
For c = 1 To 20
b = 1
Cells(1, 1) = "='c:\[" & Cells(a, 1) & "]sheet1'!" & Chr(b + 64) & c
If Cells(1, 1) = "0" Then
Exit For
Else
For b = 3 To 6
Cells(d, b) = "='c:\[" & Cells(a, 1) & "]sheet1'!" & Chr(b + 64) & c
Next b
End If
d = d + 1
Next c
d = d + 1
Next a
End Sub