VBAをある程度書けるようになると、こんな壁にぶつかりますよね。特に「重複をチェックしながらループする」処理は、データが増えるほど一気に重くなります。Excelがフリーズして、保存もできずにヒヤッとした経験がある方も多いはずです。

この遅さを根本から解決してくれるのが VBA Dictionary（連想配列） です。この記事では、基本メソッドの使い方から「なぜ配列より速いのか」、そして重複削除・グループ集計・別シート転記の実務コードまで解説していきますね。

VBA Dictionary（連想配列）とは？

Dictionaryは、キー（Key）と値（Item）をペアで保管するオブジェクトです。連想配列やハッシュマップとも呼ばれます。

イメージは「ラベル付きの引き出し」です。引き出しにラベル（キー）を貼っておけば、中身（値）を探すときにラベルを見るだけで一発で取り出せます。これがDictionaryの本質です。

ふつうの配列が「1番目・2番目」と番号で管理するのに対して、Dictionaryは「商品コード」「部門名」のような意味のある名前で管理できます。

つまりDictionaryは「名前で出し入れできて、しかも検索が速い」入れ物だと覚えてください。この2つの特徴が、大量データ処理の遅さを解決してくれます。

NOTE

VBE（Visual Basic Editor）は Alt + F11 で起動します。リボンから開く場合は「開発」タブ →「Visual Basic」を選びます。「開発」タブが表示されていないときは、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れてください。VBEが開いたら「挿入」→「標準モジュール」でコードを書く場所を作ります。画面構成がわからない方は、VBE画面の見方の記事も参考にしてみてください。

Dictionaryを使う準備（参照設定とCreateObject）

Dictionaryを使うには、最初にオブジェクトを生成する必要があります。生成方法は2通りあります。

方法1: 参照設定する（事前バインディング）

VBEのメニューから「ツール」→「参照設定」を開きます。一覧から Microsoft Scripting Runtime にチェックを入れます。これで準備完了です。

Sub UseEarlyBinding()
    Dim dic As Scripting.Dictionary '辞書オブジェクト
    Set dic = New Scripting.Dictionary

    dic.Add "りんご", 100
    MsgBox dic("りんご") & "円"
End Sub

参照設定すると、入力中に候補が出る入力補完（IntelliSense）が効きます。コードが書きやすくなるので、自分のPCで使う場合はこちらがおすすめです。

方法2: CreateObjectで生成する（実行時バインディング）

参照設定をせずに、コード内でオブジェクトを直接生成する方法です。

Sub UseLateBinding()
    Dim dic As Object '辞書オブジェクト
    Set dic = CreateObject("Scripting.Dictionary")

    dic.Add "りんご", 100
    MsgBox dic("りんご") & "円"
End Sub

CreateObjectは参照設定が不要です。そのため、ファイルを他の人に配布する場合に向いています。環境による設定の違いを気にしなくて済むからです。

TIP

迷ったら CreateObject を選んでおくと安全です。参照設定はファイルごとに必要で、配布先で外れていると動かなくなります。本記事のコードはすべてCreateObjectで統一しています。

Dictionaryの基本メソッド

Dictionaryの基本操作を1つずつ見ていきましょう。どれもシンプルなので、すぐに使えるようになりますよ。

Add：キーと値を追加する

Add はキーと値のペアを登録するメソッドです。

Dim dic As Object '辞書オブジェクト
Set dic = CreateObject("Scripting.Dictionary")

dic.Add "A001", "りんご" 'キー"A001"に値"りんご"を登録
dic.Add "A002", "みかん"

同じキーをもう一度Addするとエラーになります。キーは重複できないルールだからです。

Exists：キーがあるか調べる

Exists は、指定したキーが登録済みかどうかを True / False で返します。

If dic.Exists("A001") Then
    MsgBox "登録済みです"
Else
    MsgBox "未登録です"
End If

重複チェックの主役になるメソッドです。後ほどの実務コードで大活躍します。

Item：値を取り出す・書き換える

Item はキーに対応する値を取り出すプロパティです。既定プロパティなので、dic("キー") と短く書けます。

MsgBox dic("A001") '"りんご"が表示される

dic("A001") = "青りんご" '値を上書き

NOTE

