遍历单元格删除无背景色行：VBA代码问题排查咨询

你的这段VBA代码主要存在4个关键问题，我逐个拆解给你：

1. 正向遍历删除行导致数据遗漏 #

当你用For Each cell In rng正向遍历并删除行时，一旦某行被删除，后续行会自动上移填补空缺，但循环会直接跳到下一个单元格，这就会跳过原本在被删行下方的那一行。比如你删了第5行，原来的第6行变成新的第5行，但循环已经去处理原来的第6个单元格（现在的第6行），导致新的第5行完全没被检查。

2. 遍历整个区域所有单元格，效率低下且存在重复操作 #

你指定的区域是A2:L[最后行]，这意味着同一行的12个单元格都会被循环检查一遍。如果某行符合删除条件，第一个单元格触发删除后，剩下的11个单元格再检查时该行已经不存在了，完全是做无用功，白白浪费运行时间。

3. 用ColorIndex = 0判断无背景色不准确 #

Excel里，默认无填充的单元格，其ColorIndex其实是xlColorIndexNone（对应数值-4142），而0通常指黑色填充或者某些特殊格式下的结果。用0判断会漏掉很多真正无背景色的单元格，导致逻辑错误。

4. 最后行的获取方式不可靠 #

你用Range("C2").End(xlDown).Row来获取最后一行，如果C列中间存在空行，End(xlDown)会在第一个空行就停止，导致你没有选中所有需要处理的行。正确的做法是从列底往上找最后一个非空单元格。

修正后的代码 #

Sub RemoveRowsThatAreNotHighlighted123()
    Dim lastRow As Long
    Dim i As Long
    Dim ws As Worksheet
    
    ' 关闭屏幕更新和自动计算提升运行效率
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' 定义工作表对象，避免重复调用ThisWorkbook.Worksheets("Main")
    Set ws = ThisWorkbook.Worksheets("Main")
    
    ' 从C列底部往上找最后一个非空行，适配中间有空行的场景
    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    ' 从最后一行倒序遍历，避免删除行导致的遗漏问题
    For i = lastRow To 2 Step -1
        ' 检查当前行的代表性单元格（这里选A列，你可以根据需求改）是否无背景色
        ' 用xlColorIndexNone判断无填充，或者用Pattern = xlNone也可以
        If ws.Cells(i, "A").Interior.ColorIndex = xlColorIndexNone Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 恢复屏幕更新和自动计算
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

代码修改说明 #

• 倒序遍历：从最后一行往第一行循环，删除行不会影响未遍历的行，彻底避免遗漏问题。
• 仅检查每行单个单元格：选择每行的一个固定单元格（比如A列）判断背景色，减少不必要的循环，大幅提升效率。
• 准确判断无背景色：用xlColorIndexNone替代0，确保识别所有真正无填充的单元格。
• 可靠获取最后行：从列底往上找最后非空行，适配C列有中间空行的场景。

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