如何用AutoFilter筛选非红色单元格？（无需For Next循环）

你可以使用xlFilterAllExceptThisColor操作符来实现仅通过AutoFilter筛选非红色单元格，完全不需要循环。

实现代码 #

Sub FilterNonRedCells()
    Sheets("Sheet1").Range("A1:E500").AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterAllExceptThisColor
End Sub

说明 #

• 操作符xlFilterAllExceptThisColor会直接排除Criteria1指定颜色的单元格，正好满足筛选非红色单元格的需求
• 对应你给出的示例场景：A2蓝色、A3绿色、A4红色、A5黄色，运行这段代码后，会自动筛选出A2、A3、A5这几个非红色的单元格

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