第三章 字典

3.5 字典嵌套数组

字典的条目可以是一个数值，也可以是一个数组。用数组来做字典的条目，可以极大地提升字典的使用空间，让报表处理变得更便捷。现在例举一个小程序来说明字典条目使用数组的方法。

小程序：

把左边的表格进行分类汇总，然后输出到E列，形成右边的表格。

一班	15	A		一班	70	A
一班	20	A		二班	109	B
一班	35	A		三班	183	C
二班	44	B		四班	267	D
二班	28	B		五班	276	E
二班	37	B		六班	289	F
三班	66	C
三班	18	C
三班	99	C
四班	88	D
四班	89	D
四班	90	D
五班	91	E
五班	92	E
五班	93	E
六班	94	F
六班	95	F
六班	100	F

Sub 字典嵌套数组()

Dim d As New Dictionary

arr = Range("a1").CurrentRegion

For i = 1 To UBound(arr)

If d.Exists(arr(i, 1)) Then

d(arr(i, 1)) = Array(arr(i, 1), arr(i, 2) + d(arr(i, 1))(1), arr(i, 3))

tm = d(arr(i, 1))

Else

d.Add arr(i, 1), Array(arr(i, 1), arr(i, 2), arr(i, 3))

tm = d(arr(i, 1))

End If

Next

[e1].resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.Items))

End Sub

把数组作为字典的条目，会让字典的条目形成一个从0开始的嵌套数组。小程序里的tm = d(arr(i, 1))语句没有实际执行功能，仅用于在程序执行时可以更直观的看到字典条目的结构，该结构如下图所示：

这个程序最关键的一句就是d(arr(i, 1)) = Array(arr(i, 1), arr(i, 2) + d(arr(i, 1))(1), arr(i, 3))，对于已经写入字典的键值，修改它的条目第二项为arr(i, 2) + d(arr(i, 1))(1)，即循环到的数值加上该键对应的已合计的数值。因为嵌套数组从0开始，所以已合计的数值为d(arr(i, 1))(1)，对应上图的tm(1)。

往期精彩回顾：

学习VBA，报表做到飞 第三章 字典 3.4 去除重复项与分类汇总

学习VBA，报表做到飞 第三章 字典 3.3 字典的属性

学习VBA，报表做到飞 第三章 字典 3.2 字典的方法

我是云飞扬，职场财会人员，愿与大家分享表格制作和数据统计分析的技巧与方法，希望大家的工作更便捷，更轻松！