如何根据C列相同的内容实现分类汇总？

ruhong18

如何根据C列相同的内容实现分类汇总？

liulang0808

这个论坛上有不少案例，楼主先搜下参考下

liulang0808

1. Sub 按钮3_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = [a1].CurrentRegion
   
4.     [a1].CurrentRegion = arr
   
5.     Set Rng = Rows(UBound(arr))
   
6.     For j = UBound(arr) - 1 To 2 Step -1
   
7.         If arr(j, 3) <> arr(j + 1, 3) Then
   
8.             Rng.Copy
   
9.             Rows(j + 1).Insert Shift:=xlDown
   
10.             Set Rng = Rows(j + 1)
    
11.             For x = j - 1 To 1 Step -1
    
12.                 If arr(j, 3) <> arr(x, 3) Then
    
13.                     Cells(j + 1, 6) = WorksheetFunction.sum(Range(Cells(x + 1, 6), Cells(j, 6)))
    
14.                     Cells(j + 1, 5) = WorksheetFunction.sum(Range(Cells(x + 1, 5), Cells(j, 5)))
    
15.                     Exit For
    
16.                 End If
    
17.             Next x
    
18.             j = x + 1
    
19.         End If
    
20.     Next j
    
21.     Application.ScreenUpdating = True
    
22. End Sub
    

复制代码

liulang0808

附件是代码运行完的结果，最后一行合计是楼主原来的格式跟数值，未做处理，其他合计以此行的格式为准
供参考

ruhong18

liulang0808 发表于 2019-11-6 18:18
附件是代码运行完的结果，最后一行合计是楼主原来的格式跟数值，未做处理，其他合计以此行的格式为准
供参 ...

基本已经很到位了，多谢！