【第2回】コードが書けなくても大丈夫！AIで複数Excelファイルを自動集計するマクロを作ろう（前編）

Excelの仕事でよくあるのが、「支店別」「担当者別」「月別」など、複数ファイルに分かれたデータを1つにまとめる作業です。
たとえば、各支店から毎月送られてくる「売上報告書.xlsx」を、手作業で1つに集計していませんか？

この作業、じつはAIを使えば1回のクリックで自動化できます。
しかも、マクロやVBAの知識がなくても大丈夫。
AIに「こういうことをしたい」と伝えるだけで、すぐに動くマクロを作ってくれるんです。

✅この記事を読む前に

マクロを初めて使うという方は先にこちらのマクロの有効化やファイル保存について解説したこちらの記事をご覧ください

Excelマクロを使う前に必ず確認！マクロ有効化と「開発」タブの表示方法

2025.08.27

今回の目標
実際にAIに聞いてみる
1. 要望の確認
2. 解決策の概要
3. コードと実装手順
まとめ（さらなるアップデートへ）

今回の目標

今回は、フォルダ内にある複数のExcelファイルを自動で集計して1つにまとめるマクロを作ります。

【想定】
各支店から、毎月、集計表が送られてくる。（画像１、画像２）
本店勤務のあなたはこれらのデータを、「毎月”いい感じ”に集計してほしい」と上司に指示を受けたとします。

※ 前提として、各支店のファイルは同じフォーマットであること（行・列がバラバラ、タイトル行の文字がバラバラだとコードが複雑化したり、そもそも自動集計ができなくなったりします。）

実際にAIに聞いてみる

最初はあまり難しいことを考えず、シンプルに「やりたいこと」をAI（Gemini）に聞いてみます。
※ 以下は実際のやり取りであり、内容をほぼそのままコピペしています。
※ 指示の補助として、実際にファイルをアップロードしていますが、セキュリティや個人情報保護などの観点から、アップロードは推奨されない場合があるので、十分注意して下さい。

かえる

Excelのマクロを作ってほしい。

各支店の売上データが入ったExcelファイルが毎月送られてくる（添付のファイルのようなデータが、毎月送られてくる）

これを本社で毎月、統合して自動集計したい

AI（Gemini）

はい、承知いたしました！「コーディングパートナー」として、お客様の目標達成を全力でサポートさせていただきます。💪

お客様の目標は、毎月送られてくる複数の支店売上データを自動的に一つのファイルに統合し、集計しやすい状態にすることですね。これはExcelマクロ（VBA）の得意なタスクです！

まずは、具体的なコードを作成するために、いくつか簡単な確認をさせてください。

1. 要望の確認

より使いやすく、正確なマクロを作成するために、次の2点について教えていただけますか？

統合対象のファイルはどこにありますか？
- 統合したいExcelファイル（添付いただいたようなデータ）は、一つの特定のフォルダにまとめて保存されていますか？（例: デスクトップの「売上集計用」フォルダなど）
統合後の集計はどのように行いますか？
- 「集計」とは、まず単純に全データを一つのシートにまとめることですか？それとも、その後に**「カテゴリ別」や「支店別」の合計売上**などのサマリーもマクロで作成したいですか？

今回は、まずご要望の核となる**「複数ファイルの全データ統合マクロ」を作成します。このマクロは、ファイル名から支店名と月**を自動で取得し、統合データに追加する機能を含めます。これにより、後から様々な集計を行うのが非常に簡単になります。

2. 解決策の概要

今回作成するマクロ（VBAコード）の概要は以下の通りです。

📊 マクロでできること

お客様が指定したフォルダ内にあるすべてのExcelファイル（.xlsx や .csv など）を自動で見つけます。
各ファイルを開き、中身の売上データを、マクロを実行したファイル内の新しいシートに次々とコピー＆ペーストして統合します。
ファイル名（例: 大阪店_01月.xlsx）から**「支店名」と「月」**の情報を自動で抽出し、統合データに新しい列として追加します。

