教你学会VBA字典的6个方法
1、Add方法：object.Add (key, item)，其实就是向 Dictionary 对象中添加一个关键字项目对，例如：
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
添加一关键字”a”和对应于它的项”Athens”。
2、Exists方法：object.Exists(key)
如果 Dictionary 对象中存在所指定的关键字则返回 true，否则返回 false。例子如下：
Dim d, msg$
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
If d.Exists("c") Then
msg = "指定的关键字已经存在。"
Else
msg = "指定的关键字不存在。"
End If
3、Keys方法：object.Keys( )
返回一个数组，其中包含了一个 Dictionary 对象中的全部现有的关键字。实例说明：
Dim d, k
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
k=d.Keys
[B1].Resize(d.Count,1)=Application.Transpose(k)
k=d.Keys：把字典中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。
4、Items方法：object.Items( )
返回一个数组，其中包含了一个 Dictionary 对象中的所有项目。实例运用：
Dim d, t
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
t=d.Items
[C1].Resize(d.Count,1)=Application.Transpose(t)
t=d.Items ：把字典中所有的关键字对应的项赋给变量t。得到的也是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。
5、Remove方法：object.Remove(key )
Remove 方法从一个 Dictionary 对象中清除一个关键字，项目对。实例说明：
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
d.Remove(“b”)
d.Remove(“b”)：清除字典中”b”关键字和与它对应的项。清除之后,现在字典里只有2个关键字了。
6、RemoveAll方法：object.RemoveAll( )
RemoveAll 方法从一个 Dictionary 对象中清除所有的关键字，项目对。
实例说明
Dim d
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
……
d.RemoveAll
这里的d.RemoveAll：清除字典中所有的数据。也就是清空这字典，然后可以添加新的关键字和项，形成一本新字典。
1、教你学会VBA字典的6个方法：
（1）Add方法：object.Add (key, item)，其实就是向 Dictionary 对象中添加一个关键字项目；
（2）Exists方法：object.Exists(key)，如果 Dictionary 对象中存在所指定的关键字则返回 true，否则返回 false；
（3）Keys方法：object.Keys( )返回一个数组，其中包含了一个 Dictionary 对象中的全部现有的关键字；
（4）Items方法：object.Items( )，返回一个数组，其中包含了一个 Dictionary 对象中的所有项目；
（5）Remove方法：object.Remove(key )，Remove 方法从一个 Dictionary 对象中清除一个关键字，项目对；
（6）RemoveAll方法：object.RemoveAll( )
RemoveAll 方法从一个 Dictionary 对象中清除所有的关键字，项目对。