vba词典和数组

没有直接的一个语句完成数组与字典的转换，只有循环复制，例如：

set?db=createobject("scripting.dictionary")

arr=range("a1:b:100")

for?i=1?to?100

db(arr(i,1))=db(arr(i,1))+arr(i,2)

next?i

'自动转换为数组

for?each?k?in?db.keys

arr(i,1)=k

arr(i,2)=db(k)

next?k