⚙️ 開発の手順と前提条件

前提条件: 統合したいファイルが、一つのフォルダにまとまっている必要があります。
開発の手順:
- マクロを格納するExcelファイル（マクロ実行用ブック）を開きます。
- VBAエディタを開き、提示するコードを貼り付けます。
- マクロを実行すると、フォルダ選択ダイアログが表示されるので、統合したいファイルが入ったフォルダを選択します。
- 新しいシートに統合データが完成します。

3. コードと実装手順

💻 VBAコード: 複数ファイル統合（支店・月情報追加機能付き）

以下のコードは、コピー＆ペーストしやすいように設計されています。

このマクロを実行すると、フォルダ選択ダイアログが開き、選択されたフォルダ内のファイルを処理し、統合データという名前の新しいシートに結果を出力します。

Sub 支店別売上データ統合マクロ()

' --- 調整可能なパラメータ ---
    ' データが格納されているシート名が全て「売上」であると仮定します。
    ' もし異なる場合は、以下の行の "売上" を変更してください。
    Const SOURCE_SHEET_NAME As String = "売上"

' 統合先のシート名を指定します。
    Const DEST_SHEET_NAME As String = "統合データ"
    ' ----------------------------

Dim FSO As Object ' FileSystemObject (ファイルの操作に使うオブジェクト)
    Dim Folder As Object ' 選択されたフォルダ
    Dim File As Object ' フォルダ内の各ファイル
    Dim TargetFolder As String ' ユーザーが選択したフォルダのパス
    Dim DestWb As Workbook ' マクロを実行しているブック
    Dim DestWs As Worksheet ' 統合先のシート
    Dim LastRow As Long ' 統合シートの最終行
    Dim DataRange As Range ' コピー対象のデータ範囲
    Dim SourceWb As Workbook ' 開くファイル（支店データ）
    Dim FileBaseName As String ' 拡張子を除いたファイル名
    Dim BranchName As String ' 支店名
    Dim SalesMonth As String ' 売上月

' マクロを実行しているブックを保持
    Set DestWb = ThisWorkbook

' --- フォルダの選択 ---
    ' ユーザーにフォルダを選択させます
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "統合したいファイルが保存されているフォルダを選択してください"
        .AllowMultiSelect = False
        If .Show = True Then
            TargetFolder = .SelectedItems(1) & "\"
        Else
            ' キャンセルされた場合
            MsgBox "フォルダの選択がキャンセルされました。処理を終了します。", vbInformation
            Exit Sub
        End If
    End With

' --- 統合シートの準備 ---
    ' 既に統合シートが存在する場合は削除し、新しく作成します
    On Error Resume Next
    Application.DisplayAlerts = False ' 警告を非表示（シート削除時など）
    DestWb.Sheets(DEST_SHEET_NAME).Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    Set DestWs = DestWb.Sheets.Add(After:=DestWb.Sheets(DestWb.Sheets.Count))
    DestWs.Name = DEST_SHEET_NAME

' 支店名と月を追加する列のヘッダーを先に設定
    DestWs.Range("K1").Value = "支店名"
    DestWs.Range("L1").Value = "月"
    LastRow = 1 ' データ貼り付け開始行（ヘッダーの後、2行目から）

' --- ファイルの処理 ---
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(TargetFolder)

Application.ScreenUpdating = False ' 画面の更新を停止（処理速度向上）
    Application.Calculation = xlCalculationManual ' 計算を停止（処理速度向上）

' フォルダ内の全ファイルに対してループ処理
    For Each File In Folder.Files
        ' Excelファイル（xlsx, xlsmなど）またはCSVファイルのみを対象とする
        If LCase(Right(File.Name, 4)) = ".xls" Or LCase(Right(File.Name, 5)) = ".xlsx" Or LCase(Right(File.Name, 4)) = ".csv" Then

' 拡張子を除いたファイル名を取得（例: 大阪店_01月.xlsx -> 大阪店_01月）
            FileBaseName = FSO.GetBaseName(File.Name)

