Excel 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