Excel VBA删除含零行代码无效，是否需使用Is Nothing？

嘿，我来帮你搞定这个问题！首先，你的代码框架方向是对的，但核心问题出在没正确判断C列的零值，也没构建出要删除的单元格范围，不过你提到的Is Nothing确实是解决这个问题的关键工具之一，咱们一步步拆解：

你的代码里定义了DelRng但没实际往里面添加符合条件的行，而且循环逻辑里缺少对C列值的判断，这就是零值行没被删除的核心原因。Is Nothing主要用来检查DelRng是否为空，避免执行删除操作时因为没有目标行而报错。

当你初始化DelRng时，它默认是Nothing（空对象）。每次找到C列值为0的行，就把该行的范围添加到DelRng里：

• 第一次找到目标行时，直接把该行赋值给DelRng
• 后续找到目标行时，用Union方法合并到已有的DelRng中
• 最后如果DelRng不是Nothing（也就是存在要删除的行），再一次性删除所有选中的行（这种批量删除比逐行删高效太多）

Sub CleanUp()
    Dim sh As Worksheet
    Dim CheckLoop As Long
    Dim RowCount As Long
    Dim DelRng As Range
    
    Set sh = ThisWorkbook.Sheets("Database")
    
    With sh
        ' 获取C列最后一行有数据的行号
        RowCount = .Cells(.Rows.Count, "C").End(xlUp).Row
        
        ' 从最后一行往上循环（避免删除行导致的索引错乱，这步你做对了！）
        For CheckLoop = RowCount To 2 Step -1
            ' 检查C列当前行的值是否为0
            ' 注意：如果是文本格式的"0"，改成.Cells(CheckLoop, "C").Text = "0" 或者 Val(.Cells(...)) = 0
            If .Cells(CheckLoop, "C").Value = 0 Then
                ' 用Is Nothing判断DelRng是否为空，分情况赋值/合并范围
                If DelRng Is Nothing Then
                    Set DelRng = .Rows(CheckLoop)
                Else
                    Set DelRng = Union(DelRng, .Rows(CheckLoop))
                End If
            End If
        Next CheckLoop
        
        ' 确认有要删除的行时，再执行删除
        If Not DelRng Is Nothing Then
            DelRng.Delete Shift:=xlUp
        End If
    End With
End Sub

• 倒序循环的必要性：你已经用了从最后一行往第一行循环的逻辑，这非常重要！如果正序循环，删除行后下面的行会往上移位，导致跳过某些行，倒序就不会有这个问题。
• 零值类型兼容：如果你的C列里有文本格式的"0"（不是数值0），要调整判断条件，比如用Val(.Cells(CheckLoop, "C").Value) = 0来兼容数值和文本两种类型的零。
• 批量删除的优势：用Union合并范围后一次性删除，比逐行删除快很多，尤其是数据量较大的时候。

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