' ファイル名から支店名と月を抽出
            ' ファイル名が「支店名_月.xlsx」の形式であることを想定
            Dim Parts() As String
            Parts = Split(FileBaseName, "_")
            
            ' 分割されたPartsの要素数が2つ以上あるか確認
            If UBound(Parts) >= 1 Then
                BranchName = Parts(0)
                SalesMonth = Parts(1)
            Else
                ' ファイル名が想定外の形式だった場合のフォールバック
                BranchName = "不明"
                SalesMonth = "不明"
            End If

' ファイルを開く
            Set SourceWb = Workbooks.Open(File.Path)
            
            On Error Resume Next ' エラーを無視（シートが存在しない場合などに備える）
            Set DataRange = SourceWb.Sheets(SOURCE_SHEET_NAME).Range("A1").CurrentRegion
            On Error GoTo 0 ' エラー処理を元に戻す

If Not DataRange Is Nothing Then
                ' 1行目のヘッダー行全体をコピー
                If LastRow = 1 Then
                    DataRange.Rows(1).Copy DestWs.Range("A1")
                    LastRow = 2 ' データは2行目から貼り付け
                End If

' データ部分（ヘッダー行を除いた2行目以降）をコピー
                If DataRange.Rows.Count > 1 Then
                    ' データ開始行 (ヘッダーの次の行)
                    Dim StartRow As Long
                    StartRow = IIf(LastRow = 2, 2, 1) ' 最初のファイルのみ2行目から、他は1行目からコピー

' コピー対象の行数
                    Dim CopyRowsCount As Long
                    CopyRowsCount = DataRange.Rows.Count - StartRow + 1
                    
                    ' データ範囲が単一の行でない場合にのみコピーを実行
                    If CopyRowsCount >= 1 Then
                        ' コピー元範囲の取得
                        Set DataRange = SourceWb.Sheets(SOURCE_SHEET_NAME).Range("A" & StartRow & ":" & DataRange.Address(False, False))
                        
                        ' 統合シートの最終行にデータを貼り付け
                        DataRange.Copy DestWs.Cells(LastRow, "A")
                        
                        ' 貼り付けた行数分、最終行を更新
                        LastRow = LastRow + CopyRowsCount
                        
                        ' 支店名と月を該当するデータ行に追加
                        With DestWs.Range("K" & LastRow - CopyRowsCount & ":K" & LastRow - 1)
                            .Value = BranchName
                        End With
                        With DestWs.Range("L" & LastRow - CopyRowsCount & ":L" & LastRow - 1)
                            .Value = SalesMonth
                        End With
                    End If
                End If
                
            End If
            
            ' 開いたファイルを閉じる（保存せずに）
            SourceWb.Close SaveChanges:=False
            Set DataRange = Nothing ' オブジェクトをリセット
            Set SourceWb = Nothing
            
        End If
    Next File

' 設定を元に戻す
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

' 処理完了メッセージ
    MsgBox "すべてのファイルの統合が完了しました！" & vbCrLf & _
           "シート「" & DEST_SHEET_NAME & "」にデータを出力しました。", vbInformation

End Sub

📋 実装手順（初心者向け）

このマクロをExcelに組み込む手順は非常にシンプルです。

開発タブを表示する
- Excelを開き、[ファイル] タブをクリックし、[オプション] を選択します。
- [リボンのユーザー設定] を選択し、右側の [開発] にチェックを入れます。
- [OK] をクリックすると、Excelの上部リボンに [開発] タブが表示されます。
VBAエディタを開く
- [開発] タブをクリックし、左端の [Visual Basic] をクリックします。（または Alt + F11 キーを押します）
新しい標準モジュールを挿入する
- VBAエディタの左側にあるプロジェクトエクスプローラー（通常は VBAProject(ファイル名) と表示されています）で、[挿入] メニューをクリックし、[標準モジュール] を選択します。
コードを貼り付ける
- 新しく開いた白い画面（モジュール）に、上記のVBAコードをすべてコピー＆ペーストします。
マクロを実行する
- Excelの画面に戻り、[開発] タブの [マクロ] をクリックします。（または Alt + F8 キーを押します）
- 表示された一覧から 支店別売上データ統合マクロ を選択し、[実行] をクリックします。
- フォルダ選択ダイアログが表示されるので、統合したいファイル（大阪店_01月.xlsx など）が入っているフォルダを選択し、[OK] をクリックしてください。

