Excel需求：选中首列单元格，高亮第三至五列含该值的单元格

下面提供两种方案，分别适配不同需求的Excel新手：

方案一：无需VBA，用条件格式实现 #

操作简单，无需写代码，仅需手动刷新触发高亮：

• 选中第三到第五列的所有数据区域（比如C2:E100，根据你的实际数据范围调整）
• 点击「开始」选项卡 → 「条件格式」→ 「新建规则」
• 选择「使用公式确定要设置格式的单元格」
• 在公式输入框粘贴：=ISNUMBER(SEARCH(CELL("contents"),C1))

  注：这里的C1是选中区域的左上角单元格，Excel会自动对其他单元格做相对引用

• 点击「格式」按钮，切换到「填充」选项卡，选好高亮颜色（比如黄色）后确定
• 设置完成后，选中A列任意单元格，按F9刷新工作表，第三到第五列中包含该单元格内容的单元格就会高亮

方案二：用VBA实现自动高亮（更便捷） #

想要选中单元格时自动触发高亮、无需手动刷新，可使用这段简单的VBA代码：

1. 右键点击你的工作表标签（比如「Sheet1」），选择「查看代码」
2. 在弹出的VBA编辑器窗口中，粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 清除之前的高亮格式
    Me.Range("C:E").Interior.ColorIndex = xlNone
    
    ' 仅处理选中A列单个单元格的情况
    If Target.Column = 1 And Target.Count = 1 Then
        Dim searchText As String
        searchText = Target.Value
        
        ' 若选中单元格为空，直接退出
        If searchText = "" Then Exit Sub
        
        Dim cell As Range
        ' 遍历第三到第五列的所有常量单元格（可按需调整范围）
        For Each cell In Me.Range("C:E").SpecialCells(xlCellTypeConstants)
            ' 忽略大小写匹配内容
            If InStr(1, cell.Value, searchText, vbTextCompare) > 0 Then
                cell.Interior.Color = vbYellow ' 可替换为自定义颜色，比如RGB(255,200,100)
            End If
        Next cell
    End If
End Sub

3. 关闭VBA编辑器，回到Excel界面
4. 现在选中A列任意单元格，第三到第五列中包含该内容的单元格会自动高亮；选中其他列或多个单元格时，之前的高亮会自动清除

代码调整说明 #

• 若你的第三到第五列不是C:E，把代码里的C:E替换成实际列范围（比如D:F）
• 想要修改高亮颜色，把vbYellow换成其他颜色代码，比如RGB(255,192,0)是橙色
• 若需要包含公式计算出的内容，把SpecialCells(xlCellTypeConstants)改成Me.Range("C:E")（遍历整列，数据量大时可能稍慢）

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