EXCEL VBA 常见字典用法集锦及代码详解全Word下载.docx

1、key 与被添加的 item 相关联的 key。item 与被添加的 key 相关联的 item。说明如果 key 已经存在，那么将导致一个错误。常用语句：Dim d Set d = CreateObject（Scripting.Dictionary）d.Add a, AthensbBelgradecCairo代码详解1、Dim d ：创建变量，也称为声明变量。变量d声明为可变型数据类型（Variant），d后面没有写数据类型，默认就是可变型数据类型（Variant）。也有写成Dim d As Object的，声明为对象。2、Set d = CreateObject（）：创建字典对象，并把字典

2、对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:windowssystem32scrrun.dll了。3、d.Add ：添加一关键字”a”和对应于它的项”Athens”。4、d.Add , “Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。5、d.Add , “Cairo”：添加一关键字”c”和对应于它的项”Cairo”。Exists方法如果 Dictionary 对象中存在所指定的关键字则返回 true，否则返回 false。object.Exists（key）需要在 Dictionary 对象中搜索的 key 值。Dim d,

3、 msg$ Set d = CreateObject（ d.Add If d.Exists（） Then msg = 指定的关键字已经存在。 Else指定的关键字不存在。 End If1、Dim d, msg$ ：声明变量，d见前例；msg$ 声明为字符串数据类型（String），一般写法为Dim msg As String。String 的类型声明字符为美元号 （$）。2、If d.Exists（） Then：如果字典中存在关键字”c”，那么执行下面的语句。3、msg = ：把字符串赋给变量msg。4、Else ：否则执行下面的语句。5、msg = 6、End If ：结束If ElseEn

4、dif判断。Keys方法返回一个数组，其中包含了一个 Dictionary 对象中的全部现有的关键字。object.Keys（ ）其中 object 总是一个 Dictionary 对象的名称。Dim d, k k=d.Keys B1.Resize（d.Count,1）=Application.Transpose（k）1、Dim d, k ：k默认是可变型数据类型（Variant）。2、k=d.Keys：把字典中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。这是数组的默认形式。3、B1.Resize（d.Count,1）=Application.Tra

5、nspose（k） ：这句代码是很常用很经典的代码，所以这里要多说一些。Resize是Range对象的一个属性，用于调整指定区域的大小，它有两个参数，第一个是行数，本例是d.Count，指的是字典中关键字的数量，整本字典中有多少个关键字，本例d.Count=3，因为有3个关键字。呵呵，是不是说多了。第二个是列数，本例是1。这样左边的意思就是：把一个单元格B1调整为以B1开始的一列单元格区域，行数等于字典中关键字的数量d.Count，就是把单元格B1调整为单元格区域B1：B3了。右边的k是个一维数组，是水平排列的，我们知道Excel工作表函数里面有个转置函数Transpose，用它可以把水平排列

6、的置换成竖向排列。但是在VBA中不能直接使用该工作表函数，需要通过Application对象的WorksheetFunction属性来使用它。所以完整的写法是Application. WorksheetFunction.Transpose（k），中间的WorksheetFunction可省略。现在可以解释这句代码了：把字典中所有的关键字赋给以B1单元格开始的单元格区域中。Items方法返回一个数组，其中包含了一个 Dictionary 对象中的所有项目。object.Items（ ）Dim d, t t=d.Items C1.Resize（d.Count,1）=Application.Tran

7、spose（t）1、Dim d, t ：t默认是可变型数据类型（Variant）。2、t=d.Items ：把字典中所有的关键字对应的项赋给变量t。得到的也是一个一维数组，下限为0，上限为d.Count-1。3、C1.Resize（d.Count,1）=Application.Transpose（t） ：有了上面Keys方法的解释这句代码就不用多说了，就是把字典中所有的关键字对应的项赋给以C1单元格开始的单元格区域中。Remove方法Remove 方法从一个 Dictionary 对象中清除一个关键字，项目对。object.Remove（key ）key 与要从 Dictionary 对象中删

