Excel VBA技术求助：统计列中连续0序列的长度

嘿，我懂你现在的困扰——你的宏现在只是一股脑把所有0的总数算出来了，根本没识别到连续序列的断点（也就是遇到1的时候要重置计数对吧）。咱们来调整下逻辑，让它能准确统计每一段连续0的长度，还能把结果写到相邻列里。

Sub Step1CountsNumberZerosInSequence()
    ' CountsNumberZerosInSequence Macro
    ' 统计每一段连续0的序列长度并写入相邻列
    
    ' Step 1: 声明变量
    Dim CloseOutRange As Range
    Dim CloseOutCell As Range
    Dim currentZeroCount As Integer ' 跟踪当前连续0的计数
    Dim lastZeroCell As Range ' 记录当前连续0序列的最后一个单元格
    
    ' Step 2: 定义目标范围
    Set CloseOutRange = Range("AY10:AY100000")
    
    ' Step 3: 初始化变量
    currentZeroCount = 0
    Set lastZeroCell = Nothing
    
    ' Step 4: 遍历目标范围的每个单元格
    For Each CloseOutCell In CloseOutRange
        ' 如果当前单元格是0，累加计数并更新序列末尾位置
        If CloseOutCell.Value = 0 Then
            currentZeroCount = currentZeroCount + 1
            Set lastZeroCell = CloseOutCell
        Else
            ' 遇到非0值时，检查是否有未完成的连续0序列
            If Not lastZeroCell Is Nothing Then
                ' 将连续0的长度写入序列最后一个单元格的相邻列（这里是AZ列）
                lastZeroCell.Offset(0, 1).Value = currentZeroCount
                ' 重置计数和序列记录，准备下一段统计
                currentZeroCount = 0
                Set lastZeroCell = Nothing
            End If
        End If
    Next CloseOutCell
    
    ' 处理循环结束后可能遗留的最后一段连续0序列
    If Not lastZeroCell Is Nothing Then
        lastZeroCell.Offset(0, 1).Value = currentZeroCount
    End If
    
    MsgBox "连续0序列统计完成！", vbInformation
End Sub

• 新增核心变量：用currentZeroCount跟踪当前连续0的数量，lastZeroCell记录当前序列最后一个0的位置——替代了你原来的MaxDays，因为原变量的逻辑无法区分不同的连续序列。
• 分情况处理单元格：
  • 遇到0时：累加计数，同时更新序列的末尾位置，确保我们知道该把长度写到哪里。
  • 遇到1（或其他非0值）时：如果之前有正在统计的连续0序列，就把长度写入序列最后一个单元格的相邻列，然后重置计数准备下一段。
• 收尾处理：循环结束后额外检查一次，避免表格最后一段是0序列时遗漏统计。

如果你想把连续0的长度写入每一个0所在行的相邻列（比如每个0的位置都显示到当前为止的连续长度），可以把写入逻辑移到If CloseOutCell.Value = 0的分支里，改成这样：

If CloseOutCell.Value = 0 Then
    currentZeroCount = currentZeroCount + 1
    CloseOutCell.Offset(0, 1).Value = currentZeroCount ' 每个0行都写入当前连续长度
Else
    currentZeroCount = 0
End If

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