如何利用字典对多列复杂数据进行汇总?

楼主 kevinchengcw	Q: 如何利用字典对多列复杂数据进行汇总? A: 对于存在多列数据,要根据多个条件求出符合要求的结果,下述示例给出了一个示范效果,代码如下: Sub test() Dim Dic, Arr, Arr2 Dim M, N, I As Long Dim Str, Str2 As String Set Dic = CreateObject("scripting.dictionary") '创建字典 With Worksheets("数据源") For N = 3 To .Cells(.Rows.Count, 2).End(3).Row '循环取数据源中各行数据 If Year(.Cells(N, 3).Value) = Worksheets("汇总").[e1].Value And Month(.Cells(N, 3).Value) = Worksheets("汇总").[g1].Value Then '判断日期是否符合汇总表中的设定 Str = .Cells(N, 1).Value & vbTab & .Cells(N, 2).Value & vbTab & Format(.Cells(N, 3).Value, "yyyy-m-d") '创建字典的key字段,通过前三列依特定字符的方式,形成同一代码的同一门店的同一日期的唯一性 If Dic.exists(Str) Then '判断是否已有该项记录,有则更新字典对应的item项 Arr = Split(Dic(Str), vbTab) '方法是将item项先拆分放入数组,将对应项与对应单元格的值相加 For M = LBound(Arr) To UBound(Arr) '循环操作数组中对应项 Arr(M) = Arr(M) + .Cells(N, M + 4).Value '与对应单元格的值相加 Next M Dic(Str) = Join(Arr, vbTab) '完成后再将数组用用特定字符串接起来赋值给字典对应的item项 Erase Arr '清空数组,防止出错 Else '如果没有该字典项存在,则 For M = 4 To 10 '将D列到J列的数据用特定字符串接后作为item项,与前面串接的key一起赋值给字典 If M = 4 Then Str2 = .Cells(N, M).Value Else Str2 = Str2 & vbTab & .Cells(N, M).Value End If Next M Dic.Add Str, Str2 End If End If Next N End With Arr = Dic.keys '将字典的keys赋值给数组,方便取用 N = 4 '设定汇总页的起始行,如果要连续汇总的话,这里可以改成对有数据行数的判断 With Worksheets("汇总") '对汇总页进行操作 For M = LBound(Arr) To UBound(Arr) '逐个提取数组中项目 Arr2 = Split(Arr(M) & vbTab & Dic(Arr(M)), vbTab) '将字典的key项(已赋值给数组)和item项依同样的特定字符串接后再拆分赋值给数组2 For I = LBound(Arr2) To UBound(Arr2) '循环将数组内容写入对应的汇总页内的单元格中 .Cells(N, I + 1) = Arr2(I) Next I N = N + 1 '下移一行 Erase Arr2 '清空数组,防止出错 Next M End With MsgBox "汇总完成", vbOKOnly, "" '显示提示信息 End Sub 通过对字典的灵活运用,并且与数组良好配合,可以轻松实现这样复杂的统计工作. 附示例文件. 多列多要求汇总实例.rar
2楼 wnianzhong	VBA高手,学习了!
3楼 lgb6699	非常简洁清晰的示例,感谢KevinChengCW,许多帖子对字典的说明都让新手头疼,向版主这种操作实力的解说有亲和力,谢谢,努力学习.
4楼开心萝卜	谢谢分享！等有基础了再看
5楼 mjgdxx	唉，都没懂字典是什么意思
6楼 liumporite	好东西,顶
7楼余方方	好东西，学习了，谢谢
8楼 ljx63426	字典是什么意思
9楼 eylin	学习了，真的是解决了大问题，谢谢！
10楼 pjack2001	学习了！
11楼吾股丰登	Arr = Split(Dic(Str), vbTab) '方法是将item项先拆分放入数组,将对应项与对应单元格的值相加 For M = LBound(Arr) To UBound(Arr) '循环操作数组中对应项 Arr(M) = Arr(M) + .Cells(N, M + 4).Value '与对应单元格的值相加 ============================ 上面这地方一直没理解过来郁闷
12楼 wzq47111	学习了
13楼 bensonlei	附件讲得很好！
14楼 glxarjwsyqcc	非常简洁清晰的示例,感谢KevinChengCW,许多帖子对字典的说明都让新手头疼,向版主这种操作实力的解说有亲和力,谢谢,努力学习.
15楼 gysegz	K哥真的牛
16楼 tiger2003	学习了，谢谢！
17楼 E林好汉	谢谢分享！