我们使用VBA的字典功能时，需要用到以下6个方法：Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。工具/原料more电脑操作系统：Windows7办公软件：EXCEL2007方法/步骤1/6分步阅读

Add方法：object.Add (key, item)，其实就是向 Dictionary 对象中添加一个关键字项目对，例如：

Dim d

Set d = CreateObject(Scripting.Dictionary)

d.Add a, Athens

添加一关键字”a”和对应于它的项”Athens”。

2/6

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/6

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

.Resize(d.Count,1)=Application.Transpose(k)

k=d.Keys：把字典中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。

4/6

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

.Resize(d.Count,1)=Application.Transpose(t)

t=d.Items ：把字典中所有的关键字对应的项赋给变量t。得到的也是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。

5/6

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/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/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 对象中清除所有的关键字，项目对。

注意事项

希望能帮助到你

VBA字典方法代码EXCEL