Excel 請教字典中key有沒有遍歷的方法

壹般使用for each語句遍歷，例如：

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