在A列中出现过的文字，标红

阿煮

B列单元格的文字，如果在A列中出现过，则标红。刚开始学VBA，会看不会编。求大神指点~谢谢

liulang0808

Sub test()
    Application.ScreenUpdating = False
    For j = 2 To Cells(Rows.Count, 1).End(3).Row
        For i = 1 To Len(Cells(j, 2))
            If InStr(Cells(j, 1), Mid(Cells(j, 2), i, 1)) > 0 Then
                Cells(j, 2).Characters(Start:=i, Length:=1).Font.ColorIndex = 3
            End If
        Next i
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。。

阿煮

liulang0808 发表于 2022-11-17 19:04
Sub test()
    Application.ScreenUpdating = False
    For j = 2 To Cells(Rows.Count, 1).End(3).Row ...

谢谢