Удаление условия форматирования для текстов и пробелов, которые могут возникнуть в любой ячейке в диапазоне (b1: b54)

Question

Условное форматированиеg применяется к диапазону (B1: B54), который содержит цифры, текст и пробел.Как только это будет сделано, я должен перекрасить ячейки в столбце обратно в ячейку по умолчанию, окрашенную в зеленый или красный цвет из условного форматирования.

Может кто-нибудь дать мне небольшой скрипт, чтобы удалить CF для текстови пробелы в диапазоне (B1: B54).

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