求助：实现空白行分隔行组的编号与求和自动化

我刚好处理过类似的报表自动化需求，给你两个实用方案——公式法（不用宏，适合怕碰VBA的朋友）和VBA宏法（一键搞定，效率拉满），按需选择就行：

方案一：Excel公式实现（无代码） #

假设你的数据从第2行开始（第1行是表头），A列是数据列，我们用B列存组编号，C列存每组求和：

1. 自动生成组编号 #

在B2单元格输入以下公式，然后下拉填充到所有行：

=IF(A2="","",IF(OR(A1="",ROW(A2)=2),MAX($B$1:B1)+1,B1))

• 逻辑说明：如果当前行非空，且上一行是空白/当前是第一行数据，就生成新的组号；否则继承上一行的组号，空白行的组号留空。

2. 自动计算每组求和 #

如果想在每组下方的空白行显示求和，在C2单元格输入以下公式，下拉填充：

=IF(A2="",SUMIF($B$2:B1,B1,$A$2:A1),"")

如果想在每组最后一行显示求和，改用这个公式：

=IF(AND(A2<>"",A3=""),SUMIF($B$2:B2,B2,$A$2:A2),"")

• 逻辑说明：判断当前行是否是组的最后一行（非空且下一行是空），是的话用SUMIF按组号求和。

方案二：VBA宏实现（一键自动化） #

如果报表数据量超大，或者想彻底解放双手，直接用宏一键完成组编号+求和：

1. 宏代码 #

打开Excel的「开发工具」→「Visual Basic」→ 插入模块，粘贴以下代码：

Sub AutoGroupAndSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim groupNum As Integer
    Dim startRow As Integer
    
    ' 指向当前活动工作表
    Set ws = ActiveSheet
    ' 获取A列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    groupNum = 1
    startRow = 2 ' 假设表头在第1行，数据从第2行开始
    
    ' 添加组编号的表头
    ws.Cells(1, "B").Value = "组编号"
    
    ' 遍历所有行
    For currentRow = startRow To lastRow
        ' 非空行分配当前组号
        If ws.Cells(currentRow, "A").Value <> "" Then
            ws.Cells(currentRow, "B").Value = groupNum
        Else
            ' 遇到空白行，计算上一组的和并写入C列
            If currentRow > startRow Then
                ws.Cells(currentRow, "C").Value = "组" & groupNum & "求和：" & _
                    WorksheetFunction.Sum(ws.Range(ws.Cells(startRow, "A"), ws.Cells(currentRow - 1, "A")))
                groupNum = groupNum + 1
                startRow = currentRow + 1 ' 更新下一组的起始行
            End If
        End If
    Next currentRow
    
    ' 处理最后一组（如果最后一行不是空白行）
    If startRow <= lastRow Then
        ws.Cells(lastRow + 1, "C").Value = "组" & groupNum & "求和：" & _
            WorksheetFunction.Sum(ws.Range(ws.Cells(startRow, "A"), ws.Cells(lastRow, "A")))
    End If
    
    MsgBox "组编号和求和已完成！", vbInformation
End Sub

2. 使用方法 #

• 回到Excel，点击「开发工具」→「宏」，选择AutoGroupAndSum运行即可；
• 嫌麻烦的话，可以给宏添加一个工作表按钮，以后点一下就搞定。

内容的提问来源于stack exchange，提问作者Jkkk