Excel VBA：清除条件格式规则后如何保留单元格高亮颜色？

问题根源：条件格式的高亮颜色是规则动态应用的，并非单元格本身的填充属性，所以删除条件格式规则后，颜色会自动消失。要保留颜色，需要将规则生成的颜色转为单元格的永久填充色，或者直接用VBA给符合条件的单元格设置永久填充色。

方案一：修改「取消检查」宏，先固化颜色再删规则 #

修改Uncheck_Duplicate宏，先遍历单元格，将符合条件格式规则的单元格填充色固定为当前条件格式的颜色，再删除规则：

Sub Uncheck_Duplicate()
    Dim targetRng As Range
    Dim cell As Range
    
    Set targetRng = Range("H8:AK9999")
    
    ' 遍历区域，把条件格式的颜色转为单元格永久填充色
    For Each cell In targetRng
        If cell.FormatConditions.Count > 0 Then
            ' 判断单元格是否满足条件格式规则
            With cell.FormatConditions(1)
                If Evaluate(.Formula1) Then
                    cell.Interior.Color = .Interior.Color
                End If
            End With
        End If
    Next cell
    
    ' 删除条件格式规则
    targetRng.FormatConditions.Delete
End Sub

方案二：直接用VBA设置永久填充色（替代条件格式） #

放弃条件格式，直接用VBA判断条件并给单元格设置永久填充色，这样颜色本身就不会依赖规则存在：

修改「检查重复」宏 #

Sub Check_Duplicate()
    Dim targetRng As Range
    Dim cell As Range
    Dim matchStr As String
    Dim shpRng As Range
    
    Set targetRng = Range("H8:AK9999")
    Set shpRng = Sheets("Shp").Range("P9:P65536")
    
    ' 先清除原有高亮（可选，根据需求保留）
    targetRng.Interior.ColorIndex = xlColorIndexNone
    
    For Each cell In targetRng
        ' 生成和原条件格式一致的匹配字符串
        matchStr = Right("00000000" & Cells(cell.Row, "A").Value, 8) & "-" & Right("0000" & cell.Value, 4)
        ' 检查是否在Shp表的目标区域中存在匹配
        If Not IsError(Application.Match(matchStr, shpRng, 0)) Then
            cell.Interior.Color = 65535 ' 设置黄色高亮
        End If
    Next cell
End Sub

新增「清除高亮」宏（可选） #

如果需要清除颜色，添加这个宏绑定按钮即可：

Sub Clear_Highlight()
    Range("H8:AK9999").Interior.ColorIndex = xlColorIndexNone
End Sub

两种方案对比：

• 方案一保留你原有的条件格式工作流，适合需要临时预览高亮再固化的场景
• 方案二更直接，没有条件格式的依赖，颜色本身就是单元格的属性，不会因为规则删除消失

内容的提问来源于stack exchange，提问作者Ray