vba里面没有hashtable,不过可以使用Dictionary来意思一下
如下
定义和创建一个Dictionary
Dim
coll
Set coll = CreateObject ( " Scripting.Dictionary " )
Set coll = CreateObject ( " Scripting.Dictionary " )
添加一个对象到Dictionary里面
coll.Add r1.Value, r1.Value
检查一个对象是否存在于Dictionary
coll.Exists(r1.Value)
删除一个对象
coll.Remove key
获取一个对象
coll.item(key)