如何对Excel同一列内连续的高亮（绿色）单元格求和

你之前使用的SUMIFS不生效的核心原因是该函数只能按固定条件匹配独立单元格，无法自动识别连续正值的区间边界，需要先给连续区间做分组标记再计算，可参考以下两种方案：

方案1：辅助列+公式实现（无代码，适合新手） #

• 第一步：新增辅助列（比如I列），在I4单元格输入公式，下拉到所有数据行：
  =IF(AND(H4>0,OR(H3>0,ROW()=4)),I3,MAX(I$3:I3)+1)
  如果你的H列数据不是从第4行起始，自行修改公式里的对应行号即可，该公式会自动给连续的正值分配同一个组号
• 第二步：提取唯一组号并按组求和
  空白单元格输入公式获取所有正值对应的组号：=UNIQUE(FILTER(I4:I8763,H4:H8763>0))
  相邻单元格输入求和公式：=SUMIF(I:I, 对应组号单元格, H:H)
• 第三步：手动合并同组对应的行即可。

方案2：VBA脚本一键处理（适合数据量大、需反复操作的场景） #

• 第一步：按Alt+F11打开VBA编辑器，插入新模块
• 第二步：粘贴下方代码后运行即可，脚本会自动完成连续正值求和、合并行、删除冗余行的操作：

Sub 连续正值求和合并()
    Dim lastRow As Long, i As Long, startRow As Long
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    startRow = 4 '此处修改为你的H列数据实际起始行
    Application.DisplayAlerts = False
    
    For i = startRow To lastRow + 1
        If Cells(i, "H") > 0 And Cells(i - 1, "H") <= 0 Then
            startRow = i
        ElseIf Cells(i, "H") <= 0 And Cells(i - 1, "H") > 0 Then
            Cells(startRow, "H") = Application.Sum(Range(Cells(startRow, "H"), Cells(i - 1, "H")))
            Range(Cells(startRow + 1, "H"), Cells(i - 1, "H")).EntireRow.Delete
            i = startRow
            lastRow = Cells(Rows.Count, "H").End(xlUp).Row
        End If
    Next i
    
    Application.DisplayAlerts = True
    MsgBox "处理完成"
End Sub

运行脚本前请先备份原数据，避免误操作导致数据丢失

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