【初心者向け】VBA Dictionaryの使い方を徹底解説｜連想配列でデータ処理を効率化

VBAで大量のデータを扱う際には、キーと値をペアで管理できるVBA Dictionaryを活用すると、効率的にデータ処理を行えます。この記事では、VBA Dictionaryの基本的な使い方から応用テクニックまでを、初心者にもわかりやすく丁寧に解説します。

Table of contents

Dictionaryオブジェクトとは？VBAで使える連想配列を理解しよう
Dictionaryの基本構文と初期設定
Dictionaryに要素を追加・参照・変更する方法
要素を削除・存在確認する方法
Dictionaryでソートを行う方法・応用編
Dictionaryを活用する実践例
Dictionaryを使う際の注意点とトラブル対処法
まとめ｜VBAでのデータ管理を効率化しよう

Dictionaryオブジェクトとは？VBAで使える連想配列を理解しよう

Dictionaryの基本概念
Dictionaryは、キーKeyと値Itemをペアで管理する連想配列です。たとえば社員IDと社員名のように、対応するデータを簡単に管理できます。

通常の配列はインデックス番号でアクセスしますが、Dictionaryではキー名でアクセスできます。そのため、データの検索・削除・追加が柔軟に行える点が大きなメリットです。

Dictionaryの仕組みや用途をより詳しく知りたい方は、VBAでDictionaryオブジェクトを使いこなすの記事も参考になります。

Dictionaryの基本構文と初期設定

Dictionaryの作成方法
VBAでDictionaryを使うには、CreateObjectまたは参照設定の2通りの方法があります。

方法①：CreateObjectを使う場合

Dim myDic As Object
Set myDic = CreateObject("Scripting.Dictionary")

方法②：参照設定を使う場合（推奨）
VBAエディタで「ツール → 参照設定 → Microsoft Scripting Runtime」にチェックを入れます。

Dim myDic As New Scripting.Dictionary

どちらの方法でも同じように使えますが、後者のほうがコード補完が効いて便利です。参照設定を使った実装例は、VBA Dictionary（連想配列）基本操作と活用でも詳しく解説されています。

Dictionaryに要素を追加・参照・変更する方法

要素を追加する・Addメソッド

myDic.Add "A001", "田中"
myDic.Add "A002", "佐藤"

値を取得・変更する・Itemプロパティ

Debug.Print myDic.Item("A001")   ' 出力: 田中
myDic.Item("A001") = "田中太郎"  ' 値を変更

全要素をループ処理する

Dim key As Variant
For Each key In myDic.Keys
Debug.Print key, myDic(key)
Next key

要素を削除・存在確認する方法

要素を削除する

myDic.Remove "A002"

すべて削除する

myDic.RemoveAll

キーの存在を確認する・Exists

If Not myDic.Exists("A003") Then
myDic.Add "A003", "鈴木"
End If

このように、Existsを使えば重複登録を防ぐことができます。

Dictionaryでソートを行う方法・応用編

Dictionary自体にはソート機能がありませんが、キーを一旦配列に格納して並べ替えることで対応できます。

Dim keys As Variant, i As Long
keys = myDic.Keys
Call QuickSort(keys, LBound(keys), UBound(keys))
For i = LBound(keys) To UBound(keys)
Debug.Print keys(i), myDic(keys(i))
Next i

※ ExcelのRange.Sort機能を使ってシート上で並べ替える方法も便利です。

Dictionaryを活用する実践例

VBA Dictionaryは、現場でのデータ処理を簡略化するための強力なツールです。具体的なコード例は、VBA入門：Dictionaryオブジェクトの基礎と応用でも丁寧に紹介されています。

1. 重複データを排除してリスト化

For Each cell In Range("A1:A100")
If Not myDic.Exists(cell.Value) Then myDic.Add cell.Value, ""
Next cell

2. 検索処理を高速化
Dictionaryを使えば、配列よりも高速に検索できます。

3. カウント集計処理

For Each cell In Range("B1:B100")
If myDic.Exists(cell.Value) Then
myDic(cell.Value) = myDic(cell.Value) + 1
Else
myDic.Add cell.Value, 1
End If
Next cell