VBA优化需求：改进基于背景色筛选行的低效循环

你的问题核心是逐行删除行导致的性能瓶颈——Excel每次删除行都会重新计算工作表、刷新界面，400行的操作会触发几百次这类耗时操作，自然变慢。下面是针对需求的优化方案，同时兼容无粉色单元格的场景：

优化思路 #

1. 用辅助列标记目标行：给粉色背景的行标记"保留"，其他标记"删除"，避免逐行操作的重复开销
2. 批量排序+删除：把标记为"保留"的行排到顶部，然后一次性删除所有"删除"标记的行，大幅减少工作表交互次数
3. 兼容无粉色单元格的场景：提前判断是否存在粉色行，避免无效操作

优化后的完整代码 #

Public tmpFile As Workbook
Public LR_Double As Long
Public i As Long
Public j As Long

Sub KeepPinkRows()
    Dim ws As Worksheet
    Dim helperCol As Long
    Dim lastCol As Long
    
    Set ws = tmpFile.Worksheets(2)
    With ws
        ' 关闭屏幕刷新和事件，大幅提升性能
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
        LR_Double = .Cells(Rows.Count, "A").End(xlUp).Row
        j = 0 ' 统计粉色行数量
        
        ' 获取最后一列作为辅助列（避免干扰现有数据）
        lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
        helperCol = lastCol
        
        ' 第一步：标记粉色行
        .Cells(1, helperCol).Value = "标记" ' 辅助列标题（可选，方便识别）
        For i = 2 To LR_Double
            If .Cells(i, "A").Interior.Color = 13551615 Then
                .Cells(i, helperCol).Value = "保留"
                j = j + 1
            Else
                .Cells(i, helperCol).Value = "删除"
            End If
        Next i
        
        ' 处理无粉色单元格的场景：直接清空表头下所有行
        If j = 0 Then
            .Rows("2:" & LR_Double).Delete
        Else
            ' 第二步：按辅助列排序，把"保留"行排到顶部
            .Range(.Cells(1, 1), .Cells(LR_Double, helperCol)).Sort _
                Key1:=.Cells(1, helperCol), Order1:=xlAscending, Header:=xlYes
            
            ' 第三步：批量删除所有"删除"标记的行
            .Rows(j + 2 & ":" & LR_Double).Delete
        End If
        
        ' 删除辅助列，还原工作表结构
        .Columns(helperCol).Delete
        
        ' 恢复屏幕刷新和事件
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End With
    
    ' 可选：输出统计结果提示
    MsgBox "共统计到" & j & "个粉色背景单元格，已保留对应行", vbInformation
End Sub

关键优化点解析 #

• 关闭屏幕刷新/事件：Application.ScreenUpdating = False 避免每次操作都刷新界面，这是提升VBA性能的基础操作
• 辅助列标记：把逐行删除的操作转化为标记+排序，只需要1次排序和1次批量删除，操作次数从几百次降到2次
• 无粉色场景处理：通过判断j=0直接删除所有非表头行，避免无效的排序操作
• 批量操作：Excel对批量操作的处理效率远高于逐行操作，哪怕是几千行也能快速完成

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