導入: なぜCollectionオブジェクトが重要なのか
実務でExcel VBAを書いていると、複数のデータをまとめて管理したい場面によく遭遇します。初心者の方は「配列」をまず思い浮かべるかもしれませんが、配列には「要素数の再定義が面倒」「インデックス（番号）でしかデータを取り出せない」という弱点があります。
Collectionオブジェクトを使えば、データの追加・削除が直感的に行えるだけでなく、Key（名前）を付けてデータを管理できるため、コードの可読性が格段に上がります。「どのデータが何番目だったか」を気にする必要がなくなり、実務上の複雑なデータ処理をシンプルに解決できるようになります。
基礎知識: Collectionオブジェクトとは
Collectionは、様々な型のデータを格納できる「入れ物」です。
1. 型の混在が可能：文字列、数値、さらにはシートやボタンといったオブジェクトまで、一つのコレクションに同居させることができます。
2. Keyによる識別：各データに「名前（Key）」を付けられます。例えば、”社員番号”というKeyで社員名を取得する、といった管理が可能です。
3. 動的な管理：配列と異なり、Addメソッドで追加、Removeメソッドで削除が自由自在です。
実装/解決策: 基本的な使い方
Collectionを利用するには、まず変数を宣言し、Newキーワードでインスタンス化します。
Dim myData As Collection
Set myData = New Collection
データの追加にはAddメソッドを使います。
myData.Add Item:=”田中”, Key:=”ID_001″
myData.Add Item:=”佐藤”, Key:=”ID_002″
データの取得は、インデックス番号でもKeyでも可能です。
Debug.Print myData(“ID_001”) ‘ 結果：田中
サンプルプログラム: 実践的なデータ管理
以下のコードは、ユーザーフォーム上の複数のコントロールをコレクションにまとめ、一括処理する実用例です。
Sub SampleCollection()
‘ コレクションの宣言
Dim col As New Collection
Dim i As Integer
‘ データを追加（数値、文字列、オブジェクトが混在可能）
col.Add 100, “売上”
col.Add “営業部”, “部署”
col.Add Sheet1, “対象シート”
‘ Keyを指定して値を取得
Debug.Print “部署は：” & col(“部署”)
‘ 全要素をループで処理（インデックスは1から始まる点に注意）
For i = 1 To col.Count
‘ オブジェクトが含まれる場合は注意が必要
If IsObject(col(i)) Then
Debug.Print i & “番目はオブジェクトです”
Else
Debug.Print i & “番目の値：” & col(i)
End If
Next i
‘ 不要になったらRemoveで削除
col.Remove “売上”
End Sub
応用・注意点: 現場で役立つポイント
1. Keyの重複はエラーになる：Keyを指定してAddする際、既に存在するKeyを重複して指定すると実行時エラーが発生します。データを追加する前に、そのKeyが存在するか確認する仕組みを組み込むか、エラーハンドリング（On Error Resume Nextなど）を適切に行いましょう。
2. インデックスは「1」から始まる：配列は通常「0」から始まりますが、Collectionは「1」から始まります。この違いを意識しないと、ループ処理で「インデックスが有効範囲にありません」というエラーによく遭遇します。
3. 大規模データには注意：Collectionは非常に便利ですが、数万件を超えるような大量のデータを高速に処理する場合は、Dictionaryオブジェクトや配列の方が処理速度で勝る場合があります。用途に合わせて使い分けるのが「VBA達人」への近道です。
