【2026年8月最新】VBA Collectionオブジェクトの使い方完全ガイド｜宣言・Add・Item・Remove・存在チェックまで実務コードで解説

Excelマクロを組んでいて、「同じ種類のデータを複数まとめて持っておきたいけど、配列だと要素数が変わるたびにReDimするのが面倒…」と感じたことはありませんか。

その悩みを解決してくれるのがCollection（コレクション）オブジェクトです。VBA標準の機能でありながら、配列よりも柔軟にデータをまとめて管理でき、「名前（キー）で要素を呼び出す」という配列にはできない芸当も可能にします。

この記事では、Collectionオブジェクトの宣言・Add・Item・Count・For Each・存在チェック・Removeという一連の操作を、実務でそのまま使えるコード付きで解説します。さらに、似た機能を持つScripting.Dictionaryとの使い分け、そして弊社（株式会社GENAI）の実運用データをもとにした「VBAを書かずに済ませる」という選択肢まで、非エンジニアの方にも分かりやすく整理しました。

AI鬼管理山崎

Collectionは「配列とDictionaryの中間」のような存在です。まずは配列との違いを明確にしてから、Add・Item・Removeという基本操作を一つずつ押さえていきましょう。

代表菅澤

私自身、最初にCollectionを触ったときは「配列でよくない？」と思っていました。でも、キーで要素を呼び出せる便利さと、要素数を気にせずAddし続けられる気楽さを知ってからは、リストを扱う場面で真っ先に候補に挙がるようになりました。

この記事を最後まで読むと、次の7つが明確になります。

01 COLLECTION BASICS Collectionオブジェクトとは？配列との違い 「複数のデータをまとめて持つ」ための2つの選択肢を比較する

Collectionオブジェクトは、VBAに標準搭載されているオブジェクトで、複数のデータをひとまとめにして管理するための入れ物です。参照設定なども不要で、いつでもDimとNewの2行で使い始められます。

「複数のデータをまとめて扱う」という目的だけを見ると配列（Array）と似ていますが、性質はかなり違います。まずは代表的な違いを表で整理します。

1-1. Collectionが向いている場面

Collectionは、次のような場面で配列よりも書きやすくなります。

代表菅澤

配列は「サイズの決まった箱」、Collectionは「いくらでも中身を増やせる袋」というイメージを持つと理解しやすいです。袋は名前を付けて中身を取り出せる分、少しだけ処理のオーバーヘッドがある、というトレードオフです。

02 DECLARE & ADD 宣言とAddメソッドの基本構文 Dim → New → Addという3ステップを実例で押さえる

Collectionを使うときの基本の流れは、「宣言する（Dim）」→「実体を作る（New）」→「要素を追加する（Add）」の3ステップです。まずは顧客リストを例に、コードを見てみましょう。

Sub AddCustomers()
    Dim custList As Collection
    Set custList = New Collection

    custList.Add "田中商事", "C001"
    custList.Add "佐藤物産", "C002"
    custList.Add "鈴木工業", "C003"

    MsgBox "登録件数: " & custList.Count   '  3 と表示される
End Sub

Dim custList As Collectionで変数を宣言し、Set custList = New Collectionで実体（インスタンス）を作成します。この「New」を書き忘れると、Addを呼んだ瞬間に実行時エラーになるので注意してください（詳しくは第9章で解説します）。

2-1. Addメソッドの引数：Item・Key・Before・After

AddメソッドはAdd(Item, Key, Before, After)という4つの引数を持ちます。Itemだけは必須で、残りの3つは省略可能です。

Sub AddWithPosition()
    Dim custList As Collection
    Set custList = New Collection

    custList.Add "田中商事", "C001"
    custList.Add "佐藤物産", "C002"

    ' "C002"の直前に"山田商会"を挿入する
    custList.Add "山田商会", "C004", Before:="C002"

    Dim c As Variant
    For Each c In custList
        Debug.Print c   '  田中商事 → 山田商会 → 佐藤物産 の順で出力
    Next c
End Sub

AI鬼管理山崎

Before・Afterは同時に指定できません。「途中に挿入したい」場面自体があまり多くないので、実務では基本的に末尾へのAddだけで十分なケースがほとんどです。

