怎么解决一列姓名与一个单元格姓名核对的问题

一念成佛

我又来求助各位大神了！
如题，核对又是核对，简单粗暴，但无奈。一列姓名数据有可能三四百个，需要去核对一个单元格内有没有相同的，如果姓名不同，就将姓名字符标红。
看似简单，我在百度的AI上，搜了很多VBA，但没有个合适的。请教各位大神，帮个忙解决一下，谢谢了，鲜花表心意。

lmgz007

问题都没说清楚，实在不好下手

ynzsvt

建议你逆向考虑，先将单元格标红，然后将单元格找到的名字标黑，然后数字及逗号标黑，冒号结尾的标黑。完工。

Qs18

试一下.....

Qs18

试试.......

Qs18

Sub test()
Dim arr, x, c, i
arr = Sheet1.Range("n1").CurrentRegion.Value
With Sheet1.Range("c1")
    For i = 1 To UBound(arr)
        x = InStr(.Value, arr(i, 1))
        If x Then
        c = Len(arr(i, 1))
        Sheet1.Range("c1").Characters(Start:=x, Length:=c).Font.Color = -16776961
        End If
    Next i
End With
End Sub

一念成佛

Qs18 发表于 2024-6-12 06:32
Sub test()
Dim arr, x, c, i
arr = Sheet1.Range("n1").CurrentRegion.Value

谢谢帮忙解决了工作上的实际问题，少做好多遍眼睛保健操，大大延长了眼睛的使用寿命。学习了！

一念成佛

Qs18 发表于 2024-6-12 06:32
Sub test()
Dim arr, x, c, i
arr = Sheet1.Range("n1").CurrentRegion.Value

你好大神，如果姓名后面还有手机号，需要一起核对，拜托您再帮忙改进一下，谢谢劳烦了。

Qs18

再试一下.....

Qs18

Sub test()
Dim arr, x, c, i
arr = Sheet1.Range("n1").CurrentRegion.Value
With Sheet1.Range("c1")
For j = 1 To UBound(arr, 2)
    For i = 1 To UBound(arr)
        x = InStr(.Value, arr(i, j))
        If x Then
        c = Len(arr(i, j))
        Sheet1.Range("c1").Characters(Start:=x, Length:=c).Font.Color = -16776961
        End If
    Next i
Next
End With
MsgBox "核对完成！"
End Sub