Item には注意点があります。存在しないキーを dic("未登録キー") で参照すると、エラーにならず、そのキーが空の値で勝手に追加されてしまいます。存在確認には必ず Exists を使ってください。Item での判定は誤動作のもとになります。

Keys・Items：全キー・全値を取り出す

Keys は全キーを、Items は全値を、それぞれ配列で返します。

Dim k As Variant '取り出すキー
For Each k In dic.Keys
    Debug.Print k & " → " & dic(k) 'キーと値をセットで出力
Next k

For Each でキーを1つずつ取り出し、dic(k) で対応する値を引いています。For Eachの使い方との組み合わせはDictionaryの定番パターンです。

Count・Remove：件数取得と削除

Count は登録ペア数を返すプロパティです。Remove は指定したキーのペアを削除します。

MsgBox "登録数: " & dic.Count & "件"

dic.Remove "A002" '"A002"のペアを削除
dic.RemoveAll '全ペアを削除

基本メソッド早見表

なぜDictionaryは配列より速いのか

ここがこの記事のいちばん大事なところです。「なぜ速いのか」を理解すると、Dictionaryを使うべき場面が自分で判断できるようになります。

配列の重複チェックは「総当たり」になる

配列で「この値はもう登場したか」を調べるには、先頭から順に1つずつ照合するしかありません。これを線形探索と呼びます。

たとえば1,000件のデータから重複を除こうとすると、1件ごとに既存リストを全部チェックします。結果として、最悪で約100万回（1,000×1,000）の照合が必要です。データが10,000件なら約1億回に膨れ上がります。

これが二重ループ（O(n^2)）の正体です。件数が10倍になると、処理時間は100倍になります。

Dictionaryは「ラベルから直接たどる」

一方、Dictionaryは内部でハッシュテーブルという仕組みを使っています。キーを計算式（ハッシュ関数）にかけて、値を置く場所を直接割り出します。

引き出しのラベルを見て、いきなり目的の引き出しを開けるイメージです。他の引き出しを順番に開けて確認する必要がありません。

そのため、Exists や dic(キー) での検索は、データ件数に関係なくほぼ一定時間（O(1)）で終わります。重複チェックを伴うループ全体で見ても、DictionaryならO(n)で済みます。

件数が増えるほど差は爆発する

両者の照合回数を比べてみましょう。

100件程度なら配列でも一瞬です。しかし数千〜数万件になると、配列は数十秒〜数分かかる一方、Dictionaryは一瞬で終わります。この差が、冒頭の「急に遅くなる」問題の答えです。

TIP

配列が遅いのは「値で探す」ときだけです。番号（インデックス）で直接取り出す処理は配列も高速です。「名前や値で検索したい」ときがDictionaryの出番だと覚えておきましょう。

【実務】Dictionaryの活用コード3選

ここからは、実務でそのまま使えるパターンを3つ紹介します。どれもデータの準備から出力まで通しで動くコードです。

パターン1: 重複を削除して一意リストを作る

A列の商品コードから重複を除き、C列に一意のリストを書き出すコードです。

Sub RemoveDuplicates()
    Dim ws As Worksheet '対象シート
    Dim dic As Object '重複判定用の辞書
    Dim lastRow As Long '最終行
    Dim i As Long '行カウンター
    Dim key As String '判定するキー
    Dim outRow As Long '出力先の行

    Set ws = ActiveSheet
    Set dic = CreateObject("Scripting.Dictionary")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    outRow = 2

    '--- A列を1行ずつ読み、未登録のものだけC列に書き出す ---
    For i = 2 To lastRow
        key = ws.Cells(i, 1).Value
        If Not dic.Exists(key) Then
            dic.Add key, True '登録済みとして記録
            ws.Cells(outRow, 3).Value = key
            outRow = outRow + 1
        End If
    Next i

    MsgBox "重複を除いて " & dic.Count & " 件を書き出しました"
End Sub

ポイントは If Not dic.Exists(key) Then です。まだ登録されていないキーだけをC列に書き出しています。最終行は End(xlUp) で取得しています。詳しくは最終行を取得する方法をご覧ください。

パターン2: 部門別の売上を集計する

A列に部門名、B列に売上金額が入ったデータを、部門ごとに合計するコードです。

