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

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