Excel跨单元格条件格式规则误生效问题修复

现有Excel条件格式配置：单元格数值大于参考单元格数值时自动标红。需新增规则：若对应行C列内容为“Municipal”，则取消该位置的标红效果。当前使用VBA宏实现时，配置对所有单元格生效，未仅作用于Municipal所在行，相关代码嵌套在大型宏中运行，原有代码如下：

For x = 5 To lastRowPC
   If .Cells(x, 3) = "Municipal" Then
    With .Range(.Cells(x, 77), .Cells(x, 79)).FormatConditions(1).Font
        
        .Color = 0
        .TintAndShade = 0
    
    End With
    With .Range(.Cells(x, 77), .Cells(x, 79)).FormatConditions(1).Interior
    
        .PatternColorIndex = xlAutomatic
        .Color = vbWhite
        .TintAndShade = 0
    
    End With

End If
Next

核心错误是混淆了条件格式规则的作用层级：FormatConditions(1)是作用在整个绑定单元格区域的全局规则对象，和你前面引用的子Range没有关系。你修改这个对象的字体、填充属性，本质是直接修改了第一条标红规则的全局样式，自然会导致所有绑定该规则的单元格都被改动，不会仅作用于Municipal所在行。

二选一即可，优先选第一种，效率更高无冗余代码：

• 方案1：直接修改原有条件格式规则的判定公式，无需额外VBA遍历
  找到你之前设置的数值大于参考值即标红的条件格式规则，将原有判定公式修改为带排除逻辑的版本：
  =AND($C5<>"Municipal", 原数值比较公式)
  注意$C要加列锁定符号$，行号填条件格式应用区域的起始行号即可。修改后规则会自动跳过C列为Municipal的行，不需要额外写循环，运行效率远高于VBA遍历，也不会出现全局样式被误改的问题。
• 方案2：保留VBA实现逻辑，新增高优先级豁免规则，不要修改原有全局规则
  删掉原有循环里修改FormatConditions(1)属性的代码，替换为给Municipal行单独新增优先级最高、触发即停止后续规则判断的豁免规则，参考代码如下：

  ' 运行前可先恢复原有标红规则的默认样式，清除之前误改的配置
  For x = 5 To lastRowPC
     If .Cells(x, 3) = "Municipal" Then
      ' 给Municipal行的目标单元格加最高优先级豁免规则
      With .Range(.Cells(x, 77), .Cells(x, 79)).FormatConditions.Add( _
          Type:=xlExpression, _
          Formula1:="=$C" & x & "=""Municipal""")
          .Priority = 1 ' 设为最高优先级
          .StopIfTrue = True ' 触发本规则后不再执行后面的标红规则
          ' 设置豁免后的显示样式
          .Font.Color = 0
          .Font.TintAndShade = 0
          .Interior.PatternColorIndex = xlAutomatic
          .Interior.Color = vbWhite
          .Interior.TintAndShade = 0
      End With
  End If
  Next
  

  如果不需要在目标单元格保留其他条件格式效果，也可以在判断到Municipal行时，直接执行.Range(.Cells(x, 77), .Cells(x, 79)).FormatConditions.Delete移除目标单元格的所有条件格式，逻辑更简单。

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