[求助]比较左列单元格相同文字进行加粗标红。【已解决】

luck8

比较左边的单元格，右边单元格内的文字与左边相同的部分进行加粗标红。我在论坛找了下，没有找对路子，希望帮忙下，谢谢！

ben168

看下是不是你要的效果

luck8

提示语法错误

luck8

请示出错，帮忙看看，谢谢！

ben168

Sub test()
    For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(3).Row
        found = InStr(1, Range("B" & i), Range("A" & i))
        len1 = Len(Range("A" & i))
        If found > 0 Then
            Debug.Print found
            With Range("B" & i).Characters(Start:=found, Length:=len1).Font
                .FontStyle = "加粗"
                .Color = -16776961
            End With
        End If
    Next i
End Sub

gwjkkkkk

请楼主参考。。。

luck8

ben168 发表于 2022-5-17 08:19
Sub test()
    For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(3).Row
        found  ...

谢谢，可以实现了。谢谢您！

luck8

gwjkkkkk 发表于 2022-5-17 09:18
请楼主参考。。。

谢谢您的帮助，谢谢！