Мой макрос для удаления столбцов с красными ячейками, кажется, не работает с условным форматированием красного

Question

поэтому я сделал этот код, чтобы удалить все столбцы, которые имеют внутренние красные ячейки в строке 18. Код работает.

Проблема в том, что он не работает, когда я условно форматирую ячейки в этой строке.Я планировал условно отформатировать строку, а затем использовать макрос, чтобы быстро очистить столбцы с красными ячейками.

Это работает, когда я заполняю ячейку красным, но не когда я использую условное форматирование.Похоже, он должен быть таким же красным в условном форматировании.

 Sub sbDelete_Columns_Based_On_Cell_Color()
    Dim lColumn As Long
    Dim iCntr As Long

    lColumn = 50
    For iCntr = lColumn To 1 Step -1
    If Cells(18, iCntr).Interior.Color = Excel.XlRgbColor.rgbRed Then
      Columns(iCntr).Delete
    End If
    Next iCntr
    End Sub

Answer 1

Используя приведенный ниже код, вы можете удалить цвет ячейки из условного форматирования:

Option Explicit

Sub test()

    Dim Color As Long

    With ThisWorkbook.Worksheets("Sheet2")

        Color = .Range("D1").DisplayFormat.Interior.Color

    End With

End Sub