教你学会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：清除字典中所有的数据。也就是清空这字典，然后可以添加新的关键字和项，形成一本新字典。