UDF
Function comp2numbers(n2 As Range, n1 As Range) As String
missing = ""
For i = 1 To 7
m = Mid(n1, i, 1)
If InStr(1, n2, m) = 0 Then
missing = missing & m
GoTo nexti
Else
ls1 = Len(n1) - Len(Replace(n1, m, ""))
ls2 = Len(n2) - Len(Replace(n2, m, ""))
If ls1 <> ls2 And InStr(1, missing, m) = 0 Then missing = missing & Mid(n1, i, 1)
End If
nexti:
Next i
comp2numbers = missing
End Function
=comp2numbers($A2,$B2)
Checks for missing numbers and whether numbers of digits present are same e.g
33399 1333799 17
3399 1333799 137 only 2 3s
Bookmarks