これで、統合データという新しいシートにすべてのデータが結合されます。

ご不明な点があれば、いつでもお尋ねください。このコードで実行してみて、エラーが出たり、ご要望と違う点がありましたら、すぐに修正いたします！

結果の検証

実際にAIの回答をもとに、マクロ実行まで進めていきます。
その前に、フォルダ・ファイル構成を以下のように先に整理しておきます。

✅マクロの有効化の方法について

マクロを初めて使うという方は先にこちらのマクロの有効化やファイル保存について解説したこちらの記事をご覧ください

Excelマクロを使う前に必ず確認！マクロ有効化と「開発」タブの表示方法

2025.08.27

１. Excelファイルを開き、VBAエディタを起動

Alt + F11キーを押してVBA（Visual Basic for Applications）エディタを起動します。

2. 標準モジュールを挿入

VBAエディタのメニューで 挿入(I) → 標準モジュール(M) を選択します。

4. コードの貼り付け

新しく開いたモジュールの白いエディタ領域に、AIが回答してくれたVBAコードをすべてコピー＆ペーストします。

5. マクロを実行

Excelに戻ります。（Alt + F11で切り替え）
メニューの 開発 タブ（表示されていない場合は、設定で表示させてください） → マクロ をクリックするか、Alt + F8キーを押します。

7. マクロを実行した結果

マクロを実行するとこのように、処理したいファイル（各支店のデータ）がどのフォルダにあるのかを選択するウィンドウが表示されました。先ほど僕がAIにした指示では、処理したいファイルがどこにあるのかを明確に指示していなかったため、AIは処理の冒頭で、このようにフォルダを任意で選択するコードを組み込んでくれました。

集計したいファイルが入っているフォルダを選択して「OK」を押す。

約１分程度、Excel画面が何かを処理している（画面がちょっとチカチカしたり、カーソルが読み込み状態になったり）状態のあと、このように処理が完了したとのポップアップウィンドウが表示されました。「OK」ボタンを押して、処理の結果を確認してみましょう。

まず気になったのは１行目と２行目。ほぼ同じタイトル行が２つあります。
でもよく見ると、K列は１行目が「支店名」であるのに対し、２行目は「名古屋支店」となっています。おそらくですが、この統合データ全体としてタイトル行を作った後に、各支店データを取り込む際にもう一度、タイトル行を取得したことで、二重で表示されてしまった？と推察。これは、次の指示で修正を依頼してみましょう。

下の行までずーっとスクロールすると、名古屋店１月→２月→３月→・・・の順にデータが入っていました。そして１０月（今回用意しているのは１０月までなので、実質最新月）までくると、大阪店の１月が始まっています。ここでまた問題点。画像を見てわかる通り、大阪店に切り替わるタイミングでまた、タイトル行が表示されています。コードの中身はわかりませんが、おそらく支店ごとに最初の行にタイトル行を抽出して表示するようになっているのかも。（ほかの支店も最初の行でタイトル行が表示されていました。）

まとめ（さらなるアップデートへ）

先ほどのコードでは、各ファイルを順に開き、データを抜き取り、本社集計ファイルに上から順に貼り付けていくという処理が実行されていました。これだけでも、一つずつファイルを開いては、コピーペースト、また開いて・・・という作業をボタン一つでできるわけですから、十分便利ですが、これではただまとめただけで、いい感じの集計ファイルとは言えないですよね。

次の記事では、AIと対話を重ねこのコードをさらにアップデートしてハイテクなマクロファイルに仕上げていきます！