概要

Excel VBAには、Collectionという可変長なコレクションが組み込まれています。
それに加えて.NET Frameworkのコレクションも使用できます。
それぞれで微妙に違っているので整理しました。

一覧

※ 一部でDebug.Printを使った例を示してます。

	Collection	Dictionary	ArrayList	SortedList
生成	Dim c As Collection Set c = New Collection	Dim dict Set dict = CreateObject("Scripting.Dictionary")	Dim arrayList Set arrayList = CreateObject("System.Collections.ArrayList")	Dim sortedList Set sortedList = CreateObject("System.Collections.SortedList")
追加	Call c.Add("Value1", "Key1")	' 注意：Collectionと順番が違う Call dict.Add("Key1", "Value1")	Call arrayList.Add("Value1")	' 注意：Collectionと順番が違う Call sortedList.Add("Key1", "Value1")
参照(byインデックス)	' 1スタート c.Item(1)	' 0スタート dict.Items()(0)	' 0スタート arrayList.Item(0)	' 0スタート sortedList.GetByIndex(0)
参照(byキー)	c.Item("Key1")	dict.Item("Key1")	無し	sortedList.GetByIndex(sortedList.IndexOfKey("Key1"))
キーの参照	無し	' 0スタート dict.Keys()(0)	無し	' 0スタート sortedList.GetKey(0)
削除(byインデックス)	' 1スタート Call c.Remove(1)	' 0スタート Call dict.Remove(dict.Keys()(0))	' 0スタート Call arrayList.RemoveAt(0)	' 0スタート Call sortedList.RemoveAt(0)
削除(byキー)	Call c.Remove("Key1")	Call dict.Remove("Key1")	無し	Call sortedList.Remove("Key1")
要素数	c.Count	dict.Count	arrayList.Count	sortedList.Count
For(全Key)	無し	Dim tmpKey For Each tmpKey In dict.Keys Debug.Print tmpKey Next	無し	Dim i As Long For i = 0 To sortedList.Count - 1 Debug.Print sortedList.GetKey(i) Next
For(全Value)	Dim tmp For Each tmp in c Debug.Print tmp Next	Dim tmpValue For Each tmpValue In dict.Items Debug.Print tmpValue Next	Dim tmp For Each tmp In arrayList Debug.Print tmp Next	Dim i As Long For i = 0 To sortedList.Count - 1 Debug.Print sortedList.GetByIndex(i) Next
キーの存在チェック	' 無いけど欲しいので自作 Function ExistsCollection(ByRef c As Collection, ByRef key) As Boolean On Error Resume Next Call c.Item(key) If Err.Number <> 0 Then ExistsCollection = False Else ExistsCollection = True End If On Error GoTo 0 End Function ' 使い方 ExistsCollection(c, "Key1")	dict.Exists("Key1")	無し	sortedList.ContainsKey("Key1")
値の存在チェック	無し	無し	arrayList.Contains("Value1")	sortedList.ContainsValue("Value1")
全削除	' 全削除は無いので新規作成する。 ' 他で参照のコピーを持っている場合、そっちはクリアされない Set c = New Collection	dict.RemoveAll	arrayList.Clear	sortedList.Clear

備考

CreateObjectで
「実行時エラー '-2146232576(80131700)':オートメーションエラーです。」
のエラーが出る場合があります。

その場合は「Windowsの機能の有効化または無効化」から「.NET Framework 3.5 (.NET 2.0および3.0を含む)」を有効化してください。

リンク

Dictionary：https://msdn.microsoft.com/ja-jp/library/cc428065.aspx
ArrayList：https://docs.microsoft.com/ja-jp/dotnet/api/system.collections.arraylist?view=netframework-4.7.2
SortedList：https://docs.microsoft.com/ja-jp/dotnet/api/system.collections.sortedlist