参照設定：microsoft scripting runtime オブジェクト：dictionary こんな感じで使う↓ Sub aaa() Dim aaa As Dictionary Set aaa = New Dictionary aaa.Add "aaa", 1 aaa.Add "bbb", 2 MsgBox aaa.Item("aaa") & vbCrLf & _ aaa.Item("bbb") End Sub ・参考…