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

我的删除带有红色单元格的列的宏似乎不适用于条件格式红色

1 个答案: