| 楼主 zyg365 |
[size=6]【分类统计、汇总、求和、求平均、计数、最大值、最小值】  Sub test1()'分类汇总、统计——Excel2003-2010通用：很好、简洁、高效 [J1].Consolidate "r1c1:r22c8", xlSum, 1, 1 '效果很好 ——分类求和 [J1].Consolidate "r1c1:r22c8", xlAverage, 1, 1 '效果很好 ——分类求平均 [J1].Consolidate "r1c1:r22c8", xlMax, 1, 1 '效果很好 ——分类求最大值 [J1].Consolidate "r1c1:r22c8", xlMin, 1, 1 '效果很好 ——分类求最小值 [J1].Consolidate "r1c1:r22c8", xlCount, 1, 1 '效果很好 ——分类计数 End Sub r1c1——第1行、第1列，即A1 r22c8——22行、8列，即H22 以第一列为分类的依据、字段输出字段名称、分类依据 |
| 2楼 rabbitllu |
学习了，简便快捷，但是貌似行列数量给固定了，不是动态了 |
| 3楼 zyg365 |
可以改成动态的啊 |
| 4楼 rabbitllu |
楼主能贴出来吗 |
| 5楼 zyg365 |
Sub test()'改成变量——通用性好 Dim R As Long Dim C As Long R = 22 C = 8 [J1].Consolidate "r1c1:r" & R & "c" & C & "", xlSum, 1, 1 Cells(1, 10).Consolidate "r1c1:r" & R & "c" & C & "", xlSum, 1, 1 End Sub |
| 6楼 rabbitllu |
谢谢楼主 |
| 7楼 wise |
建议作者名称修改为注册ID名 |