【怎么用excel唱票】Excel VBA词典的常用方法

使用词典时比较数组。主要利用词典的消除效果。

两个最常用的应用程序：

第一：统计同名销售额

第二：统计系统名称的发生次数(歌曲)

统计销售示例：

首先看一下可执行代码。

运行结果与h、I列数据观点的结果一致。

具体代码如下：

代码详细信息：

1.声明Dim变量

2.set DIC声明词典

3.nRow从列a中读取最后一个非空单元格的行数

4.range ('a23360c' nrow)传递给阵列arr

5.阅读数组，人名作为词典的钥匙，达到去除重量的目的，将销售汇总到item中，达到代码累计销售额的目的

For I=1 To UBound(arr)

Dic (arr (I，1))=DIC (arr (I，1)) arr (I，3)

Next I

Dic (arr (I，1))=DIC (arr (I，1)) arr (I，3)使用常规计数

6.[E1]=[A1] [F1]=[C1]标题栏设置

7.将字典的keys和items写入该区域

统计票数示例：

首先看一下正在运行的代码。

具体代码如下：

代码详细信息：

1.声明Dim变量

2.set DIC声明词典

3.nRow从列a中读取最后一个非空单元格的行数

4.RangeRange('B2:D' nRow)将传递给阵列arr

5.阅读数组，将人名作为词典的密钥，达到沉重的目的，统计计数器中出现的数量，将数据传递给词典的item

For I=1 To UBound(arr)

For j=1 To UBound(arr，2)

Dic(arr(i，j))=dic(arr(i，j)) 1

next j。

Next I

Dic(arr(i，j))=dic(arr(i，j)) 1 3)使用常规计数

7.将字典的keys和items写入该区域

注：两种代码在将词典的keys和items写入相应表单时的用法不同。一个是单独用的，一个是一次性用的。