03 ITEM & COUNT Item・Countで要素を取得する方法 インデックス指定とキー指定、2通りのアクセス方法を使い分ける

Collectionから値を取り出すにはItemメソッドを使います。Itemには「インデックス（何番目か）」と「キー（登録時に付けた名前）」の2種類の指定方法があります。

Sub GetCustomer()
    Dim custList As Collection
    Set custList = New Collection
    custList.Add "田中商事", "C001"
    custList.Add "佐藤物産", "C002"

    MsgBox custList.Item(1)       '  田中商事（インデックス指定・1始まり）
    MsgBox custList.Item("C002")  '  佐藤物産（キー指定）
    MsgBox custList(1)            '  田中商事（Itemは既定メンバーなので省略できる）
End Sub

要素数を数えたいときはCountプロパティを使います。配列のようにUBoundとLBoundを引き算する必要がなく、そのまま件数が返ってくるのがCollectionの分かりやすい点です。

Sub ShowCount()
    Dim custList As Collection
    Set custList = New Collection
    custList.Add "田中商事", "C001"
    custList.Add "佐藤物産", "C002"
    custList.Add "鈴木工業", "C003"

    MsgBox "登録件数: " & custList.Count   '  3
End Sub

代表菅澤

Countプロパティは地味に見えて便利です。配列だとUBoundを使って「配列の最後の添字」しか取れず、要素数を出すにはLBoundとの引き算が必要になりますが、Collectionなら.Countと書くだけで済みます。

04 FOR EACH LOOP For Each文でCollectionをループ処理する 登録した順番に全要素を処理する、もっとも実務で使う書き方

Collectionの全要素を順番に処理したいときはFor Each文を使うのが定番です。インデックスを意識せずに書けるので、配列よりもシンプルなコードになります。

Sub ListAllCustomers()
    Dim custList As Collection
    Dim c As Variant
    Set custList = New Collection
    custList.Add "田中商事", "C001"
    custList.Add "佐藤物産", "C002"
    custList.Add "鈴木工業", "C003"

    For Each c In custList
        Debug.Print c
    Next c
    '  出力順: 田中商事 → 佐藤物産 → 鈴木工業（Addした順）
End Sub

For Each文はAddした順番で要素を取り出します。Collectionは常に1始まりのインデックスを内部で保持しているため、順序が入れ替わることはありません（Before/Afterで挿入位置を指定した場合はその位置が反映されます）。

この「宣言→初期化→追加→取得・処理→削除」という5ステップが、Collectionを使うマクロの基本骨格になります。まずはこの流れを型として覚えてしまうと、応用が効きやすくなります。

AI鬼管理山崎

「順番通りに全部処理したいだけ」ならFor Each、「何番目の要素かを使って何か処理したい」「逆順に処理したい」場合はFor i = 1 To col.Countのように書く、という使い分けを意識すると迷いません。

05 EXISTENCE CHECK 要素の存在チェックをする方法 Collectionには「Exists」がない。On Error Resume Nextで代用する

ここがCollectionを使う上で最初につまずきやすいポイントです。Collectionには「このキーは存在するか」を判定する専用メソッドがありません。後述するScripting.DictionaryにはExistsメソッドがあるため混同しがちですが、Collectionでは別の方法で代用する必要があります。

存在しないキーをItemで指定すると実行時エラー5「プロシージャの呼び出しまたは引数が不正です」が発生します。このエラーを逆手にとって、「エラーが起きなければ存在する、起きれば存在しない」と判定するのが定番の代用パターンです。

Function KeyExists(col As Collection, ByVal key As String) As Boolean
    Dim tmp As Variant
    On Error Resume Next
    Err.Clear
    tmp = col.Item(key)
    On Error GoTo 0
    KeyExists = (Err.Number = 0)
End Function

Sub CheckExample()
    Dim custList As Collection
    Set custList = New Collection
    custList.Add "田中商事", "C001"

    MsgBox KeyExists(custList, "C001")   '  True
    MsgBox KeyExists(custList, "C999")   '  False
End Sub

代表菅澤

「存在しないかもしれないキーをいきなりItemで取りに行く」設計は事故のもとです。追加前の重複チェック、削除前の存在チェックなど、KeyExistsのような自作関数を1つ用意しておくと、Collectionまわりのバグがかなり減ります。

