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对。
在使用cells读取数值存放到数组中时，一定要加value；cells(i,j).value否则会将一个range对象赋值给字典

标题3.删除项目

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

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

标题 4.判断关键字是否存在

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

标题5.遍历

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

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

使用for循环实现遍历

标题6.声明

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

Dim dict As Object

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

Set dict = CreateObject(“Scripting.Dictionary”)

标题7.参数传递

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

addDict(dict As Variant)