我们利用VBA的字典功能时，需要用到以下6个方式：Add方式、Keys方式、Items方式、Exists方式、Remove方式、RemoveAll方式。
工具/原料
- 电脑
- 操作系统：Windows7
- 办公软件：EXCEL2007
方式/步骤
- 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：断根字典中所有的数据。也就是清空这字典，然后可以添加新的关头字和项，形当作一本新字典。