06 REMOVE Removeで要素を削除する（インデックスのズレに注意） 削除後は後ろの要素のインデックスが1つずつ詰まる

要素を削除するにはRemoveメソッドを使います。Itemと同じく、インデックス指定・キー指定の両方に対応しています。

Sub RemoveCustomer()
    Dim custList As Collection
    Set custList = New Collection
    custList.Add "田中商事", "C001"
    custList.Add "佐藤物産", "C002"
    custList.Add "鈴木工業", "C003"

    custList.Remove "C002"          ' キー指定で削除

    MsgBox custList.Count           '  2
    MsgBox custList.Item(2)         '  鈴木工業（削除後にインデックスが1つ詰まる）
End Sub

削除前は「田中商事(1)・佐藤物産(2)・鈴木工業(3)」という並びでしたが、佐藤物産（キーC002）を削除すると、鈴木工業のインデックスは3から2に繰り上がります。これがCollectionの落とし穴で、ループしながら削除する処理を書くと、意図せず要素を読み飛ばすバグを生みやすい部分です。

' 安全な書き方：逆順に削除する
Sub RemoveOldRecords()
    Dim custList As Collection
    Dim i As Long
    Set custList = New Collection
    custList.Add "田中商事", "C001"
    custList.Add "（退会）佐藤物産", "C002"
    custList.Add "（退会）鈴木工業", "C003"

    For i = custList.Count To 1 Step -1
        If InStr(custList.Item(i), "（退会）") > 0 Then
            custList.Remove i
        End If
    Next i

    MsgBox custList.Count   '  1（田中商事だけが残る）
End Sub

AI鬼管理山崎

ループ中の削除で要素が飛ぶバグは、VBAに限らずどの言語でもよく起きる典型的なミスです。「削除は逆順で」というルールを型として覚えてしまえば防げます。

07 COLLECTION VS DICTIONARY 【独自】CollectionとDictionaryの使い分け 「名前で呼び出したい」が本格化したらDictionaryも検討する

ここからは競合記事にはない独自の切り口として、Collectionとよく比較されるScripting.Dictionary（連想配列）との使い分けを整理します。「存在チェックができない」という第5章の弱点は、実はDictionaryなら標準機能で解決できます。

7-1. どちらを選ぶべきか：3つの判断軸

代表菅澤

個人的な感覚では、「単純にリストを持ちたいだけ」ならCollection、「キーで頻繁に検索する集計処理」ならDictionary、という住み分けをしています。どちらが正解というより、処理の中心が「順番に処理」なのか「検索」なのかで決めるとブレません。

08 GENAI CASE DATA 【独自】GENAI実運用データで見るVBA業務のAI化 VBAで自動化するか、Claude Codeにそもそも任せるか

ここまでCollectionオブジェクトの文法を細かく解説してきましたが、視点を少し引いて考えてみます。VBAマクロを組むこと自体、すでに「業務効率化」の一種です。では、その効率化をさらに一段引き上げる手段はあるのでしょうか。

弊社（株式会社GENAI）では、Claude Max 20xプラン（月額$200・約30,000円）を契約し、経営・営業・広告・開発・経理・秘書業務まで全社的にClaude Codeを活用しています。VBAコードの作成・修正はもちろん、そもそもExcelマクロを介さずに業務を自動化できるケースも増えています。

注目したいのは「開発」領域です。Collectionを使ったVBAマクロのような、要素の追加・削除・存在チェックを組み合わせる処理は、条件が複雑になるほど手で書く時間がかかります。この記事の第5章・第6章で扱った「存在チェックの代用パターン」「削除時のインデックスのズレ」のような落とし穴も、Claude Codeに要件を伝えれば、あらかじめ対策済みのコードとして生成されます。

この4ステップを回すことで、VBAの文法を1行1行暗記していなくても、「何をしたいか」を言葉で伝えるだけで実務レベルのマクロが手に入ります。もちろん、生成されたコードをそのまま鵜呑みにせず、動作確認とレビューを挟むことは必須です。

AI鬼管理山崎

