VBA条件格式：替换Selection为Range实现A:D行按A列文本填充

原录制宏的问题在于，条件格式是检查当前单元格是否包含指定文本，所以只有A列符合条件的单元格会被格式化。要实现"A列包含文本时，对应行A:D都变色"，需要改用公式型条件格式，同时直接用Range对象替代Selection，避免选中操作。

修改后的VBA代码如下：

With Range("A:D")
    ' 清除已有条件格式（可选，避免重复添加导致格式混乱）
    .FormatConditions.Delete
    ' 添加基于公式的条件格式
    .FormatConditions.Add Type:=xlExpression, Formula1:="=NOT(ISERROR(SEARCH(""("",A1)))"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
End With

关键说明： #

• 用With Range("A:D")替代选中操作，直接操作目标区域，更高效且避免选中状态干扰。
• 条件格式类型改为xlExpression，用公式=NOT(ISERROR(SEARCH(""("",A1)))判断当前行的A列单元格是否包含"("：
  • SEARCH(""("",A1)：在A1中查找"("，找到返回位置，找不到返回错误
  • NOT(ISERROR(...))：将错误转为False，找到则为True，触发格式
• 公式里的A1是相对引用，会自动适配每一行的A列单元格，实现整行A:D的格式联动。

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