请教学习字典代码

咖啡

Dim rng As Range, d     Dim i, My%, k     Set d = CreateObject("Scripting.Dictionary")     My = ActiveSheet.Range("B65535").End(xlUp).Row - 1     For Each rng In ActiveSheet.Range("b3:b" & My)          d(rng.Value) = ""     Next     k = d.keys     For i = 0 To UBound(k)         If k(i) Like "*" & ActiveCell & "*" Then               ListBox搜索结果.AddItem k(i)         End If     Next 请教字典代码的涵义，上面红色的代码是什么意思？麻烦老师们详解。谢谢

活在理想的世界

不要赋值给k,直接FOR EACH 循环 d.keys

活在理想的世界

Set d = CreateObject("Scripting.Dictionary") 创建字典&后期绑定
d(rng.Value) = "" 装字典
k = d.keys将字典的不重复值赋值给数组k

最后补充一句，不要赋值给k,直接FOR EACH 循环 d.keys。

我是来讨说法的

http://club.excelhome.net/thread-868892-1-1.html