关于分类汇总问题！！

于人为善

表一是对数量分类汇总求和，我想在一排中显示数量的求和，件数的求平均值，像表二那样，用分类汇总怎样做啊

ljl008

是不是这样？

于人为善

楼山的，没错啊，我想知道怎么做的啊

ykcbf1100

借题练习，插入小计、总计，公式法

ykcbf1100

1. Sub ykcbf()   '//2025.3.27              插入小计行
   
2.     On Error Resume Next
   
3.     With ActiveSheet
   
4.         col = 1: c1 = 2: bt = 0
   
5.         xm = [{"小计","总计"}]
   
6.         r = .Cells(.Rows.Count, col).End(xlUp).Row
   
7.         c = .UsedRange.Find("*", , -4163, , 2, 2).Column
   
8.         For i = bt + 1 To r
   
9.             If InStr(.Cells(i, col), "计") Then
   
10.                 MsgBox "已有小计行，不必再插入！"
    
11.                 Exit Sub
    
12.             End If
    
13.         Next
    
14.         m = r + 1
    
15.         .UsedRange.Offset(bt).Interior.ColorIndex = 0
    
16.         For i = r To bt + 1 Step -1
    
17.             If .Cells(i, col) <> .Cells(i - 1, col) Then
    
18.                 .Rows(m).Insert
    
19.                 .Cells(m, col) = xm(1)
    
20.                 .Cells(m, c1).Resize(1, c - c1 + 1).Formula = "=SUM(" & Cells(i, c1).Resize(m - i).Address(0, 0) & ")"
    
21.                 .Cells(m, 1).Resize(1, c).Interior.ColorIndex = 4
    
22.                 m = i
    
23.             End If
    
24.         Next
    
25.         r = .Cells(.Rows.Count, col).End(xlUp).Row
    
26.         .Cells(r + 1, col) = xm(2)
    
27.         .Cells(r + 1, 1).Resize(1, c).Interior.ColorIndex = 6
    
28.         .Cells(r + 1, c1).Resize(1, c - c1 + 1).Formula = "=SUMIFS(" & Cells(bt + 1, c1).Resize(r - bt).Address(0, 0) _
    
29.             & "," & Cells(bt + 1, col).Resize(r - bt).Address(0, 1) & "," & """" & xm(1) & """" & ")"
    
30.         .Cells(1, 1).Resize(r + 1, c).Borders.LineStyle = 1
    
31.         ActiveWindow.DisplayZeros = False
    
32.     End With
    
33. End Sub

复制代码