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

发布网友发布时间：2022-05-02 12:06

共4个回答

热心网友时间：2022-06-20 00:19

将字典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 两列即可

热心网友时间：2022-06-20 00:19

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

热心网友时间：2022-06-20 00:20

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

热心网友时间：2022-06-20 00:20

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com