Excel VBA宏意外修改条件格式Applies to规则，如何解决？

当使用VBA的RemoveDuplicates方法删除重复行时，Excel会自动调整条件格式的AppliesTo范围，移除已删除行对应的区域，最终导致范围变成多个零散单元格。要解决这个问题，只需在去重操作前后保存并恢复条件格式的原始应用范围即可。

方案1：保存所有条件格式的原始范围（通用版） #

如果工作表中有多个不同应用范围的条件格式，用这个方法逐个保存并恢复：

Sub RemoveColumnDuplicates()
    Dim ws As Worksheet
    Dim originalCfRanges As Collection
    Dim cf As FormatCondition
    Dim addrIndex As Integer
    
    ' 指定目标工作表，替换成你的表名
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set originalCfRanges = New Collection
    
    ' 保存所有条件格式的原始应用范围地址
    For Each cf In ws.Cells.FormatConditions
        originalCfRanges.Add cf.AppliesTo.Address
    Next cf
    
    ' 执行去重操作：这里以A列为例，根据需求修改列号和Header参数
    ws.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 恢复每个条件格式的应用范围
    addrIndex = 1
    For Each cf In ws.Cells.FormatConditions
        cf.AppliesTo = ws.Range(originalCfRanges(addrIndex))
        addrIndex = addrIndex + 1
    Next cf
    
    ' 释放对象
    Set originalCfRanges = Nothing
    Set ws = Nothing
End Sub

方案2：直接指定固定范围（简化版） #

如果所有条件格式都应用在同一个固定大范围（比如$A$1:$Z$1000），可以直接硬编码这个范围，代码更简洁：

Sub RemoveColumnDuplicates()
    Dim ws As Worksheet
    Dim targetCfRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 替换成你的条件格式原始应用范围
    Set targetCfRange = ws.Range("$A$1:$Z$1000")
    
    ' 执行去重操作
    ws.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 强制恢复所有条件格式的应用范围
    Dim cf As FormatCondition
    For Each cf In ws.Cells.FormatConditions
        cf.AppliesTo = targetCfRange
    Next cf
    
    Set targetCfRange = Nothing
    Set ws = Nothing
End Sub

关键说明 #

• 去重操作后Excel自动调整条件格式范围是默认行为，我们通过强制重置AppliesTo属性，让条件格式回到原来的完整区域。
• 记得根据实际需求修改代码中的工作表名、去重列号、Header参数（xlYes或xlNo）以及条件格式的目标范围。

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