各ワークシートに同じ構造のデータがあるワークブックを入手する場合は、複数のワークシートを1つの大きなワークシートに結合する方法に興味があるかもしれません。

凝縮を行う背後にある概念はかなり簡単です。2番目以降のワークシートから最初のワークシートの最初の空の行にデータをコピーするだけです。 Excelには、これを自動的に実行できるツールは含まれていませんが、マクロの優れた候補です。ただし、凝縮する各ワークシートの構造は同じである必要があることに注意してください。

次のマクロは、すべてのワークシートをステップスルーし、データを新しいワークシートに結合して、ワークブックの先頭に追加します。

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

マクロが完了すると、Combinedという名前のワークブックの最初のシートに、他のワークシートのすべてのデータが含まれます。他のワークシートは変更されません。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（8884）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link複数のワークシートを1つにまとめる。