VBA条件格式需求：含Urgent的单元格所在连续6行高亮（不限列）

你的需求是当任意单元格包含文本“Urgent”（位置不限）时，高亮该单元格所在的连续6行，原来的代码有两个核心问题：一是硬编码了J列，无法检测其他列的“Urgent”；二是没有实现“连续6行”的高亮逻辑。下面是修正后的完整解决方案：

关键逻辑说明 #

要实现需求，条件格式的公式需要完成两件事：

1. 检查当前行的任意列是否包含“Urgent”文本（不区分大小写，若要区分可替换SEARCH为FIND）
2. 判断当前行是否处于目标行的连续6行范围内（即从目标行开始，到目标行+5行的区间）

修正后的VBA代码 #

Sub HighlightUrgentRows()
    ' 清除已有的条件格式，避免冲突
    Cells.FormatConditions.Delete
    
    ' 添加新的条件格式规则
    With Cells.FormatConditions.Add(Type:=xlExpression, Formula1:= _
        "=OR(ISNUMBER(SEARCH(""Urgent"",$A1:$XFD1)))*(ROW()>=ROW($A1))*(ROW()<=ROW($A1)+5)")
        .SetFirstPriority
        ' 设置高亮背景色（可根据需求调整颜色值）
        .Interior.Color = 7405514
        .Interior.PatternColorIndex = xlAutomatic
        .Interior.TintAndShade = 0
        ' 不停止后续规则（如果有其他条件格式需要生效）
        .StopIfTrue = False
    End With
End Sub

代码细节解释 #

• $A1:$XFD1：覆盖当前行的所有列（Excel的列范围是A到XFD），确保能检测任意列的“Urgent”
• OR(ISNUMBER(SEARCH("Urgent",$A1:$XFD1)))：检查当前行是否有单元格包含“Urgent”，SEARCH支持模糊匹配且不区分大小写
• (ROW()>=ROW($A1))*(ROW()<=ROW($A1)+5)：判断当前行是否在目标行的连续6行区间内（目标行本身+后续5行）
• Cells.FormatConditions.Delete：先清除原有条件格式，避免规则冲突

运行这段代码后，只要工作表中任意单元格包含“Urgent”，该单元格所在行及接下来的5行都会被高亮。

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