在Excel中如何基于B列子串高亮A列字符串中的对应部分？

针对你需要根据B列子串（支持多个、顺序不限）高亮A列对应内容的需求，这里提供两种实用方案：

方法一：VBA宏（支持多子串，最灵活） #

这个方案能处理B列中用逗号分隔的多个子串，不管子串顺序如何，都能精准匹配并高亮A列里的对应内容。

操作步骤： #

1. 打开Excel文件，按 Alt + F11 打开VBA编辑器。
2. 右键左侧的工作簿名称，选插入→模块。
3. 把下面的代码粘贴到模块里：

Sub HighlightSubstrings()
    Dim ws As Worksheet
    Dim cellA As Range, cellB As Range
    Dim substrs() As String
    Dim i As Integer, pos As Integer
    Dim highlightColor As Long
    
    ' 自定义高亮颜色：这里用黄色，要改的话直接换，比如vbRed是红色
    highlightColor = vbYellow
    
    ' 改成你实际用的工作表名称，比如"数据"就写"数据"
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 遍历A列从第2行开始的所有非空单元格（第1行是表头）
    For Each cellA In ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        Set cellB = ws.Cells(cellA.Row, "B")
        ' 先清空当前单元格的格式，避免残留
        cellA.Font.ColorIndex = xlAutomatic
        cellA.Font.Bold = False
        
        ' 如果B列单元格不为空，就分割子串
        If cellB.Value <> "" Then
            ' 按中文逗号分割，要是你用的是英文逗号，把"，"改成","
            substrs = Split(cellB.Value, "，")
            
            ' 逐个处理每个子串
            For i = LBound(substrs) To UBound(substrs)
                substrs(i) = Trim(substrs(i)) ' 去掉子串前后的空格
                If substrs(i) <> "" Then
                    ' 查找子串位置，vbTextCompare是不区分大小写，要区分就删掉这个参数
                    pos = InStr(1, cellA.Value, substrs(i), vbTextCompare)
                    ' 循环找所有匹配的地方，避免只高亮第一个
                    Do While pos > 0
                        ' 给匹配到的子串设置高亮格式
                        cellA.Characters(Start:=pos, Length:=Len(substrs(i))).Font.Color = highlightColor
                        cellA.Characters(Start:=pos, Length:=Len(substrs(i))).Font.Bold = True
                        ' 找下一个匹配的位置
                        pos = InStr(pos + Len(substrs(i)), cellA.Value, substrs(i), vbTextCompare)
                    Loop
                End If
            Next i
        End If
    Next cellA
End Sub

4. 调整代码里的工作表名称、分隔符和高亮颜色，符合你的实际情况。
5. 按F5运行宏，或者回到Excel界面，点开发工具→宏，选HighlightSubstrings执行就行。

小提示： #

• 要区分大小写的话，删掉InStr里的vbTextCompare参数。
• 运行前记得保存文件，防止意外丢数据。

方法二：条件格式（仅适用于单个子串） #

如果B列每个单元格只有一个子串，用条件格式更简单，不用写代码：

1. 选中A列需要处理的单元格范围（比如A2:A6）。
2. 点开始→条件格式→新建规则。
3. 选使用公式确定要设置格式的单元格。
4. 输入公式：=ISNUMBER(SEARCH(B2,A2))（SEARCH不区分大小写，要区分就换成FIND）。
5. 点格式，设置你想要的高亮样式（比如字体变红、填充黄色），确定后应用即可。

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