Sub t()
Dim i As Long
a = 4215
b = 5142
For i = 1 To 4
If InStr(b, Mid(a, i, 1)) = 0 Then
x = x + 1
End If
Next
If x > 0 Then
MsgBox "No Match"
Else
MsgBox "Matches"
End If
End Sub
A | B | C | D | |
---|---|---|---|---|
1 | 4215 | 5142 | TRUE | TRUE |
Worksheet Formulas
<thead> </thead><tbody> </tbody> |
Array Formulas
<thead> </thead><tbody> </tbody> Note: Do not try and enter the {} manually yourself |
One formula option:
Eric, thanks for the quick reply!