Excel VBA | 複数マスタを同時にJOINして結合するプロ用高速マクロ

VBA

2011.05.242025.11.27

ここからは 「複数マスタ（3〜5マスタ）を同時にJOINして結合するプロ用高速マクロ」 を作ります。
ポイントは 配列 × Dictionary × 自動範囲 × 一括書き戻し をフル活用し、数十万行でも瞬時に結合できることです。

概要
コード（そのまま動く完全版）
このフレームの特徴
応用ポイント
実務での利用例

概要

メイン表：ActiveSheet（キー列 A）
マスタ1：Master1（キー A列、値 B列）
マスタ2：Master2（キー A列、値 B列）
マスタ3：Master3（キー A列、値 B列）
必要に応じて 4〜5 マスタまで対応可能
結合結果をメイン表の C列〜G列 に書き出す

コード（そのまま動く完全版）

Sub MultiMasterJoin()

    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Dim Data As Variant
    Dim r As Long

    '----------------------------
    ' シート設定
    '----------------------------
    Set ws = ActiveSheet

    '----------------------------
    ' データ範囲自動取得
    '----------------------------
    LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    Data = ws.Range(ws.Cells(1, 1), ws.Cells(LastRow, LastCol)).Value

    '----------------------------
    ' マスタシート配列 & Dictionary作成
    '----------------------------
    Dim Masters(1 To 3) As Variant
    Dim Dicts(1 To 3) As Object
    Dim i As Long, LastRowM As Long

    For i = 1 To 3
        Set Dicts(i) = CreateObject("Scripting.Dictionary")
        LastRowM = Sheets("Master" & i).Cells(Sheets("Master" & i).Rows.Count, 1).End(xlUp).Row
        Masters(i) = Sheets("Master" & i).Range("A2:B" & LastRowM).Value

        Dim j As Long
        For j = 1 To UBound(Masters(i), 1)
            If Not Dicts(i).exists(Masters(i)(j, 1)) Then
                Dicts(i).Add Masters(i)(j, 1), Masters(i)(j, 2)
            End If
        Next j
    Next i

    '----------------------------
    ' 配列内で高速 JOIN
    '----------------------------
    For r = 2 To UBound(Data, 1)
        For i = 1 To 3
            ' C列～E列に書き込む（マスタ1→C列、マスタ2→D列、マスタ3→E列）
            If Dicts(i).exists(Data(r, 1)) Then
                Data(r, 2 + i) = Dicts(i)(Data(r, 1))
            Else
                Data(r, 2 + i) = "なし"
            End If
        Next i
    Next r

    '----------------------------
    ' 一括書き戻し
    '----------------------------
    ws.Range(ws.Cells(1, 1), ws.Cells(LastRow, LastCol + 3)).Value = Data

    MsgBox "複数マスタ JOIN 完了！"

End Sub

Sub MultiMasterJoin()

    Dim ws As Worksheet
    Dim LastRow As Long, LastCol As Long
    Dim Data As Variant
    Dim r As Long

    '----------------------------
    ' シート設定
    '----------------------------
    Set ws = ActiveSheet

    '----------------------------
    ' データ範囲自動取得
    '----------------------------
    LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    Data = ws.Range(ws.Cells(1, 1), ws.Cells(LastRow, LastCol)).Value

    '----------------------------
    ' マスタシート配列 & Dictionary作成
    '----------------------------
    Dim Masters(1 To 3) As Variant
    Dim Dicts(1 To 3) As Object
    Dim i As Long, LastRowM As Long

    For i = 1 To 3
        Set Dicts(i) = CreateObject("Scripting.Dictionary")
        LastRowM = Sheets("Master" & i).Cells(Sheets("Master" & i).Rows.Count, 1).End(xlUp).Row
        Masters(i) = Sheets("Master" & i).Range("A2:B" & LastRowM).Value

        Dim j As Long
        For j = 1 To UBound(Masters(i), 1)
            If Not Dicts(i).exists(Masters(i)(j, 1)) Then
                Dicts(i).Add Masters(i)(j, 1), Masters(i)(j, 2)
            End If
        Next j
    Next i

    '----------------------------
    ' 配列内で高速 JOIN
    '----------------------------
    For r = 2 To UBound(Data, 1)
        For i = 1 To 3
            ' C列～E列に書き込む（マスタ1→C列、マスタ2→D列、マスタ3→E列）
            If Dicts(i).exists(Data(r, 1)) Then
                Data(r, 2 + i) = Dicts(i)(Data(r, 1))
            Else
                Data(r, 2 + i) = "なし"
            End If
        Next i
    Next r

    '----------------------------
    ' 一括書き戻し
    '----------------------------
    ws.Range(ws.Cells(1, 1), ws.Cells(LastRow, LastCol + 3)).Value = Data

    MsgBox "複数マスタ JOIN 完了！"

End Sub

このフレームの特徴

配列内で処理 → セルアクセスは1回のみ
Dictionary でキー検索 → O(1) で爆速
複数マスタを同時に結合可能
自動範囲検出 → どの規模の表でも対応
マスタ列数・出力列数は簡単に変更可能

応用ポイント

✅ マスタを 4〜5 個に増やす場合

Masters(1 To 5)
Dicts(1 To 5) に変更
For i = 1 To 5 にループ拡張
書き戻し列も 2 + i を適宜変更

✅ JOIN 先列の調整

マスタ1 → C列
マスタ2 → D列
マスタ3 → E列
マスタ4 → F列（必要に応じて拡張）

✅ 欠損値処理

「なし」と出力する部分は自由にカスタマイズ可能
例えば "未登録" や "0" に置き換えも可能

実務での利用例

A列	B列	C列	D列	E列
商品コード	数量	マスタ1商品名	マスタ2カテゴリ	マスタ3価格
001	5	商品A	カテゴリX	1000
002	3	商品B	カテゴリY	500
003	7	なし	カテゴリZ	800