突出显示一个单元格内符合指定条件的文字

gateun

单元格在第一个工作表，指定条件在第二个工作表，条件为一列多个单元格内容，突出显示一个单元格内符合指定条件的文字

tanglf188

Sub 宏1()
    arow = ActiveSheet.Range("A1").End(xlDown).Row
    brow = ActiveSheet.Range("B1").End(xlDown).Row
    For i = 2 To arow
        For j = 2 To brow
            bstr = Range("B" & j)
            estr = Range("E" & i)
            pos = InStr(1, estr, bstr, 1)
            If pos > 0 Then
                Range("E" & i).Select
                With ActiveCell.Characters(Start:=pos, Length:=Len(bstr)).Font
                    .Color = -16776961
                End With
            End If
        Next
    Next
End Sub

gateun

tanglf188 发表于 2022-12-1 23:28
Sub 宏1()
    arow = ActiveSheet.Range("A1").End(xlDown).Row
    brow = ActiveSheet.Range("B1").En ...

相似问题再次求助，一个单元格内同样文字出现两次以上，又如何修改代码
https://club.excelhome.net/forum ... amp;_dsign=d9933f3a