Excel 请教字典中key有没有遍历的方法-Excel字典查询,excel字典怎么做

一般使用知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

见如下代百码：

Sub test()

Dim dict

' 创建度Dictionary
Set dict = CreateObject("Scripting.Dictionary")

' 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500

' 对字典版进行权循环
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
  Key = k(i)
  Value = v(i)
  MsgBox Key & Value
Next

End Sub

因为导出数据是以文本方式显示的。 选中数据所在列——数据——分列——固定宽度——下一步——下一步——常规——完成。 将文本转换为数字，即可求和。

d.exists(查找的值) 是检查是否存在
for each k in d.keys 遍历key值
数组=d.keys key值装入数组