複数のワークブックから同じ名前のワークシートを統合する

Author Xiaoyang Last modified 2025-08-26

複数のExcelワークブックからデータを単一のシートに統合することは、特に集約レポートやさまざまなソースからのデータ集約を扱う場合、データ分析において一般的な要件です。異なるワークブック間で同じ名前のワークシートを結合する必要がある場合、これが特に困難になることがあります。このチュートリアルでは、このプロセスを合理化するための2つの効果的な方法を紹介します。一つはVBAコードを使用してプログラミング志向のアプローチを好むユーザー向け、もう一つはより使いやすく自動化されたソリューションを求めるユーザー向けに「Kutools for Excel」を利用する方法です。

VBAコードを使用して同じ名前のワークシートを統合する
Kutools for Excelを使用して簡単に同じ名前のワークシートを統合する

VBAコードを使用して同じ名前のワークシートを統合する

このセクションでは、複数のワークブックから同じ名前のワークシートを統合するためのVBAコードを提供しますので、以下の手順に従ってください：

「Alt」+「F11」を押してVBAエディターを開きます。

VBAエディターで、「挿入」>「モジュール」をクリックし、次にそのモジュールに次のVBAコードを入力します。

VBAコード: 同じ名前のワークブックを統合する

Sub CombineSameNameSheetsFromMultipleWorkbooks()
'Updated by Extendoffice 2025/3/27
    Dim wsTarget As Worksheet
    Dim wbTarget As Workbook
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim strSheetName As String
    Dim fd As FileDialog
    Dim FileChosen As Integer
    Dim FileName As String
    Dim lastRow As Long

    ' Set the name of the sheets to combine
    strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet

    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    wsTarget.Name = "Combined Data"

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = True

    FileChosen = fd.Show
    If FileChosen = -1 Then
        For Each varFile In fd.SelectedItems
            Set wbSource = Workbooks.Open(varFile)
            
            On Error Resume Next
            Set wsSource = wbSource.Sheets(strSheetName)
            On Error GoTo 0
            
            If Not wsSource Is Nothing Then
                lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                
                wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                
                Set wsSource = Nothing
            End If
            wbSource.Close False
        Next varFile
    End If
    MsgBox "Data has been combined successfully!", vbInformation
End Sub

注意: コードを実行する前に、「strSheetName」変数内の「SheetName」を、統合したいシートの実際の名前に変更する必要があります。

screenshot showing SheetName in the code line

「F5」を押してコードを実行します。「Excelファイルを選択」ウィンドウが表示されますので、統合したい同じ名前のワークシートを含むワークブックを選択し、「開く」ボタンをクリックしてください。
統合が完了すると、「Microsoft Excel」ダイアログボックスが表示され、ワークシートが正常に統合されたことが確認できます。「OK」をクリックして閉じます。

これで、選択したワークブックから同じ名前のすべてのワークシートの内容が新しいワークブックの単一のワークシートに統合されました。

注意: このVBAコードは、同じ名前の複数のワークシートを統合することはできません。

Kutools for Excelを使用して簡単に同じ名前のワークシートを統合する

VBAはExcelでの強力な自動化機能を提供しますが、プログラミングスキルを持たないユーザーにとっては複雑で威圧的である可能性があります。さらに、VBAには慎重なセキュリティ対策が必要であり、互換性の問題も発生する可能性があります。これに対し、「Kutools for Excel」は、複雑なコーディングを排除し、すべてのExcelユーザーが利用可能な形で、複数のワークブックからワークシートを統合するプロセスを簡素化する、よりユーザーフレンドリーで安全な代替手段を提供します。

Kutools for Excel - Excel向けの300以上の必須ツールを搭載。永久に無料のAI機能をお楽しみください！今すぐダウンロード！

Kutools for Excelのインストール後、「Kutools Plus」>「統合」を選択して「ワークシートの統合」ウィザードを開きます。その後、以下のように設定します。

「ワークシートの統合 – ステップ1/3」ウィザードで、「複数のワークブックから同じワークシート名のデータを統合」オプションを選択し、「次へ」をクリックします。
「ステップ2/3」ウィザードで、「追加」ボタンをクリックして、統合したい同じ名前のワークシートを含むワークブックを選択します。
注意: ワークブックがフォルダに保存されている場合、「追加」ボタンの横にあるドロップダウン矢印をクリックしてサブメニューを展開し、「フォルダ」を選択することで、そのフォルダからすべてのExcelファイルを迅速に追加できます。
ワークブックを追加した後、ニーズに応じて次の2つのオプションがあります：
- 選択したすべてのワークブックからすべてのワークシートを1つのワークブックに統合したい場合は、単に「次へ」ボタンをクリックします。すべてのワークシートが統合され、同じ名前のワークシートの内容は1つのワークシートに統合されます。
- 同じ名前のワークシートのみを統合したい場合は、まず「ワークシートリスト」セクションでワークシートを選択し、「同じワークシート」ボタンをクリックします。これにより、追加されたすべてのワークブックから同じ名前のワークシートが自動的に選択されます。その後、「次へ」をクリックして続行します。
ウィザードの最後のステップでは、デフォルトのオプションのままにするか、ニーズに応じて設定をカスタマイズし、「完了」をクリックします。
統合されたワークブックの保存先フォルダを選択し、任意のファイル名を入力してから「保存」ボタンをクリックして操作を完了します。

複数のワークブックから同じ名前のワークシートを統合することは、適切なツールを使用すれば効率的に行うことができます。組み込みの方法を好む場合でも、高度なアドインを使用する場合でも、どちらのアプローチも異なるスキルレベルに合わせた信頼性のあるソリューションを提供します。これらの技術を習得することで、Excelでの生産性が大幅に向上し、データ統合が合理化されます。

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

この機能についてさらに詳しく知りたい場合は、こちらのページをご覧ください：複数のワークブックから同じワークシート名のデータを統合するチュートリアル。

Excelで複数のワークブックを1つのワークブックに統合するにはどうすればよいですか？

複数のワークシート/ワークブックを1つのワークシートにマージするにはどうすればよいですか？

複数のワークシート/ワークブックから1つのワークシートにデータを集計するにはどうすればよいですか？

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数