如何通过VBA实现自动筛选颜色不等于指定RGB值的单元格

问题原因 #

你现有代码的两个核心错误：

1. 按单元格颜色筛选时，Criteria1需要传入Long类型的颜色值，你直接把RGB(255, 199, 206)作为字符串传入是无效的
2. Excel原生AutoFilter的xlFilterCellColor模式仅支持筛选「等于指定颜色」的单元格，不支持直接使用≠逻辑做反向筛选。

推荐实现方案（大表高效版） #

用辅助列实现，万行数据也可以秒处理，不需要逐行遍历，性能远高于直接循环隐藏：

Sub 筛选非指定颜色单元格()
    Dim targetColor As Long
    Dim lastRow As Long
    ' 定义目标颜色的RGB值
    targetColor = RGB(255, 199, 206)
    ' 取消当前所有筛选
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    ' 获取当前表H列最后一行行号
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    
    ' 临时辅助列用I列，写入判断逻辑：H列单元格底色是否等于目标颜色
    Range("I2:I" & lastRow).Formula = "=InteriorColor(RC8)=" & targetColor
    ' 筛选辅助列结果为False的行（即H列不等于目标颜色）
    Range("A1:I" & lastRow).AutoFilter Field:=9, Criteria1:="FALSE"
    
    ' 跑完如果不需要保留辅助列可以取消下面这行的注释删掉辅助列
    ' Columns("I").Delete
End Sub

' 自定义函数：获取单元格底色的颜色值
Function InteriorColor(rng As Range) As Long
    ' 如果是条件格式生成的颜色，把下面改成InteriorColor = rng.DisplayFormat.Interior.Color
    InteriorColor = rng.Interior.Color
End Function

无辅助列实现方案 #

如果不想新增辅助列，可以用遍历隐藏的方式，提前关闭屏幕更新提升运行效率：

Sub 无辅助列筛选非指定颜色()
    Dim targetColor As Long
    Dim lastRow As Long
    Dim i As Long
    targetColor = RGB(255, 199, 206)
    ' 关闭屏幕更新、事件，大幅提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    
    For i = 2 To lastRow
        ' 判断H列单元格颜色，等于目标颜色的隐藏，否则显示
        ' 条件格式颜色同样改用 Cells(i, "H").DisplayFormat.Interior.Color
        If Cells(i, "H").Interior.Color = targetColor Then
            Rows(i).Hidden = True
        End If
    Next i
    
    ' 恢复系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

注意事项 #

• 如果单元格颜色是通过条件格式生成的，需要把代码中读取颜色的部分改为rng.DisplayFormat.Interior.Color
• 两种方案都适配大表场景，优先选择辅助列方案，运行速度更快

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