Collectionのような「型」の話は理解しておいて損はありませんが、業務で成果を出す上で本当に必要なのは「正しいコードを書けること」よりも「正しい要件をAIに伝えられること」だと感じています。VBAの文法に時間を使うより、Claude Codeへの指示の出し方に時間を使うほうが、費用対効果が高い時代になってきました。

代表菅澤

弊社では新しいマクロが必要になったとき、まずClaude Codeに要件を投げて、生成されたコードをレビューする、という流れがすでに標準になっています。VBAが書ける・書けないに関係なく、経営者自身が「業務の自動化案」を思いついた瞬間に試せるのが一番の価値だと感じています。

09 COMMON ERRORS よくあるエラーと対処法5選 Collectionを使う中で実際によく遭遇するつまずきポイント

最後に、Collectionを使う中で実際によく遭遇するエラーと、そのつまずきポイントを一覧で整理します。エラー番号を知っておくと、次に同じエラーに遭遇したときの原因特定が速くなります。

' 実行時エラー91の例（New忘れ）
Sub ObjectNotSetExample()
    Dim col As Collection
    col.Add "サンプル"   ' ← 実行時エラー91が発生する（Set col = New Collectionがない）
End Sub

5つ目の「エラー」は、正確には実行時エラーではなくロジックバグです。第6章で解説した、ループしながらRemoveすると要素の読み飛ばしが起きる問題です。エラーメッセージが出ないぶん発見が遅れやすく、実務では最も見つけにくい不具合の1つと言えます。

代表菅澤

この5つは、Collectionを使うマクロで実際に何度も踏んだ経験のあるパターンです。特に91番と457番は初心者が最初にぶつかりやすいので、覚えておくだけでデバッグ時間がかなり短縮されます。

10 CONCLUSION まとめ ── Collectionを使いこなす・使わずに済ませる VBAの文法を覚える道と、AIに任せる道の両方を知っておく

この記事では、VBA Collectionオブジェクトの基本構文から、配列・Dictionaryとの違い、実務で踏みやすいエラーまでを整理しました。最後にポイントを振り返ります。

Collectionオブジェクトは、覚えてしまえば非常に扱いやすいVBAの武器です。一方で、この記事で紹介した「存在チェックの代用」「削除時のインデックスのズレ」のような細かい落とし穴は、VBA初学者が独力でハマりやすいポイントでもあります。

文法を1つずつ覚えて自分で書けるようになる道もあれば、要件を言葉で伝えてAIにコードを生成させる道もあります。どちらが正しいということはなく、状況に応じて使い分けるのが現実的です。

AI鬼管理山崎

VBAの文法は「読めれば十分」で、「書く」部分はClaude Codeに任せる、という分業も現実的な選択肢です。生成されたコードをレビューできる程度の知識があれば、開発スピードは大きく変わります。

VBAマクロの作成・改修も、Claude Codeで自動化できます

「Collectionを使った顧客リスト管理マクロを作りたい」「既存のVBAコードでエラーが出て解決できない」——こうしたExcel VBAの課題は、Claude Codeに要件を日本語で伝えるだけで解決できます。

まずは無料相談で、貴社のExcel業務のどこにAIを組み込めるか、具体的にお答えします。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？

AI活用を自社で回せるようになりたい方へ

AI鬼管理

Claude Code・Cowork導入支援から業務設計・社内浸透まで実践ベースで伴走。「自社で回せる組織」を90日で作る経営者向けトレーニング。

AI鬼管理を詳しく見る →

業務を丸ごと任せたい方へ

AIBPO by AI鬼管理

請求処理・データ入力・問い合わせ対応などの定型業務を、AI×人の品質管理体制で丸ごと代行。いまのコストの75%目安で、日々は成果物を承認するだけ。

AIBPOを詳しく見る →

よくある質問

Q. VBAのCollectionと配列（Array）、結局どちらを使えばいいですか？

A. 要素数が事前に分かっていて大量データを高速処理したいなら配列、要素数が読めない・キーで呼び出したい・途中で追加削除したいならCollectionが向いています。数万行規模のセル処理は配列に一括読み込みしてから処理する方が速いケースが多く、少量のリストを柔軟に管理したい場合はCollectionが書きやすい、というのが実務での基本的な使い分けです。

