Excel技术问询：如何标记连续求和为0的行并在对应列填0

方法一：利用前缀和+公式（适用于Excel 365/2021及以后版本） #

核心逻辑是前缀和相等则区间总和为0：如果第1行到第i行的累计和，与第1行到第j行的累计和相等（i<j），那么第i+1到j行的连续数值总和必然为0。

1. 新增辅助列计算前缀和：
   • 在C1单元格输入公式：=A1
   • 下拉C1公式至A列最后一行，得到每行的累计前缀和。
2. 在B2单元格输入公式并下拉：

   =IF(COUNTIF($C$1:C2,C2)>1,0,"")
   

   该公式会检查当前行的前缀和是否在之前出现过，若是则标记为0，否则留空。

方法二：VBA宏（适用于所有Excel版本） #

如果数据量较大或需要自动化处理，VBA宏效率更高：

1. 按下Alt+F11打开VBA编辑器；
2. 插入新模块，粘贴以下代码：

   Sub MarkZeroSumGroups()
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim prefixSum As Double
       Dim sumDict As Object
       Dim i As Long
       Dim startRow As Long
       
       Set ws = ActiveSheet
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       Set sumDict = CreateObject("Scripting.Dictionary")
       
       ' 初始前缀和0对应行号0，处理从第1行开始总和为0的情况
       prefixSum = 0
       sumDict.Add prefixSum, 0
       
       For i = 1 To lastRow
           prefixSum = prefixSum + ws.Cells(i, "A").Value
           ' 若当前前缀和已存在，说明中间区间总和为0
           If sumDict.Exists(prefixSum) Then
               startRow = sumDict(prefixSum) + 1
               ws.Range("B" & startRow & ":B" & i).Value = 0
           Else
               ' 记录首次出现的前缀和及对应行号
               sumDict.Add prefixSum, i
           End If
       Next i
   End Sub
   

3. 返回Excel界面，按下Alt+F8运行宏MarkZeroSumGroups，即可自动标记所有符合条件的行。

注意事项 #

• 两种方法都会自动识别所有符合条件的连续分组，包括多元素组（如-2、-2、-1、5）和重叠组；
• 若存在重复前缀和，代码会优先标记最早出现的区间，确保所有符合要求的行都被覆盖。

内容的提问来源于stack exchange，提问作者Ajit Kumar Jena