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

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

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

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

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

1. 「Alt」+「F11」を押してVBAエディターを開きます。
2. 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」を、統合したいシートの実際の名前に変更する必要があります。

   

3. 「F5」を押してコードを実行します。「Excelファイルを選択」ウィンドウが表示されますので、統合したい同じ名前のワークシートを含むワークブックを選択し、「開く」ボタンをクリックしてください。

   

4. 統合が完了すると、「Microsoft Excel」ダイアログボックスが表示され、ワークシートが正常に統合されたことが確認できます。「OK」をクリックして閉じます。

   

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

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

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

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

1. 「ワークシートの統合 – ステップ1/3」ウィザードで、「複数のワークブックから同じワークシート名のデータを統合」オプションを選択し、「次へ」をクリックします。

   

2. 「ステップ2/3」ウィザードで、「追加」ボタンをクリックして、統合したい同じ名前のワークシートを含むワークブックを選択します。
   注意: ワークブックがフォルダに保存されている場合、「追加」ボタンの横にあるドロップダウン矢印をクリックしてサブメニューを展開し、「フォルダ」を選択することで、そのフォルダからすべてのExcelファイルを迅速に追加できます。

   

3. ワークブックを追加した後、ニーズに応じて次の2つのオプションがあります：
   • 選択したすべてのワークブックからすべてのワークシートを1つのワークブックに統合したい場合は、単に「次へ」ボタンをクリックします。すべてのワークシートが統合され、同じ名前のワークシートの内容は1つのワークシートに統合されます。
   • 同じ名前のワークシートのみを統合したい場合は、まず「ワークシートリスト」セクションでワークシートを選択し、「同じワークシート」ボタンをクリックします。これにより、追加されたすべてのワークブックから同じ名前のワークシートが自動的に選択されます。その後、「次へ」をクリックして続行します。

   

4. ウィザードの最後のステップでは、デフォルトのオプションのままにするか、ニーズに応じて設定をカスタマイズし、「完了」をクリックします。

   

5. 統合されたワークブックの保存先フォルダを選択し、任意のファイル名を入力してから「保存」ボタンをクリックして操作を完了します。

   

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

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

関連記事：

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

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

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