Dictionaryオブジェクトの基本的な使い方（要素の格納と取り出し）

Sub dictionary()

'Dictionaryオブジェクトの宣言
Dim dic As New dictionary

'Dictionaryオブジェクトにキーと値を入れます。
'キーが左（リンゴとかバナナとか）
'アイテムが右（青森とかフィリピンとか）
dic.Add "リンゴ", "青森"
dic.Add "バナナ", "フィリピン"
dic.Add "メロン", "北海道"

'一つだけキーとアイテムを取り出す方法
MsgBox (dic.Keys(0) & ":" & dic.Item("リンゴ"))

'全てのキーとアイテムを取り出す方法
Dim str As String
Dim l As Variant
For Each l In dic
    str = str & l & ":" & dic.Item(l) & vbCrLf
Next
MsgBox (str)
End Sub

Sub dictionaryAdd()
Dim dic As New dictionary
dic.Add "リンゴ", "青森"
End Sub

Sub dictionaryKeys()
Dim dic As New dictionary
dic.Add "リンゴ", "青森"
MsgBox (dic.Keys(0))
End Sub

Sub dictionaryItem()
Dim dic As New Dictionary
Dim str As String
dic.Add "リンゴ", "青森"
str = dic.Keys(0)
MsgBox (dic.Item(str))
End Sub

Sub dictionaryオブジェクト全部出し()
Dim dic As New dictionary
dic.Add "リンゴ", "青森"
dic.Add "バナナ", "フィリピン"
dic.Add "メロン", "北海道"
Dim l As Variant'Variant型にしないとエラーになります。
'for each文でまわすとキーをまわす事になります。
For Each l In dic
    Debug.Print l 'キー
    Debug.Print dic.Item(l)  'アイテム
Next
End Sub

Sub エクセルから直接Dictionaryに格納()
'ディクショナリーオブジェクトの宣言
Dim dic As New dictionary

Dim Rng As Range '格納するエクセルの範囲
Dim r As Range 'for each文で使用

'=======================================================
'格納する範囲をセット
'実務で使用する場合はRngの範囲を変更してください
'=======================================================
Set Rng = ActiveSheet.Range("A3:A5")

'=======================================================
'一つずつディクショナリーオブジェクトに入れていく
'実務で使用する場合はキーとアイテムの範囲を変更してください
'=======================================================
For Each r In Rng
    dic.Add r.Value, r.Offset(, 1).Value
Next


'全てのキーとアイテムを取り出す方法
Dim str As String
Dim l As Variant
For Each l In dic
    str = str & l & ":" & dic.Item(l) & vbCrLf
Next
MsgBox (str)
End Sub