【VBA】開いているすべてのブックからデータを一括集約する方法

2025年7月25日

Excelで作業をしていると、複数のブックを同時に開いている場面に遭遇することがあります。そのようなときに「すべての開いているブックのデータを一つにまとめたい」と考える方も多いのではないでしょうか。

本記事では、現在開いているすべてのExcelブックからデータを1つのシートに集めるVBAコードをご紹介いたします。

開いているブックからデータを集めるVBAコード

以下のコードは、**現在開いているすべてのブック（自身を除く）**の1枚目のシートから、見出しを除いたデータだけを「集計」シートにまとめるものです。

Sub CollectDataFromOpenWorkbooks()
    Dim summaryRange As Range
    Dim copyRange As Range
    Dim targetBook As Workbook
    Dim pasteSheet As Worksheet
    Dim lastRow As Long

    Set pasteSheet = ThisWorkbook.Worksheets(1)
    Set summaryRange = pasteSheet.Range("A1").CurrentRegion

    For Each targetBook In Workbooks
        If Not targetBook Is ThisWorkbook Then
            Set copyRange = targetBook.Worksheets(1).Range("A1").CurrentRegion
            Set copyRange = copyRange.Resize(copyRange.Rows.Count - 1).Offset(1)
            lastRow = pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Row + 1
            pasteSheet.Cells(lastRow, 1).Resize(copyRange.Rows.Count, copyRange.Columns.Count).Value = copyRange.Value
        End If
    Next
End Sub

このコードの活用ポイント

ThisWorkbook：マクロを実行しているブックを除外します。
Workbooksコレクション：現在開いているすべてのブックに対してループ処理を行います。
CurrentRegion：セル範囲を自動で認識します。見出しも含まれるため、Offset(1)とResize(-1)でデータ部分のみを抽出します。
lastRow：追記位置を自動判定し、重複のないように順次貼り付けます。