寻求Excel宏开发帮助：数据筛选与汇总（无Excel经验）

以下是满足需求的VBA宏代码，直接复制到Excel的VBA编辑器中即可使用：

Sub ProcessCellCountData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim groupStart As Long
    Dim groupEnd As Long
    
    ' 指定要处理的工作表，默认使用当前活动表，可改为Sheet1这类明确名称
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行向上遍历，避免插入新行打乱分组判断逻辑
    i = lastRow
    Do While i >= 2
        ' 定位当前组的结束行，再向上找到组的起始行
        groupEnd = i
        Do While i >= 2 And ws.Cells(i, "A").Value = ws.Cells(i - 1, "A").Value
            i = i - 1
        Loop
        groupStart = i
        
        ' 隐藏组内除首尾行外的所有行
        If groupEnd - groupStart > 1 Then
            ws.Rows(groupStart + 1 & ":" & groupEnd - 1).Hidden = True
        End If
        
        ' 在组最后一行下方插入汇总行
        ws.Rows(groupEnd + 1).Insert Shift:=xlDown
        
        ' 设置汇总行内容
        ws.Cells(groupEnd + 1, "A").Value = "" ' A列留空
        ws.Cells(groupEnd + 1, "B").Value = ws.Cells(groupEnd, "B").Value ' 复制组最后一行的B列值
        ' 计算C到Q列的组内总和
        ws.Range(ws.Cells(groupEnd + 1, "C"), ws.Cells(groupEnd + 1, "Q")).Formula = _
            "=SUM(" & ws.Range(ws.Cells(groupStart, "C"), ws.Cells(groupEnd, "C")).Address & ":" & _
            ws.Range(ws.Cells(groupStart, "Q"), ws.Cells(groupEnd, "Q")).Address & ")"
        
        ' 跳转到上一个组的前一行，继续处理
        i = groupStart - 1
    Loop
    
    MsgBox "处理完成！"
End Sub

代码说明 #

• 从数据末尾向上遍历，避免插入新行影响分组判断
• 自动识别Column A中连续的数值组，定位每组的首尾行
• 隐藏组内中间行，仅保留首尾行可见
• 在每组末尾插入汇总行：A列留空，B列复用组最后一行的数值，C到Q列自动计算组内对应列的总和

使用步骤 #

1. 打开目标Excel文件
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧工作表名称，选择「插入」→「模块」
4. 将上述代码粘贴到模块窗口
5. 按下F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择ProcessCellCountData执行

注意事项 #

• 若数据有表头（表头在第1行），需将代码中i >= 2改为i >= 3，确保跳过表头行
• 执行前建议备份数据，避免意外修改
• 如需调整汇总列范围，可修改代码中的"Q"为目标列标识

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