一般使用for each语句遍历，例如：
Dim db,k,v,i
set db = createobject("scripting.dictionary")
for i=1 to 10
k=cells(i,1)
v=cells(i,2)
db(k)=db(k)+v
next i
i=1
for each k in db.keys
v=db(k)
cells(i,4)=k
cells(i,5)=v
i=i+1
next k
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024