當前位置:成語大全網 - 新華字典 - Excel VBA求助,字典與數組轉換的問題

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