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

Qs18

再试一下是不是需要的......

一念成佛

Qs18 发表于 2024-6-12 21:57
再试一下是不是需要的......

谢谢，解决的这么快，是这样的。具体我是要修改姓名手机存在列、以及需要核对的单元格位置就OK，我试一下。

一念成佛

Qs18 发表于 2024-6-12 21:57
再试一下是不是需要的......

我做了单元格及列的修改，完全可用，太好了，经过几次调试，完全没问题，
现在相同的标红，如果不同的姓名或手机号可以标为比较亮的蓝颜色吗？以示区别。

一念成佛

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

老师，你好！
上面的两个VBA代码里，在第一个代码里字符标红基础上再加粗，怎么修改一下代码？
然后在下面的代码里，怎么恢复不标红，不加粗？

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))
        
        With Sheet1.Range("c1").Characters(Start:=x, Length:=c).Font
        .Color = -16776961
        .Bold = True
        End With
        End If
    Next i
Next
End With
MsgBox "核对完成！"
End Sub

Sub 恢复颜色()
        With Sheet1.Range("c1").Font
        .ColorIndex = xlAutomatic
        .Bold = False
        End With
End Sub

Qs18

试试是不是需要的样子

一念成佛

Qs18 发表于 2024-6-17 20:43
试试是不是需要的样子

按照你修改代码的建议，我稍作修改，加上一个with，end with，完全适配，我基础太差，谢谢老师的不吝指教。

Qs18

一念成佛 发表于 2024-6-17 21:44
按照你修改代码的建议，我稍作修改，加上一个with，end with，完全适配，我基础太差，谢谢老师的不吝指教 ...

其实我也是才学习，我们就互相学习吧

一念成佛

Qs18 发表于 2024-6-18 08:31
其实我也是才学习，我们就互相学习吧

我是照葫芦画瓢，有样学样，一知半解，半瓶醋都不算，相互不了，以后还请多多指教，别嫌麻烦就行。