如何在Excel行条件格式中跳过已有手动背景色的单元格？

你的问题核心在于条件格式的判断逻辑没有针对单个单元格的背景色进行检查——之前的VBA代码是在设置条件格式时判断整个选区的颜色，而不是每个单元格应用格式时判断自身的颜色，所以无法实现跳过紫色单元格的需求。

我们可以通过在条件格式的公式中加入「单元格背景色不等于紫色」的判断来解决这个问题，具体步骤如下：

1. 确认紫色的颜色值 #

你之前用的153164535对应你的紫色背景，也可以用vbLavender的十进制值16771447（可在VBA中执行Debug.Print vbLavender查看），确保使用的颜色值和宏标记的紫色完全一致。

2. 定义名称调用宏表函数读取背景色 #

Excel普通公式无法直接读取单元格背景色，需先定义一个名称来调用宏表函数GET.CELL：

• 点击「公式」选项卡 → 「定义名称」
• 名称：CellFillColor
• 引用位置：=GET.CELL(63,INDIRECT("RC",FALSE))
  • 参数63代表返回单元格的填充颜色索引；INDIRECT("RC",FALSE)确保引用当前单元格。

3. 设置条件格式（手动或VBA） #

手动设置方式 #

选中目标区域A2:BV99999：

1. 「开始」选项卡 → 「条件格式」 → 「新建规则」 → 选择「使用公式确定要设置格式的单元格」
2. 输入公式：=AND($BS2=6, CellFillColor<>153164535)
   • 公式逻辑：当当前行的BS列等于6，且当前单元格背景色不是紫色时，应用格式
3. 设置你需要的格式（比如主题色Dark1，TintAndShade=-0.2499...），点击确定
4. 确保该条件格式优先级最高（若有其他条件格式），无需开启StopIfTrue（除非你想阻止后续格式生效）

VBA代码实现方式 #

替换你之前的VBA代码为以下内容，它会正确添加带有颜色判断的条件格式：

Dim targetRange As Range
Set targetRange = ThisWorkbook.Worksheets("Worksheet").Range("A2:BV99999")

' 可选：删除旧的条件格式避免重复
targetRange.FormatConditions.Delete

' 添加新的条件格式规则
With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=AND($BS2=6, CellFillColor<>153164535)")
    .SetFirstPriority ' 设置为最高优先级
    With .Interior
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
    End With
    .StopIfTrue = False ' 允许后续条件格式生效（若有）
End With

关键注意事项 #

• GET.CELL是宏表函数，文件需保存为.xlsm格式，且启用宏才能正常工作
• 后续宏修改单元格背景色时，条件格式会自动更新（GET.CELL会实时读取颜色）
• 若不确定紫色颜色值，可在VBA中执行Debug.Print yourCell.Interior.Color（替换yourCell为任意标记过的紫色单元格）来确认

这样设置后，条件格式就只会应用到行内没有紫色背景的单元格，不会覆盖你之前用宏标记的内容了。

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