求助大神用vba把重复姓名标记红色

xiaoyao202

求助大神用vba把重复姓名标记红色

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    For j = 1 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then d(arr(j, 1)) = j
    Next j
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = Join(d.keys, "|")
        For j = 1 To UBound(arr)
            For i = 1 To UBound(arr, 2)
                For Each m In .Execute(arr(j, i))
                    Cells(j, i).Characters(m.firstindex + 1, Len(m)).Font.ColorIndex = 3
                    Cells(d(m.Value), 1).Font.ColorIndex = 3
                Next m
            Next i
        Next j
    End With
   
    Application.ScreenUpdating = True
End Sub

liulang0808

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

gwjkkkkk

参与一下。。。

LIUZHU

JS宏

LIUZHU

附件在此，请测试

cjc209

liulang0808 发表于 2023-3-14 07:39
附件内容供参考。。。。。

不对 他要重复的才变色

liulang0808

cjc209 发表于 2023-3-14 10:25
不对 他要重复的才变色

的确有问题
For i = 1 To UBound(arr, 2)
改成
For i = 2 To UBound(arr, 2)，是从第二列开始的，参数有误

cjc209

liulang0808 发表于 2023-3-14 11:47
的确有问题
For i = 1 To UBound(arr, 2)
改成

严格来讲 还是不严谨 因为比如王伟与王伟华  他就会吧王伟华 中的前两个字当成王伟上色  

xiaoyao202

谢谢各位大神
我想问下在名字前面加 2卡 如图需要改那些参数