根据条件值填充删除行

Question

  

我目前正在进行数据库分析，并且我有一个条件格式规则，它将单元格填充为红色。我需要删除该单元格的红色整行，如果单元格手动填充该颜色而不是通过条件值规则，我可以这样做，这就是我现在所拥有的：

  Sub delteRed()

  Dim xRg As Range, rgDel As Range
  Sheets("Hoja1").Select
  For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
    If xRg.Interior.ColorIndex = 3 Then
        If rgDel Is Nothing Then
            Set rgDel = xRg
        Else
            Set rgDel = Union(rgDel, xRg)
        End If
    End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete

End Sub

Answer 1

在VBA子程序中，您可以使用DisplayFormat来确定CFR调整过的单元格的颜色。

If xRg.DisplayFormat.Interior.ColorIndex = 3 Then

DisplayFormat不能在UDF中使用。