字典对象(一)：基本原理.pdfVIP

字典对象（一） ：基本原理 「VBA 」学习系列第 15 篇 终于到了 VBA 的装逼利器——字典对象 （Dictionary ）。现在写段 VBA 代码解决实际问题， 如果不写 个字典对象， 都不好意思自称会 VBA ，更体现不了你的实力 和逼格。 不过，字典对象确实有其独特的地方，不 仅有不可替代的功能还能极大地提高程序运行效率。那什么 是字典对象呢？简单地理解，字典对象可以理解为一个二维 数组，第一列称为关键字 Key ，Key 列具有唯一不重复性， 这是字典对象最重要的特性； 第二列称为项目 Item ，Item 列 可以放各种类型的变量，包括数值、字符、日期甚至对象。 字典对象有 6 个方法和 4 个属性。简单，易用，但 无比强大。字典对象的属性和方法方法 6 个：Add ／Keys ／ Items ／Exists ／Remove ／RemoveAll 属性 4 个： Count ／Key ／Item ／CompareMode 01 字典对象的方法 ＃1 ：AddAdd 方法向字典对象中添加一个关键字项目对。 object.Add(key, item) 代码详解 1 、Dim d ：创建变量，也称为声明变量。变量 d 声明为可变型数据类型 (Variant) ，d 后面没有写数据类型， 默认就是可变型数据类型 (Variant) 。也有写成 Dim d As Object ，声明为对象。 2 、Set d = CreateObject(Scripting.Dictionary) ：创建字典对象，并把 字典对象赋给变量 d 。这是最常用的一句代码。 3 、d.Add a, Frank ：添加一关键字“ a ”和对应于它的项“ Frank4 、d.Add”。 b, “Lily添加一关键字“”： b”和对应于它的项“ 5Lily、d.Addc,”。 “Susan ”：添加一关键字“ c ”和对应于它的项“ Susan＃”。2 ： Exists Exists 方法实现如果 Dictionary 对象中存在 所指定的关键字则返回 true ，否则返回 false 。 object.Exists(key) 代码详解 If d.Exists(c) Then ：如果字典中存在关键字“ c ”， 那么执行下面的语句。 ＃3 ：KeysKeys 方法返回一个数组， 其中包含了一个 Dictionary 对象中的全部现有的关键字。 object.Keys( ) 其中 object 总是一个 Dictionary 对象的名 称。 代码详解 1 、k=d.Keys ：把字典中存在的所有的关键字赋给 变量 k 。得到的是一个一维数组， 下限为 0 ，上限为 d.Count-1 。 这是数组的默认形式。 2 、 [B1].Resize(d.Count,1)=Ap