VBA中For循环无法删除所有带0值行的问题求助

核心错误排查 #

• 范围列索引错误：你声明的rng是G列的单列单元格范围，rng.Cells(i, 3)的第二个参数代表在rng范围内的列偏移量，单列范围的有效列偏移只能是1，写3实际匹配的是工作表I列的单元格，完全没有判断G列的值，这是删行不完整的首要原因。
• 范围定位错误：Range("G2").End(xlDown)会在遇到G列第一个空单元格时停止向下定位，如果G列中间存在空行，会导致空行下方的所有数据没有纳入判断范围。
• 格式匹配问题：InStr返回的0如果是文本格式的"0"，直接用=0做数值判断无法匹配，需要兼容两种格式的0值。

修复后可直接运行的代码 #

Sub removeZeros()
    Dim ws As Worksheet, lastRow As Long, i As Long
    ' 绑定当前工作表，避免激活状态变化导致错误
    Set ws = ActiveSheet
    ' 用G列最大行号定位，避免中间空行导致范围截断
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    ' 从最后一行向上遍历
    For i = lastRow To 2 Step -1
        ' 兼容文本型0和数值型0
        If CStr(ws.Cells(i, "G").Value) = "0" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

大数据量优化建议 #

5万行数据逐行删除效率较低，可提前把需要删除的行用Union对象合并，最后批量删除，速度可以提升数倍：

Sub removeZerosFast()
    Dim ws As Worksheet, lastRow As Long, i As Long, delRng As Range
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    
    For i = 2 To lastRow ' 正序遍历即可，不需要倒序
        If CStr(ws.Cells(i, "G").Value) = "0" Then
            If delRng Is Nothing Then
                Set delRng = ws.Rows(i)
            Else
                Set delRng = Union(delRng, ws.Rows(i))
            End If
        End If
    Next i
    
    ' 批量删除所有符合条件的行
    If Not delRng Is Nothing Then delRng.Delete
End Sub

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