vba中的Dictionary对象

vba里面没有hashtable,不过可以使用Dictionary来意思一下

如下

定义和创建一个Dictionary

 

Dim coll
Set coll = CreateObject("Scripting.Dictionary") 

添加一个对象到Dictionary里面

 

coll.Add r1.Value, r1.Value

 检查一个对象是否存在于Dictionary

 

coll.Exists(r1.Value)

删除一个对象

coll.Remove key

获取一个对象

coll.item(key)