Dictionaryのキー/アイテム(要素)をセルに反映する【ExcelVBA】

連想配列Dictionaryの中身をエクセルに反映したい場合があります。
その場合は、ForEachでループして書き出してしまえばよいです。

Dictionaryのキー/アイテムをセルに反映するサンプルコード
関連記事

Dictionaryのキー/アイテムをセルに反映するサンプルコード

'参照設定　Microsoft Scripting Runtime
Public Sub sample()
    Dim dic As Dictionary
    Set dic = New Dictionary
    
    '■dicに値をいれる
    dic.Add "111", "aaa"
    dic.Add "222", "bbb"
    dic.Add "333", "ccc"
    
    
    '■dicをセルに書き出す
    Dim dKey  As Variant
    Dim r As Long: r = 1
    For Each dKey In dic
        Cells(r, 1) = data1
        Cells(r, 2) = dic.Item(data1)
        r = r + 1
    Next
End Sub