Excelで複数のCSVファイルを1つのワークブックにまとめる3つの簡単な方法

Excelは、大量のデータを扱う際に最も広く活用されているツールです。表計算から分析まで多彩な作業をこなせる万能ソフトですが、本記事では複数のCSVファイルを1つのExcelワークブックに結合する方法を、初心者にもわかりやすく解説します。

Excelで複数のCSVファイルを1つのワークブックに結合する3つの方法

CSVとは「Comma Separated Values（カンマ区切り値）」の略で、データを表形式で保存できる軽量なファイル形式です。テキストベースのため、パソコンのストレージ容量をほとんど消費しないのもメリットです。
ここでは、デスクトップ上にあるCSVファイル2つが入ったフォルダを例に、3つの簡単な結合方法を順番にご紹介します。

方法1：コマンドプロンプト（CMD）を使ってCSVファイルを結合する

まずは、Windows標準のコマンドプロンプトを使った方法です。手順をステップごとに見ていきましょう。

手順：

• まず、CSVファイルが入っているフォルダを選択します。
• SHIFTキーを押しながらマウスを右クリックします。
• 表示されたコンテキストメニューから「パスのコピー」を選択します。

• 次に、Windowsの検索ボックスに「cmd」と入力します。
• 検索結果からコマンドプロンプトを選択して起動します。

• コマンドプロンプトの画面が開いたら、「cd」と入力し、半角スペースを1つ空けます。
• その後に先ほどコピーしたフォルダのパスを貼り付けます。画面は以下のようになります。

先頭の「C:\Users\Me>」の部分は環境によって表示が異なりますが、気にする必要はありません。

• ENTERキーを押すと、カレントディレクトリが移動します。
• 続けて「copy *.csv merged.csv」と入力します。
• 「merged」の部分は、結合後の新ファイルにつけたい任意の名前に変更できます。

• ENTERキーを押すと処理が実行され、Excelで開ける結合済みの新ファイルが自動的に作成されます。

方法2：Power Query機能を使ってCSVファイルを結合する

次にご紹介するのは、Excelに搭載されているPower Query機能を活用した方法です。GUI操作だけで完結するため、コマンド操作に慣れていない方におすすめです。

手順：

• まず、新しいワークブックを開きます。
• リボンの「データ」タブをクリックします。
• 「データの取得」を選択します。
• 「ファイルから」を選びます。
• さらに「フォルダーから」をクリックします。

• CSVファイルが保存されているフォルダを選択します。
• 「開く」をクリックします。

• Power Queryの画面が表示されます。
• 「結合して読み込む」を選択します。

• 「ファイルの結合」ダイアログボックスが表示されます。
• 「OK」をクリックします。

• 以上で、Excelがフォルダ内のすべてのデータを自動的に結合してくれます。

方法3：VBAマクロを使って複数のCSVファイルを1つのワークブックに結合する

最後に、VBAマクロを使って複数のCSVファイルを結合する方法をご紹介します。定期的に同じ作業を繰り返す場合、マクロ化しておくと大幅な時短になります。

手順：

• ALT + F11キーを押してVBAエディター（VBE）を開きます。
• メニューの「挿入」>>「標準モジュール」を選択します。

• 新しいモジュールが開いたら、以下のコードをコピー＆ペーストします。

Sub MergeCsvs()
Dim folderpath As String
  folderpath = "C:\Users\Me\Desktop\CSV Files"
  If folderpath Like "*[!\\/]" Then
    folderpath = folderpath & "/"
  End If

  Dim File As String
  File = Dir(folderpath & "*.csv")
  Dim workbook_result As WorkBook
  Set workbook_result = Workbooks.Add
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False

  Dim WorkBook As WorkBook
  While File <> vbNullString
    Set WorkBook = Workbooks.Open(folderpath & File)
    WorkBook.ActiveSheet.UsedRange.Copy workbook_result. _
    ActiveSheet.UsedRange.Rows(workbook_result.ActiveSheet. _
    UsedRange.Rows.Count).Offset(1).Resize(1)
    WorkBook.Close False
    File = Dir()
  Wend

  workbook_result.ActiveSheet.Rows(1).EntireRow.Delete
End Sub

コードの解説

• MergeCsvsが今回作成する新しいサブプロシージャ名です。
• folderpath・File・workbook_result・WorkBookは、それぞれ処理に使う変数です。
• 「C:\Users\Me\Desktop\CSV Files」の部分には、実際のCSVファイルが保存されているフォルダのパスを指定してください。
• Whileループにより、フォルダ内の全CSVファイルを1件ずつ順番に読み込んでいます。

• F5キーを押してコードを実行します。
• Excelが新規ファイルを作成し、すべてのデータを自動的に結合します。

• 最後に、ファイルごとに重複して表示された見出し行を削除すれば完成です。

注意点

• コマンドプロンプトを使う方法では、対象フォルダをCドライブ直下などアクセスしやすい場所に配置しておくとスムーズです。
• Power Queryを使う場合は、結合するすべてのデータセットの見出し（ヘッダー行）を揃えておく必要があります。

まとめ

本記事では、複数のCSVファイルを1つのExcelワークブックに結合する3つの簡単な方法を解説しました。コマンドプロンプト、Power Query、VBAマクロと、それぞれ特徴が異なるので、用途やスキルレベルに合わせて使い分けてください。ご不明点やご意見があれば、ぜひコメント欄でお聞かせください。

関連記事

• ExcelでCSVファイルを読み込む4つの最速の方法
• ファイルを開かずにCSVをXLSX形式へ変換する5つの簡単な方法
• 【解決済み】ExcelでCSVが1列に表示される問題の3つの対処法
• ExcelでCSVファイルを列ごとに自動整形して開く3つの方法
• Excel VBA：カンマ区切りのテキストファイルを読み込む2つのケース
• ExcelでCSVファイルを列表示で開く3つの簡単な方法