如何保留Excel条件格式应用效果并删除条件格式规则？

我完全懂你的需求：先通过条件格式给符合$A1=$F$1的单元格加上黄色底纹，然后把这些格式“固化”——也就是让单元格直接拥有这个黄色填充，不再依赖条件格式规则，避免后续数据变动时格式自动改变。

下面是几种实现方案，你可以根据自己的场景选择：

基础版（复制粘贴格式） #

这个方法逻辑简单，先应用条件格式，再把格式粘贴回单元格本身，最后删除规则：

Sub ApplyAndLockConditionalFormatting()
    ' 应用你的条件格式规则
    With Sheet1.Range("=$1:$1048576")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=$F$1"
        .FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 255, 0)
    End With
    
    ' 将条件格式生效的格式复制为单元格固定格式
    Sheet1.Range("=$1:$1048576").Copy
    Sheet1.Range("=$1:$1048576").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 删除所有条件格式规则
    Sheet1.Range("=$1:$1048576").FormatConditions.Delete
    
    ' 清除剪贴板，避免干扰后续操作
    Application.CutCopyMode = False
End Sub

高效版（直接定位格式化单元格） #

如果你的工作表很大，复制粘贴整个范围效率不高，可以直接筛选出被条件格式影响的单元格，给它们设置固定填充色：

Sub ApplyAndLockConditionalFormatting_Efficient()
    Dim targetRange As Range
    Set targetRange = Sheet1.Range("=$1:$1048576")
    
    ' 应用条件格式规则
    With targetRange
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=$F$1"
        .FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 255, 0)
    End With
    
    ' 直接给符合条件的单元格设置固定黄色填充
    targetRange.SpecialCells(xlCellTypeAllFormatConditions).Interior.Color = RGB(255, 255, 0)
    
    ' 删除条件格式规则
    targetRange.FormatConditions.Delete
End Sub

安全版（处理无匹配单元格的情况） #

如果没有单元格符合$A1=$F$1的条件，上面的高效版会报错，这个版本加上了错误处理：

Sub ApplyAndLockConditionalFormatting_Safe()
    Dim targetRange As Range
    Dim formattedCells As Range
    Set targetRange = Sheet1.Range("=$1:$1048576")
    
    ' 应用条件格式规则
    With targetRange
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=$F$1"
        .FormatConditions(.FormatConditions.Count).Interior.Color = RGB(255, 255, 0)
    End With
    
    ' 尝试筛选被条件格式影响的单元格，避免无匹配时抛出错误
    On Error Resume Next
    Set formattedCells = targetRange.SpecialCells(xlCellTypeAllFormatConditions)
    On Error GoTo 0
    
    ' 如果有匹配的单元格，设置固定填充色
    If Not formattedCells Is Nothing Then
        formattedCells.Interior.Color = RGB(255, 255, 0)
    End If
    
    ' 删除条件格式规则
    targetRange.FormatConditions.Delete
End Sub

核心逻辑说明 #

不管用哪种方法，本质都是两步：

1. 先让条件格式规则生效，给目标单元格加上黄色底纹；
2. 将这个动态的条件格式转换为单元格的固定格式，然后删除条件规则，这样格式就不会再随数据变化而改变了。

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