Sub GroupSum()
    Dim ws As Worksheet '対象シート
    Dim dic As Object '部門別集計用の辞書
    Dim lastRow As Long '最終行
    Dim i As Long '行カウンター
    Dim dept As String '部門名（キー）
    Dim amount As Double '売上金額
    Dim k As Variant '出力時のキー
    Dim outRow As Long '出力先の行

    Set ws = ActiveSheet
    Set dic = CreateObject("Scripting.Dictionary")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    '--- 部門名をキーにして売上を加算していく ---
    For i = 2 To lastRow
        dept = ws.Cells(i, 1).Value
        amount = ws.Cells(i, 2).Value
        If dic.Exists(dept) Then
            dic(dept) = dic(dept) + amount '既存部門に加算
        Else
            dic.Add dept, amount '新しい部門を登録
        End If
    Next i

    '--- 集計結果をD・E列に書き出す ---
    outRow = 2
    For Each k In dic.Keys
        ws.Cells(outRow, 4).Value = k
        ws.Cells(outRow, 5).Value = dic(k)
        outRow = outRow + 1
    Next k

    MsgBox dic.Count & " 部門を集計しました"
End Sub

dic(dept) = dic(dept) + amount が集計の心臓部です。既に登録済みの部門なら現在の合計に加算し、初登場の部門なら新規登録しています。ピボットテーブルのグループ集計をコードで実現するイメージです。条件分岐はIf文の使い方で行っています。

パターン3: コード→名前の対応表で別シートに転記する

「商品マスタ」シートの対応表をDictionaryに読み込み、「売上」シートの商品コードを商品名に変換しながら転記するコードです。VLOOKUPをメモリ上で高速実行するイメージです。

