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

Question

条件格式应用于包含数字、文本和空白的范围 (B1:B54)。完成此操作后，我需要将列中的单元格重新着色为默认单元格，这些单元格从条件格式中被着色为绿色或红色。

谁能给我一个小脚本来删除范围内的文本和空白的CF（B1：B54）。

标签： excelvba

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