VBA字典用法集锦及代码详解(3)

实例1 普通常见的求不重复值问题

[a2].Resize(d.Count, 1) = Application.Transpose(k) [b2].Resize(d.Count, 1) = Application.Transpose(t) [a1].Resize(1, 2) = Array(\姓名\\重复个数\Set d = Nothing End Sub

三、代码详解

1、Dim i&, Myr&, Arr ：变量i和Myr声明为长整型变量。 也可以写为 Dim Myr As Long 。Long 的类型声明字符为(&)。Arr后面没有写明数据类型，默认就是可变型数据类型(Variant)。

2、Set d = CreateObject(\：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\\windows\\system32\\scrrun.dll了。

3、Myr = Sheet1.[a65536].End(xlUp).Row ：把表1的A列最后一行不为空白的行数赋给变量Myr。这里用了Range对象的End属性，它有4个方向参数，此处的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) ：For…Next循环结构，从2开始到数组的最大上界值之间循环。因为数组的第一行是表头。Ubound是VBA函数，返回数组的指定维数的最大可用上界。

6、d(Arr(i, 3)) = d(Arr(i, 3)) + 1 ：Arr(i,3)在本例是姓名列，也就是关键字列，举个例子，假如Arr(i,3)=”张三”，这句代码的意思就是把关键字”张三”加入字典，d(key)等于关键字key对应的项，每出现一次这个关键字，它的项的值就增加1。起到了按关键字累加的作用，也正因为有这个作用，所以可使用字典来进行各种汇总统计。后面要讲的实例会充分的展现这个作用。

7、k=d.keys ：把字典d中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。Keys是字典的方法，前面已经讲过了。

8、t=d.items ：把字典d中存在的所有的关键字对应的项赋给变量t。得到的也是一个一维数组，下限为0，上限为d.Count-1。Items也是字典的方法，前面也已经讲过了。

9、Sheet2.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单元格开始的单元格区域中。

11

常见字典用法集锦及代码详解

12、[a1].Resize(1, 2) = Array(\姓名\重复个数\：Array是一个VBA函数，返回一个下界为0的一维数组。一维数组可以看作是水平排列的，所以赋值给水平的单元格区域不需要用转置函数了。这里作为表头一次性输入。

13、Set d = Nothing ：释放字典内存。

代码执行后如图实例1-2所示。

图 实例1-2

实例2 求多表的不重复值问题

一、问题的提出：

一工作簿里面有3张工作表上，每张表格的A列都是姓名列，所有这些姓名中有些是重复的，要求编写一段代码，在另一个工作表上显示不重复的姓名。

如图实例2－1所示。

12

实例2 求多表的不重复值问题

图 实例2-1

这个问题也很适合用字典来解决。代码如下：

二、代码： Sub bcfz()

Dim i&, Myr&, Arr

Dim d, k, t, Sht As Worksheet

Set d = CreateObject(\For Each Sht In Sheets

If Sht.Name <> \Then Myr = Sht.[a65536].End(xlUp).Row Arr = Sht.Range(\& Myr) For i = 1 To UBound(Arr) d(Arr(i, 1)) = \ Next End If

13

常见字典用法集锦及代码详解

Next k = d.keys

Sheet4.[a3].Resize(d.Count, 1) = Application.Transpose(k) Set d = Nothing End Sub 三、代码详解

1、For Each Sht In Sheets ：For Each…Next循环结构，这种形式是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(\ ：把A列数据赋给数组Arr。 5、For i = 1 To UBound(Arr) ：For…Next循环结构，从1开始到数组的最大上限值之间循环。Ubound是VBA函数，返回数组的指定维数的最大值。

6、d(Arr(i, 1)) = “” ：这句代码的意思就是把关键字Arr(i,1)加入字典，关键字对应的项为空，相当于字典中的这个关键字没有解释。和d.Add Arr(i,1), \的效果相同，只是代码更简洁一些。

7、k=d.keys ：把字典d中存在的所有的关键字赋给变量k。得到的是一个一维数组，下限为0，上限为d.Count-1。Keys是字典的方法，前面已经讲过了。

8、Sheet4.[a3] .Resize(d.Count, 1) = Application.Transpose(k) ：把字典d中所有的关键字赋给表4以a3单元格开始的单元格区域中。

代码执行后如图实例2-2所示。

14

实例3 A列中显示1 ~ 1000中被6除余1和余5 的数字

图 实例2-2

实例3 A列中显示1 ~ 1000中被6除余1和余5 的数字

一、问题的提出：

有1、2、3…1000一千个数字，要求编写一段代码，在工作表的A列显示这些数被6除余1和余5的数字。

二、代码：

Sub 余1余5() ?by:狼版主 Dim dic As Object, i As Long, arr

Set dic = CreateObject(\For i = 1 To 1000

dic.Add i & IIf(Abs(i Mod 6 - 3) = 2, \\\Next

15

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VBA字典用法集锦及代码详解(3)在线全文阅读。