Question

Excel VBA求助，如何把字典转换成数组存出来

Answer 1

将 字典d 放到 A:B 列:
[a1].Resize(d.Count) = Application.Transpose(d.keys)
[b1].Resize(d.Count) = Application.Transpose(d.items)

d.keys 是一个数组， d.items是一个数组
transpose 数组 转置
转置 后放在A:B 两列 即可

Answer 2

直接赋值就行啊
arr = d.keys

Answer 3

Sub zhuanhuan()
    Dim dic As New Dictionary
    Dim Arr(), Brr()
    dic.Add "Key1", "Item1"
    dic.Add "Key2", "Item2"
    dic.Add "Key3", "Item3"
    Arr = dic.Keys
    Brr = dic.Items
    Debug.Print Arr(1), Brr(1)
    dic.RemoveAll
    Erase Arr, Brr
End Sub

Answer 4

x=dic.keys '或者x=dic.items
debug.print join(x,vbcrlf)