将条件格式的单元格的颜色更改为真实颜色

Question

我有一个Excel工作表，其中包含条件不同的条件格式的单元格。我需要保留条件格式的初始颜色，尽管在以下计算中该值将更改。

我的解决方案atm是手动选择和填充单元格。有可能自动化吗？

以下是excel工作表[1]部分的屏幕截图：https://i.stack.imgur.com/g3ePL.png

Answer 1

您可以使用类似这样的内容：

Sub fixCF_Formatting()
    On Error Resume Next
    Dim CF_range As Range
    Set CF_range = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
    On Error GoTo 0
    If Not CF_range Is Nothing Then
    Application.ScreenUpdating = False
    Dim cell As Range
    For Each cell In CF_range
        If cell.Interior.Color <> cell.DisplayFormat.Interior.Color Then _
                        cell.Interior.Color = cell.DisplayFormat.Interior.Color
    Next cell
    ' remove the CF if desired
    CF_range.FormatConditions.Delete
    End If
End Sub

如果要保留CF规则，请在末尾注释掉Delete行。