8、除的关键字，项目对相关联。如果所指定的关键字，项目对不存在，那么将导致一个错误。Dim d d.Remove（“b”）1、d.Remove（“b”）：清除字典中”b”关键字和与它对应的项。清除之后,现在字典里只有2个关键字了。RemoveAll方法RemoveAll 方法从一个 Dictionary 对象中清除所有的关键字，项目对。object.RemoveAll（ ） d.RemoveAll1、d.RemoveAll：清除字典中所有的数据。也就是清空这字典，然后可以添加新的关键字和项，形成一本新字典。字典对象的属性有4个：Count属性、Key属性、Item属性、CompareMode属性。

9、Count属性返回一个Dictionary 对象中的项目数。只读属性。 object.Count其中 object一个字典对象的名称。Dim d,n% n = d.Count1、Dim d, n% ：n被声明为整型数据类型（Integer）。一般写法为Dim n As Integer 。 Integer 的类型声明字符为百分比号 （%）。2、n = d.Count ：把字典中所有的关键字的数量赋给变量n。本例得到的是3。Key属性在 Dictionary 对象中设置一个 key。object.Key（key） = newkey参数：总是一个字典 （Dictionary） 对象的名称。被改变的

10、key 值。newkey 替换所指定的 key 的新值。如果在改变一个 key 时没有发现该 key，那么将创建一个新的 key 并且其相关联的 item 被设置为空。 d.Key（） = d1、d.Key（用新的关键字”d”来替换指定的关键字”c”，这时，字典中就没有关键字c了，只有关键字d了，与d对应的项是”Cairo”。Item属性在一个 Dictionary 对象中设置或者返回所指定 key 的 item。对于集合则根据所指定的 key 返回一个 item。读/写。object.Item（key） = newitem总是一个Dictionary 对象的名称。与要被查找或添加的 item

11、 相关联的 key。newitem 可选项。仅适用于 Dictionary 对象；newitem 就是与所指定的 key 相关联的新值。如果在改变一个 key 的时候没有找到该 item，那么将利用所指定的 newitem 创建一个新的 key。如果在试图返回一个已有项目的时候没有找到 key，那么将创建一个新的 key 且其相关的项目被设置为空。 MsgBox d.Item（） 1、d.Item（） ：获取指定的关键字”c”对应的项。2、MsgBox ：是一个VBA函数，用消息框显示。如果要详细了解MsgBox函数的，可参见我的另一篇文章“常用VBA函数精选合集”。CompareMode属性

12、设置或者返回在 Dictionary 对象中进行字符串关键字比较时所使用的比较模式。object.CompareMode = comparecompare 如果提供了此项，compare 就是一个代表比较模式的值。可以使用的值是 0 （二进制）、1 （文本）, 2 （数据库）。如果试图改变一个已经包含有数据的 Dictionary 对象的比较模式，那么将导致一个错误。 d.CompareMode = vbTextCompare B Baltimore1、d.CompareMode = vbTextCompare ：设置字典的比较模式是文本，在这种比较模式下不区分关键字的大小写，即关键字”b”和

13、”B”是一样的。vbTextCompare的值为1，所以上式也可写为 d.CompareMode =1 。如果设置为vbBinaryCompare（值为0），则执行二进制比较，即区分关键字的大小写，此种情况下关键字”b”和”B”被认为是不一样的。2、d.Add 添加一关键字”B”和对应于它的项”Baltimore”。由于前面已经设置了比较模式为文本模式，不区分关键字的大小写，即关键字”b”和”B”是一样的，此时发生错误添加失败，因为字典中已经存在”b”了，字典中的关键字是唯一的，不能添加重复的关键字。实例1 普通常见的求不重复值问题一、问题的提出：表格中人员有很多是重复的，要求编写一段代码，把

14、重复的人员姓名以及重复的次数求出来，复制到另一个表格中。如图实例11所示。论坛网址：图 实例1-1 二、代码：Sub cfz（）Dim i&, Myr&, ArrDim d, k, tMyr = Sheet1.a65536.End（xlUp）.RowArr = Sheet1.Range（a1:g & Myr）For i = 2 To UBound（Arr） d（Arr（i, 3） = d（Arr（i, 3） + 1Nextk = d.keyst = d.itemsSheet2.Activatea2.Resize（d.Count, 1） = Application.Transpose（k）b2.

15、Resize（d.Count, 1） = Application.Transpose（t）a1.Resize（1, 2） = Array（姓名重复个数Set d = NothingEnd Sub三、代码详解1、Dim i&, Arr ：变量i和Myr声明为长整型变量。 也可以写为 Dim Myr As Long 。Long 的类型声明字符为（&）。Arr后面没有写明数据类型，默认就是可变型数据类型（Variant）。3、Myr = Sheet1.a65536.End（xlUp）.Row ：把表1的A列最后一行不为空白的行数赋给变量Myr。这里用了Range对象的End属性，它有4个方向参数，此

16、处的xlUp表示向上，它的值为3，所以也可写成End（3）。xlDown表示向下，它的值为4；xlToLeft表示向左，它的值为1；xlToRight表示向右，它的值为2。4、Arr = Sheet1.Range（ Myr）：把表1的A1到G列最后一行不为空白的 单元格区域的值赋给变量Arr。这样Arr就是个二维数组了，用数组替代单元格引用可对执行代码的速度提高很多很多。5、For i = 2 To UBound（Arr） ：ForNext循环结构，从2开始到数组的最大上界值之间循环。因为数组的第一行是表头。Ubound是VBA函数，返回数组的指定维数的最大可用上界。6、d（Arr（i, 3）

17、 = d（Arr（i, 3） + 1 ：Arr（i,3）在本例是姓名列，也就是关键字列，举个例子，假如Arr（i,3）=”张三”，这句代码的意思就是把关键字”张三”加入字典，d（key）等于关键字key对应的项，每出现一次这个关键字，它的项的值就增加1。起到了按关键字累加的作用，也正因为有这个作用，所以可使用字典来进行各种汇总统计。后面要讲的实例会充分的展现这个作用。7、k=d.keys ：把字典d中存在的所有的关键字赋给变量k。Keys是字典的方法，前面已经讲过了。8、t=d.items ：把字典d中存在的所有的关键字对应的项赋给变量t。Items也是字典的方法，前面也已经讲过了。9、She

18、et2.Activate ：激活表2。10、a2.Resize（d.Count, 1） = Application.Transpose（k） ：把字典d中所有的关键字赋给以a2单元格开始的单元格区域中。详细的解释请见前面的keys方法一节。11、b2.Resize（d.Count, 1） = Application.Transpose（t） ：把字典d中所有的关键字对应的项赋给以b2单元格开始的单元格区域中。12、a1.Resize（1, 2） = Array（Array是一个VBA函数，返回一个下界为0的一维数组。一维数组可以看作是水平排列的，所以赋值给水平的单元格区域不需要用转置函数了。这

19、里作为表头一次性输入。13、Set d = Nothing ：释放字典内存。代码执行后如图实例1-2所示。图 实例1-2 实例2 求多表的不重复值问题一工作簿里面有3张工作表上，每张表格的A列都是姓名列，所有这些姓名中有些是重复的，要求编写一段代码，在另一个工作表上显示不重复的姓名。如图实例21所示。图 实例2-1 这个问题也很适合用字典来解决。代码如下：Sub bcfz（）Dim d, k, t, Sht As WorksheetFor Each Sht In Sheets If Sht.Name Sheet4 Then Myr = Sht.a65536.End（xlUp）.Row Arr

20、= Sht.Range（a2: For i = 1 To UBound（Arr） d（Arr（i, 1） = NextSheet4.a3.Resize（d.Count, 1） = Application.Transpose（k）1、For Each Sht In Sheets ：For EachNext循环结构，这种形式是VBA特有的，用于对对象的循环非常适用。意思是在所有的工作表中依次循环。2、If Sht.Name Then ：如果这个工作表的名字不等于”Sheet4”时执行下面的代码。3、Myr = Sht.a65536.End（xlUp）.Row ：求得这个工作表A列有数据的最后一行的行数，把它赋给变量Myr。这里用了长整型数据类型（Long），数据范围最大可到2,147,483,647，是为了避免数据很多的时候会超出整型数据类型（Integer）而出错，因为整型数据类型数据范围最大只到32,767。4、Arr = Sht.Range（ Myr） ：把A列数据赋给数组Arr。5、For i = 1 To UBound（Arr） ：ForNext循环结构，从1开始到数组的最大上限值之间循环。Ubound是VBA函数，返回数组的指定维数的最大值。6、d（Arr（i, 1） = “” ：这句代码的意思就是把关键字Arr（i,1）加入字典，关键字对