別ブック（複数）のデータを別ブックのシートにまとめる・配列

2024-07-21

ExcelVBAを使用して、別ブックのエクセルデータを配列でひとつにまとめる方法です。

まとめたいデータと転記先

転記もとのデータ3ブックと転記先のブックの4ブックの例です。

転記もとのデータ（まとめたいデータ）

データ保存先：F:¥sample

転記もとのデータです。形式は全て同じです。

転記先のブック

シート設定に転記もとのエクセルブック名を入力します。

シート「書出」に転記もとの見出し以外のデータを転記します。

書き出し前シートです。

書き出し後です。

サンプルコード

転記先のブックをアクティブにして実行します。

Sub sample()
    Dim fPath As String: fPath = "F:\sample\"
    Dim fName As String
    Dim wsS As Worksheet, wsW As Worksheet
    Set wsS = Worksheets("設定")
    Set wsW = Worksheets("書出")
    Dim ary As Variant
    Dim i As Long, sRow As Long
    
    sRow = 2
    For i = 2 To 4
         fName = wsS.Cells(i, 1)
         Workbooks.Open Filename:=fPath & fName
         With ActiveWorkbook
            ary = .Worksheets(1).Cells(1, 1).CurrentRegion _
                  .Offset(1).Resize(Cells(1, 1).CurrentRegion.Rows.Count - 1)
            .Close
         End With
         wsW.Cells(sRow, 1).Resize(UBound(ary, 1), UBound(ary, 2)).Value = ary
         sRow = sRow + UBound(ary)
    Next i
End Sub