EXCEL VBA 連想配列

1．サンプル

Dim myDict As Object
Dim i As Variant 

Set myDict = CreateObject("Scripting.Dictionary")

 '' セット
 myDict.Add "A", 10
 myDict.Add "B", 20
 myDict.Add "C", 30

 ''表示
 For Each i In myDict
    Debug.Print i
    Debug.Print myDict(i)
  Next i

2.実行結果

myDict の内容が表示されます