質問: エクセルについて 詳しい方に助けて頂きたいです。 複数のブックのデータを1つのブックに纏める方法がないか、教えて頂きたいです。
回答: マクロならこんなイメージですかね?( ́・ω・) アレンジはご自分でどうぞ。 Sub test() Dim fld As String, f As String Dim sh As Worksheet Dim cnt As Long, n As Long '集約フォルダ fld = "D:\Sample\anq" '集約シート Set sh = ThisWorkbook.Sheets("集約") '転記開始列(1でA列) cnt = 1 '転記開始行(ファイル名) n = 1 Application.ScreenUpdating = False f = Dir(fld & "\*.xlsx") Do While f <> "" Workbooks.Open fld & "\" & f, ReadOnly:=True With Sheets(8).Range("C4:C39") sh.Cells(n, cnt) = f sh.Cells(n, cnt).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value Workbooks(f).Close False cnt = cnt + 1 f = Dir() End With Loop Application.ScreenUpdating = True MsgBox "Done." End Sub