如果电子表格中行数太多，用分类汇总又达不到想要的效果，可以用此方法插入小计合计行

Private Sub 插入小计合计行() '小计合计插入位置是A列为1、B列则为2  

    Dim Arr, Brr, i&, n&, r&, Asum#
    Application.ScreenUpdating = False
    r = Range("A" & Cells.Rows.Count).End(xlUp).Row
    Dim 小计所在列号 As Integer
    小计所在列号 = InputBox("请输入小计合计行所在的列号:A列为1、B列为2、以此类推！", "选择小计合计行所在的列号", 1)
    Debug.Print 小计所在列号

     Cells(r + 2, 小计所在列号) = "合计"
     Cells(r + 1, 小计所在列号) = "小计"
    For i = r To 4 Step -1 ''''''''To 4为表内数据的起始行+1即可
        If Cells(i, 1) <> Cells(i - 1, 1) Then
        Debug.Print i & "------" & Cells(i, 1) & "*******" & Cells(i, 1)
         Rows(i).Resize(1).Insert
         Cells(i, 小计所在列号) = "小计"
        End If
    Next
    Application.ScreenUpdating = True
End Sub

念佛一声   罪灭沙河

礼佛一拜   增福无量

敬请常念：

南无阿弥陀佛         南无阿弥陀佛         南无阿弥陀佛
南无观世音菩萨       南无观世音菩萨       南无观世音菩萨

南无大愿地藏王菩萨   南无大愿地藏王菩萨   南无大愿地藏王菩萨