如题所述
将 字典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 两列 即可
[a1].Resize(d.Count) = Application.Transpose(d.keys)
[b1].Resize(d.Count) = Application.Transpose(d.items)
d.keys 是一个数组， d.items是一个数组
transpose 数组 转置
转置 后放在A:B 两列 即可
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-03-15
直接赋值就行啊
arr = d.keys
arr = d.keys
第2个回答 2016-12-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
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
第3个回答 2018-03-15
x=dic.keys '或者x=dic.items
debug.print join(x,vbcrlf)
debug.print join(x,vbcrlf)
