删除可能在范围（b1：b54）中的任何单元格上出现的文本和空白的条件格式

Question

条件格式g应用于包含数字，文本和空白的范围（B1：B54）。完成此操作后，我需要将一列中的单元格重新着色为默认值，根据条件格式将其着色为绿色或红色。

任何人都可以给我一个小脚本来删除范围（B1：B54）中的文本和空白的CF。

Answer 1

您可以尝试：

Option Explicit

Sub Delete_CF()

    Dim rng As Range, cell As Range


    With ThisWorkbook.Worksheets("Sheet1") 'Change if needed

        'Set the range to loop
        Set rng = .Range("B1:B54")

        'Loop the range
        For Each cell In rng

            With cell
                'Check if cell is empty or not numeric
                If .Value = "" Or Not IsNumeric(.Value) Then
                    .FormatConditions.Delete
                End If
            End With

        Next cell

    End With

End Sub