VBA-Dictionary基本用法

1.创建Dictionary

Set dict = CreateObject("Scripting.Dictionary") 

2.增加项目

dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500

另外，使用dict.item(key)=value，如果dict中没有关键字key，会自动添加key:value对。

3.删除项目

dict.Remove("A")//删除key指定的元素

dict.RemoveAll()//删除所有的键值对 

 3.判断关键字是否存在

dict.exists("A")//如果存在，返回true，否则返回false

4.遍历

dict.keys()//返回包含所有key的数组

dict.Items()//返回包含所有value的数组

使用for循环实现遍历

5.声明

有时候会将字典变量当做全局变量（多个过程共用），字典属于Object类型，因此需要这样声明：

Dim dict As Object

然后再过程中对dict进行创建或初始化：

Set dict = CreateObject("Scripting.Dictionary") 

6.参数传递

例如一个向dict中添加元素的自定义方法，可以这样声明

addDict(dict As Variant)