根据多列不同字段进行分类汇总多列数据

moonofwell · 发表于 2012-7-18 23:52

需求说明：根据多列不同字段进行分类汇总多列数据，请各位高手指点，多谢。

例如，第2行B-F列与第4行B-F列是完全相同的，所以归为一类，虽然第4行和第7行的第B列也都是“1100”但第C列就不同了，所以不归为一类，然后根据相同的科目汇总后面各月的数值。

源表

结果表

详见附件

多列字段分类汇总.rar (6.86 KB, 下载次数: 89)

好奇心 · 发表于 2012-7-19 00:22

Public Sub test()
Application.ScreenUpdating = False
Dim r, d(), i As Long, j As Long, s As String, q
arr = Sheet1.[a1].CurrentRegion
ReDim d(1 To UBound(arr, 2) - 6)
For j = 1 To UBound(arr, 2) - 6
Set d(j) = CreateObject("scripting.dictionary")
Next
For j = 1 To UBound(arr, 2) - 6
For i = 1 To UBound(arr)
s = arr(i, 2) & "," & arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6)
d(j)(s) = d(j)(s) + arr(i, j + 6)
Next
Next
r = d(1).keys
For i = 1 To d(1).Count
q = Split(r(i - 1), ",")
Cells(i, 1).Resize(, 5) = q
Next
For j = 1 To UBound(arr, 2) - 6
Cells(1, j + 5).Resize(d(j).Count, 1) = Application.Transpose(d(j).items)
Next
Erase d, arr, r, q
Application.ScreenUpdating = True
MsgBox "整理完成！"
End Sub

复制代码

好奇心 · 发表于 2012-7-19 00:23

多列字段分类汇总.rar (14.56 KB, 下载次数: 516)

LMY123 · 发表于 2017-6-3 15:33

字典多条件多列汇总

cjc209 · 发表于 2018-10-8 19:38

好奇心发表于 2012-7-19 00:23

能不能搞成变量为合并计算的依据列可以任意选择你的都是固定的让变量自己选择的形式才是最好的

cjc209 · 发表于 2018-10-8 19:40

好奇心发表于 2012-7-19 00:22

你的s = arr(i, 2) & "," & arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6)这一串怎么变为可以动态选择才是智能的

cjc209 · 发表于 2018-10-8 19:41

s = arr(i, 2) & "," & arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6) 如果只选择2列喃？？

cjc209 · 发表于 2018-10-8 19:42

好奇心发表于 2012-7-19 00:23

让代码动态起来才具有实用性

cjc209 · 发表于 2018-10-8 19:51

LMY123 发表于 2017-6-3 15:33
字典多条件多列汇总

你真好耍一个问题不回答就总结有意思吗？？？

		自动登录	找回密码
密码			免费注册

[求助] 根据多列不同字段进行分类汇总多列数据