试试这个，可见的单元格将被格式化

Set rng = Range("Your range").SpecialCells(xlCellTypeVisible)
        rng = ActiveCell.DisplayFormat.Interior.Color = vbRed

下面是您请求的“if”条件的示例代码。

Sub Highlight_Greater_Than()

Dim ws As Worksheet
Dim Rng As Range
Dim ColorCell As Range

Set ws = Worksheets("Name")
Set rng = Range("Your range").SpecialCells(xlCellTypeVisible)
    'rng = ActiveCell.DisplayFormat.Interior.Color = vbRed
Set ColorCell = rng

For Each ColorCell In Rng
If ColorCell.Value > 1 Then      " You can define here"  "greater, smaller, equal  etc.."
ColorCell.Interior.Color = vbred

Else
ColorCell.Interior.ColorIndex = "vb(colour)or" xlNone
End If
Next

End Sub