分类汇总求和咋变成累加了

小石头936

我想把原表里的数量和金额，按分类进行汇总求和，原表和汇总表样式分别如下：

原表见上

汇总表见下


但汇总表中的小计，没有进行分类小计，而是进行的累计。
求老师帮忙指点！

小石头936

已解决，还是粗心，少了个i=i+1.

yaozong

小石头936 发表于 2018-10-11 14:52
已解决，还是粗心，少了个i=i+1.

Sub 插入分类小计()
  Sheets("分类统计").Activate
  If Cells(Rows.Count, 2).End(3) = "小计" Then Exit Sub
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Dim r&, k&, m&, n&
  m = 3: n = 3
  Do While Cells(m, 1) <> ""
    k = k + 1
    If Cells(m, 1) <> Cells(m + 1, 1) Then
      m = m + 1
      Cells(m, 1).Resize(1, 4).Insert Shift:=xlDown
      Cells(m, 2) = "小计"
      Cells(m, 3) = "=SUBTOTAL(109,R[" & -k & "]C:R[-1]C)"
      Cells(m, 4) = "=SUBTOTAL(109,R[" & -k & "]C:R[-1]C)"
      Cells(n, 1).Resize(k + 1, 1).Merge
      n = n + k + 1: k = 0
    End If
    m = m + 1
  Loop
  [a1].CurrentRegion.Borders.LineStyle = 1
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

小石头936

yaozong 发表于 2018-10-11 14:57
Sub 插入分类小计()
  Sheets("分类统计").Activate
  If Cells(Rows.Count, 2).End(3) = "小计" Then  ...

谢谢，一直想用subtotal实现累加，没有头绪，正好学习了。

小石头936

小石头936 发表于 2018-10-11 18:53
谢谢，一直想用subtotal实现累加，没有头绪，正好学习了。

学习了老师的代码，比我的高明太多了，特别是运用resize，一下子就简便了。之前都不知道还有resize,还是知道的太少了。非常感谢！