什么叫做『棋盘法』汇总？

言归正传，今天我们要聊的是VBA中字典+数组的一种综合应用，多组数据汇总方案，我们称之为“棋盘法”，主要的数据是二维交叉，类似棋盘！

比如，我们下面的销售明细，想按照销售名称，对数量和金额进行汇总！

一般我们使用数据透视表，非常的简单

但是我们要使用VBA代码处理，该如何实现呢？

我们需要使用字典来记录每个汇总 销售名称的行，用二维数组装结果，具体我们来看代码！

完整代码：

思路讲解：

1、首先我们判断字典种类是否存在我们汇总的key(销售名称)，如果存在我们就把他在汇总数组中所在的行取出，如果不存在，我们就把汇总行+1，并记录到字典中，首次记录，同步把汇总的key写入结果数组brr

2、字典中记录了每个需要汇总的内容所在的行，这样我们就可以根据key找到结果数组中对应的行，然后再加上本次需要相加的内容，一次累加，即可得到结果！

写入结果： 和数据透视表汇总完全一致

源码可复制使用：

'功能：VBA字典棋盘法-多列汇总'公众号：Excel办公实战'作者：E精精'日期：20210609'----------------------------------------------------Sub dataTotal() '------------数据源装入数组------------- Dim lRow As Long, arr, brr(1 To 1000, 1 To 3) With Sheet1 lRow = .Cells(Rows.Count, 1).End(3).Row arr = .Range("A2:D" & lRow).Value End With '---------结果字典、循环处理----------- Dim d As Object '申明字典变量 '后期绑定 Set d = CreateObject("scripting.dictionary") Dim i As Long, skey As String, n As Long Dim totalRow As Long For i = 1 To UBound(arr) skey = arr(i, 2) '销售名称 If Not d.exists(skey) Then n = n + 1 totalRow = n d(skey) = n '首次写入销售名称 brr(totalRow, 1) = skey Else totalRow = d(skey) End If '数量汇总 brr(totalRow, 2) = brr(totalRow, 2) + arr(i, 3) '金额汇总 brr(totalRow, 3) = brr(totalRow, 3) + arr(i, 4) Next '写入结果 With Sheet1 .Range("F21:Z1000").Clear .Range("F21").Resize(n, 3) = brr End With MsgBox "处理完成"End Sub


很多小白看到这里，可能就会有一个疑问，既然数据透视表这么简单，为什么还要写这么复杂的代码？ ？ ？

这么想，其实很正常，但是对于一些需要汇总的数据几十列、几十万行设置百万行的时候，就会明白代码的必要性，不管是公式和数据透视表，量大都会卡！

其次，代码可以一键处理，反复利用，也是一方面考虑~