Excel Dictionaryオブジェクト(連想配列)をセルに代入する

Question

Dictionaryオブジェクト(連想配列)をセルに代入する際、
Rangeを使い一気に代入することはできますか。
Cells(i, 1) = data1
Cells(i, 2) = Dic.Item(data1)
の部分の代入を一回でできればと思っています。
よろしくお願いします。

Sub test2()
    Dim Dic As Object
    Set Dic = CreateObject("Scripting.Dictionary")
    Dic.Add "A001", "ぶどう"
    Dic.Add "A002", "レモン"
    Dic.Add "A003", "みかん"
    
    Dim data1 As Variant
    Dim i As Long
    i = 1
    For Each data1 In Dic
        Cells(i, 1) = data1
        Cells(i, 2) = Dic.Item(data1)
        i = i + 1
    Next
End Sub

Answer 1

Sub test2()
    Dim Dic As Object
    Set Dic = CreateObject("Scripting.Dictionary")
    Dic.Add "A001", "ぶどう"
    Dic.Add "A002", "レモン"
    Dic.Add "A003", "みかん"
    
    Cells(1, 1).Resize(Dic.Count, 1).Value = Application.Transpose(Dic.Keys)
    Cells(1, 2).Resize(Dic.Count, 1).Value = Application.Transpose(Dic.Items)
    
    Set Dic = Nothing
End Sub

こちらでしょうか？

Comments

[nkym771]

ありがとうございます。
KeyとItemをペアで入力することを考えていましたが、
Keyごと、Itemごとに入力できるのですね。
データの数が増えても入力にかかる時間はあまり変わらなそうですね。
ありがとうございました。