求助：如何高亮Excel表格Column B中与Column C匹配的文本

用VBA实现精准高亮 #

以下代码可以帮你实现B列中与对应行C列词汇匹配的文本高亮，完全符合你的预期效果：

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 右键左侧工程窗口里的目标工作簿 → 插入 → 模块
3. 粘贴下方代码：

Sub HighlightMatchingText()
    Dim ws As Worksheet
    Dim rngB As Range, rngC As Range
    Dim cellB As Range, cellC As Range
    Dim matchText As String
    Dim startPos As Integer, textLen As Integer
    
    ' 替换成你的工作表名称，比如"数据Sheet"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动获取B、C列的有效数据范围（跳过表头）
    Set rngB = ws.Range("B2:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    Set rngC = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
    
    ' 逐行处理匹配
    For Each cellB In rngB
        Set cellC = rngC.Cells(cellB.Row - 1)
        matchText = Trim(cellC.Value)
        
        If matchText <> "" Then
            ' 先清除之前的高亮格式
            cellB.Font.ColorIndex = xlAutomatic
            startPos = InStr(1, cellB.Value, matchText, vbTextCompare)
            
            ' 处理单元格内多个重复匹配的情况
            Do While startPos > 0
                textLen = Len(matchText)
                ' 设置高亮颜色（这里用红色，可自行修改RGB值）
                cellB.Characters(startPos, textLen).Font.Color = RGB(255, 0, 0)
                startPos = InStr(startPos + textLen, cellB.Value, matchText, vbTextCompare)
            Loop
        End If
    Next cellB
End Sub

使用说明 #

• 把代码里的"Sheet1"改成你实际的工作表名称
• 按F5运行宏，或者回到Excel，通过「开发工具」→「宏」选择HighlightMatchingText执行

进阶：自动更新高亮 #

如果想要修改C列内容时自动更新B列的高亮，在工作表模块（不是普通模块）里粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当C列内容变化时触发高亮更新
    If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
        HighlightMatchingText
    End If
End Sub

自定义调整 #

• 要是想改高亮样式，比如用黄色背景，把Font.Color改成Interior.Color，RGB值换成RGB(255,255,0)即可
• vbTextCompare表示忽略大小写匹配，要是需要严格区分大小写，改成vbBinaryCompare

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