Sub MappingTransfer()
    Dim wsM As Worksheet '商品マスタシート
    Dim wsS As Worksheet '売上シート
    Dim dic As Object '対応表の辞書
    Dim lastRowM As Long 'マスタの最終行
    Dim lastRowS As Long '売上の最終行
    Dim i As Long '行カウンター
    Dim code As String '商品コード（キー）

    Set wsM = Worksheets("商品マスタ")
    Set wsS = Worksheets("売上")
    Set dic = CreateObject("Scripting.Dictionary")

    '--- マスタのコードと名前を対応表として読み込む ---
    lastRowM = wsM.Cells(wsM.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRowM
        dic(wsM.Cells(i, 1).Value) = wsM.Cells(i, 2).Value
    Next i

    '--- 売上シートのコードを名前に変換してC列に書き出す ---
    lastRowS = wsS.Cells(wsS.Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRowS
        code = wsS.Cells(i, 1).Value
        If dic.Exists(code) Then
            wsS.Cells(i, 3).Value = dic(code) '対応する名前を転記
        Else
            wsS.Cells(i, 3).Value = "該当なし"
        End If
    Next i

    MsgBox "転記が完了しました"
End Sub

対応表を一度Dictionaryに読み込んでしまえば、あとは dic(code) で一発参照できます。売上データが何万行あっても高速です。VLOOKUPの数式を大量に貼るより軽く、確実に動きます。

NOTE

マスタの読み込みで dic(キー) = 値 を使っているのは、マスタ側に重複コードがあっても後の行で上書きされるだけでエラーにならないからです。Add だと重複コードでエラーになるので、対応表の読み込みではこの書き方が安全です。

Dictionaryでよくあるエラーと対処法

NOTE

Dictionaryを使うマクロは、必ず マクロ有効ブック（.xlsm） で保存してください。通常の .xlsx で保存すると、マクロが消えてしまいます。

配列・コレクションとの使い分け

VBAでデータをまとめて扱う方法には、配列・Collection・Dictionaryの3つがあります。場面に合わせて選びましょう。

使い分けの目安

• 番号で順番に処理する → 配列
• 単純に要素を束ねたいだけ → Collection
• キーで検索・重複判定・集計したい → Dictionary

TIP

「重複を除きたい」「○○ごとに合計したい」「コードから名前を引きたい」という処理が出てきたら、Dictionaryを思い出してください。二重ループで書きかけていたコードが、半分以下の行数で、しかも何倍も速くなります。

まとめ

VBA Dictionaryは「キーと値をペアで保管し、高速に出し入れできる」オブジェクトです。

• Add でペアを追加し、Exists でキーの有無を判定する
• 値の取得・上書きは dic(キー) で書ける（存在しないキーの参照は厳禁）
• Keys / Items で全要素を取り出し、For Each でループする
• 速い理由はハッシュテーブル。値で探す処理が配列より圧倒的に速い
• 重複削除・グループ集計・別シート転記の3パターンが実務の定番

データが数千行を超えて「急に遅くなった」と感じたら、Dictionaryの出番です。まずは重複削除のコードをVBEに貼り付けて、二重ループとの速度差を体感してみてくださいね。

Dictionaryを使いこなせたら、次はVBA学習ロードマップで全体の学習ステップを確認してみましょう。

関連記事

• For Eachの使い方｜セル・シート・配列を一括処理
• Do Loopの使い方｜Do While・Do Untilを4パターンで解説
• Rangeの使い方｜セルの指定・範囲操作を基本から解説
• 最終行を取得する方法｜End(xlUp)とCells.Countの使い方
• If文の使い方｜条件分岐を基本から実務まで解説
• VBA変数の使い方
• VBE画面の見方｜ウィンドウの名前と役割を整理
• VBA学習ロードマップ

手作業で1行ずつ確認して削除するのは、件数が多いと現実的ではありません。しかも、元データを壊してしまうリスクもあります。

そんなときに便利なのが UNIQUE関数 です。範囲を指定するだけで、重複のないリストを自動で作成してくれます。

この記事では、UNIQUE関数の基本から、SORT・FILTER・COUNTIFとの組み合わせまで実例つきで紹介します。

UNIQUE関数とは？

UNIQUE関数は、指定した範囲から 重複する値を取り除いて、一意のリストを返す 関数です。
読み方は「ユニーク関数」です。

たとえば、売上データの「商品名」列にノートPCが5回出てきたとします。UNIQUE関数を使えば1回だけ表示されます。
元データはそのまま残るので安心です。

結果は数式を入力したセルから自動で展開（スピル）されます。

NOTE

UNIQUE関数はGoogleスプレッドシート独自の関数です。ExcelにもUNIQUE関数がありますが、引数名が異なります（後述）。また、Excelでは Microsoft 365 または Excel 2021 以降でしか使えません。

UNIQUE関数の書き方

構文

=UNIQUE(範囲, [列方向], [1回のみ])

TIP

引数が3つありますが、ほとんどの場面では 範囲だけ指定すればOK です。=UNIQUE(A2:A100) のように使います。

引数「列方向」と「1回のみ」の意味

列方向（第2引数） は、データの並び方に合わせて切り替えます。

• FALSE（デフォルト）: データが縦に並んでいる場合。行単位で重複を判定します
• TRUE: データが横に並んでいる場合。列単位で重複を判定します

通常のスプレッドシートではデータは縦に並んでいるので、この引数は省略して大丈夫です。

1回のみ（第3引数） は、少し特殊な使い方です。

• FALSE（デフォルト）: 重複している値も、最初の1つだけ残します
• TRUE: 元データで ちょうど1回しか出現しない値だけ を返します。2回以上出現する値はすべて除外されます

「重複していないデータだけ見たい」という場面で TRUE が役立ちます。

UNIQUE関数の基本的な使い方

1列の重複を削除する

次のような売上データで説明します。

A列の商品名から重複のないリストを作るには、空いているセル（たとえばD2）に次の数式を入力します。

=UNIQUE(A2:A7)

結果はこうなります。

「ノートPC」と「モニター」がそれぞれ2回ずつ出てきていますが、UNIQUE関数が1つにまとめてくれました。

複数列の組み合わせで重複削除する

範囲に複数列を指定すると、すべての列が完全に一致する行 を重複と判定します。

たとえば「担当者 + 商品名」の組み合わせで重複を除去する場合です。

=UNIQUE(A2:B5)

3行目の「田中 + ノートPC」は2行目と完全一致するため除外されました。
一方、「田中 + キーボード」は商品名が異なるので残っています。

NOTE

UNIQUE関数は 大文字と小文字を区別しません。「Apple」と「apple」は同じ値として扱われます。

UNIQUE関数の実践的な使い方・応用例

パターン1：SORT+UNIQUEで五十音順のリストを作る

UNIQUE関数の結果は元データの並び順のままです。
五十音順やアルファベット順に並べたいときは、SORT関数と組み合わせましょう。

=SORT(UNIQUE(A2:A100))

UNIQUE関数で重複を取り除き、SORT関数で昇順に並べ替えます。プルダウンの選択肢リストを作るときに便利です。

パターン2：FILTER+UNIQUEで条件付きの一意リストを作る

「東京支店の商品名だけのユニークリスト」のように、条件を付けたい場合です。
FILTER関数で先に絞り込んでからUNIQUEに渡します。

=UNIQUE(FILTER(C2:C100, B2:B100="東京"))

FILTER関数でB列が「東京」の行だけを抽出します。そのC列（商品名）の重複を除去する流れです。
FILTER → UNIQUE の順番がポイントです。

パターン3：COUNTIF+UNIQUEで重複チェック表を作る

各値が元データに何回出現するかを一覧表にできます。COUNTIF関数と組み合わせます。

D2に次の数式を入力して、ユニークリストを作ります。

=UNIQUE(A2:A100)

E2に、そのユニーク値ごとの出現回数を表示します。

=COUNTIF(A$2:A$100, D2)

E2を下方向にコピーすれば、各値の件数が一覧で確認できます。

TIP

もっとスマートに書くなら、1つの数式でまとめる方法もあります。=COUNTIF(A2:A100, UNIQUE(A2:A100)) とすると、UNIQUEの結果に対応するカウントが自動でスピルします。

パターン4：プルダウンの選択肢を自動更新する

UNIQUE関数を使えば、データの入力状況に応じて プルダウンの選択肢を自動更新 できます。

1. 空いているセル（例: Z2）に =SORT(UNIQUE(A2:A100)) と入力
2. データの入力規則を設定するセルを選択
3. メニューから「データ」→「データの入力規則」を開く
4. 条件を「プルダウン（範囲内）」にして、Z2から始まる範囲を指定

商品名や担当者名が増えても、プルダウンの選択肢が自動で更新されます。

パターン5：ユニーク件数をカウントする

重複を除いた件数（種類数）だけを知りたい場合は、COUNTA関数やROWS関数を使います。

=COUNTA(UNIQUE(A2:A100))

たとえば商品名が100行あっても、種類が5つなら「5」が返ります。

空白セルが混ざっている可能性がある場合は、先にFILTERで除外しておきましょう。

=COUNTA(UNIQUE(FILTER(A2:A100, A2:A100<>"")))

よくあるエラーと対処法

TIP

#REF! エラーはスピル関数で最もよくあるエラーです。UNIQUE関数の結果が展開される先にデータがあると発生します。出力先の下方向に十分な空きを確保してください。

ExcelのUNIQUE関数との違い

スプレッドシートとExcelのUNIQUE関数は、基本的な動作は同じですが引数名が異なります。

最大の違いは 利用できる環境 です。スプレッドシートではすべてのユーザーが使えます。
一方、Excelでは永続ライセンス版（Excel 2019以前）では使えません。

機能面ではほぼ同じなので、スプレッドシートでUNIQUE関数に慣れておけば、Excelでもそのまま使えます。

まとめ

この記事では、GoogleスプレッドシートのUNIQUE関数の使い方を解説しました。

• UNIQUE関数: 範囲から重複を除去して一意のリストを返す
• 基本の使い方: =UNIQUE(A2:A100) で範囲を指定するだけ
• SORT連携: =SORT(UNIQUE(...)) で五十音順のリストを作成
• FILTER連携: =UNIQUE(FILTER(...)) で条件付きの一意リスト
• COUNTIF連携: 各値の出現回数を一覧表にできる
• プルダウン: UNIQUE+SORTで選択肢を自動更新

まずは =UNIQUE(A2:A100) から試してみてください。1列の重複除去ができれば、SORT・FILTERとの組み合わせもすぐに使いこなせます。

この記事を書いた人

biz-tactics編集部。事務職の現場で本当に使えるExcel・スプレッドシート・AIの技を発信しています。

関連記事

• スプレッドシートのSORT・SORTN・SORTBY関数の使い方｜データを自動で並べ替える
• スプレッドシートのFILTER関数の使い方｜条件抽出を自動化する方法
• スプレッドシートのCOUNTIF関数の使い方｜条件に合うセルを数える
• スプレッドシートのARRAYFORMULA関数の使い方｜範囲に一括適用