Q. Collectionで要素の存在チェックをする一番簡単な方法は？

A. CollectionにはExistsのような専用メソッドがないため、On Error Resume Next + Err.Clearを使い、存在しないキーをItemで取得したときに発生する実行時エラー5を検知する方法が定番です。記事内で紹介したKeyExists関数のように、汎用の判定関数を1つ用意しておくと、Add前の重複チェックや削除前の存在確認に使い回せます。

Q. Collectionのキーは数値でも指定できますか？

A. できません。Addメソッドの第2引数Keyには文字列（String型）しか指定できない仕様です。数値をキーにしたい場合は「CStr(番号)」のように文字列へ変換してから渡す必要があります。数値のままキーに指定しようとするとコンパイルエラーまたは実行時エラーになるため注意してください。

Q. Removeで要素を削除した後、インデックス番号はどうなりますか？

A. 削除した要素より後ろにあった要素は、インデックスが1つずつ繰り上がります。例えば3件のうち2番目を削除すると、元3番目だった要素が2番目になります。ループしながらRemoveする処理を書く場合、この繰り上がりによって要素を読み飛ばすバグが起きやすいため、後ろのインデックスから逆順に削除するのが安全です。

Q. Scripting.Dictionaryを使うには参照設定が必要ですか？

A. 必須ではありません。「CreateObject("Scripting.Dictionary")」と書けば、参照設定なし（遅延バインディング）でも利用できます。コード補完（入力候補）を効かせたい場合は「Microsoft Scripting Runtime」への参照設定（早期バインディング）を行う方法もありますが、他の担当者のPCで参照設定が外れていると動かなくなるリスクがあるため、配布するマクロでは遅延バインディングを使うケースが多いです。

Q. For Each文でCollectionをループ処理しながら要素を削除しても安全ですか？

A. 安全ではありません。For Each中に要素を削除すると、内部のインデックスがずれて意図しない要素がスキップされることがあります。安全に削除したい場合は、For Each ではなく「For i = col.Count To 1 Step -1」のように、後ろから前へ向かってインデックスでループしながらRemoveする書き方に変更してください。

Q. VBAが苦手でも、Collectionを使うような処理を自動化できますか？

A. できます。Claude CodeのようなAIエージェントに「顧客コードをキーにして重複なく登録・検索できるリストをVBAで作って」のように要件を日本語で伝えるだけで、Collection（またはDictionary）を使った実務レベルのコードが生成されます。弊社GENAIでもClaude Max 20xプラン（月額約30,000円）を契約し、VBAコードの生成やデバッグに日常的に活用しています。文法を覚える前に、まず生成されたコードを動かしてみるという学び方も有効です。

監修 最終更新日: 2026年8月8日

菅澤 孝平 株式会社GENAI 代表取締役

• AI業務自動化サービス「AI鬼管理」を運営 — Claude Code を活用し、経営者の業務を「AIエージェントに任せる仕組み」へ転換するパーソナルトレーニングを 伴走構築 で提供。日報・採用・問い合わせ対応・経費精算・議事録・データ集計・営業リスト等の定型業務を、AIに代行させる体制を経営者と一緒に作り込む
• Claude Code 実装ノウハウを 経営者・法人クライアント に直接指導。生成AIを「便利ツール」ではなく 「業務を任せる存在」 として運用する手法を体系化
• 「やらせ切る管理」メソッドの開発者。シンゲキ株式会社（2021年設立・鬼管理専門塾運営）にて累計3,000名以上の学習者を志望校合格に導いた管理メソッドを、AI × 経営者支援 に転用
• 著書『3カ月で志望大学に合格できる鬼管理』(幻冬舎)、『親の過干渉こそ、最強の大学受験対策である。』(講談社)
• メディア出演: REAL VALUE / カンニング竹山のイチバン研究所 / ええじゃないかBiz 他
• 明治大学政治経済学部卒

現在は AI鬼管理（Claude Code活用の伴走型パーソナルトレーニング）を主事業とし、経営者と二人三脚で「AIに業務を任せる仕組み」を実装。「実行を強制する環境」を AI で構築する手法を、自社の実運用知見をもとに発信している。

▸ 代表 菅澤孝平 のプロフィール詳細を見る