恳请您伸出援手指导指导，不胜感激！！！！！！

smiletwo

李元聪 发表于 2024-2-22 11:53
您好老师，您指点的这个我测试了一下，还有些疑惑，（中间单号有缺失的话，他会将后面的单号即使不缺失也 ...

自有单号建字典，客户单号不在字典中的标红

680926

Sub t()
Dim arr, brr, crr, i, k, a, x, y
arr = Sheets("我的表").Range("A1").CurrentRegion
brr = Sheets("回收的表").Range("a2").CurrentRegion
For i = 3 To UBound(arr)
    crr = Split(arr(i, 1), ",")
    For Each c In crr
k = 0
        For j = 2 To UBound(brr)
        a = brr(j, 1)
            If c * 1 = brr(j, 1) Then
                k = 1
            End If
        Next
        If k = 0 Then
        x = InStr(arr(i, 1), c)
        y = Len(c)
        Range("a" & i).Characters(x, 7).Font.Color = vbRed
     
        End If
    Next
Next
End Sub

李元聪

ykcbf1100 发表于 2024-2-22 13:00
代码更新。。。

已解决问题，谢谢您！

李元聪

taller 发表于 2024-2-22 12:29
请修改一句

搞定，谢谢您！