Excel VBA代码问题：独立处理各列连续零值并修正结果输出

原代码核心问题 #

• 列间状态未隔离：countZeros和startRow未在每列处理前重置，导致某列的零值状态干扰下一列
• 末尾全零未收尾：列最后几行全为零时，无触发逻辑记录区间，会错误复用下一列设备ID
• 连续零值判断错误：原代码用countZeros >4，实际需求是4个及以上，应改为countZeros >=4

修正后的完整代码 #

Sub EncontrarRangosCero()
    Dim ws1 As Worksheet  'sinkominutalez
    Dim ws2 As Worksheet ' resultados
    Dim countZeros As Integer
    Dim i As Long, j As Long 'i对应行，j对应列
    Dim lastRow As Long, startRow As Long, endRow As Long
    
    Set ws1 = ThisWorkbook.Sheets("sinkominutalez")
    Set ws2 = ThisWorkbook.Sheets("resultados")
    
    lastRow = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1

    ' 遍历每一列
    For j = 1 To ws1.UsedRange.Columns.Count
        countZeros = 0 ' 每列开始时重置零值计数器
        startRow = 0 ' 重置起始行标记
        
        ' 遍历当前列的指定行范围（90到222行）
        For i = 90 To 222
            If ws1.Cells(i, j).Value = 0 Then
                If countZeros = 0 Then
                    startRow = i ' 记录连续零值的起始行
                End If
                countZeros = countZeros + 1
            ElseIf countZeros > 0 Then
                ' 遇到非零值，收尾当前连续零值区间
                endRow = i - 1
                If countZeros >= 4 Then ' 符合4个及以上零值的条件
                    ws2.Cells(lastRow, 1).Value = ws1.Cells(2, j).Value ' 设备ID
                    ws2.Cells(lastRow, 2).Value = ws1.Cells(startRow, "A").Value ' 起始时间
                    ws2.Cells(lastRow, 3).Value = ws1.Cells(i, "A").Value ' 结束后首个非零行的时间
                    lastRow = lastRow + 1
                End If
                countZeros = 0 ' 重置计数器
            End If
        Next i
        
        ' 处理列末尾全为零的情况：遍历完所有行后仍有未收尾的连续零值
        If countZeros >= 4 Then
            endRow = 222 ' 最后一行是222行
            ws2.Cells(lastRow, 1).Value = ws1.Cells(2, j).Value
            ws2.Cells(lastRow, 2).Value = ws1.Cells(startRow, "A").Value
            ws2.Cells(lastRow, 3).Value = "列末尾持续为零" ' 可根据需求替换为实际值
            lastRow = lastRow + 1
        End If
    Next j
End Sub

关键修改说明 #

• 列间状态隔离：每列循环开头重置countZeros和startRow，确保每列的零值统计完全独立，不会和其他列状态混淆
• 末尾全零处理：每列遍历结束后检查未收尾的连续零值，符合条件则单独记录，避免错误复用下一列数据
• 修正判断条件：将countZeros >4改为countZeros >=4，匹配“连续4个及以上零值”的需求
• 多段零值捕获：每次遇到非零值时检查当前区间，确保同一列内多段符合条件的零值都能被记录

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