Hi Toyota58,
This UDF will do it:
Public Function Matchdigits(string1 As String, string2 As String) As String
Dim length As Integer
length = WorksheetFunction.Min(Len(string1), Len(string2))
matchdigits = ""
For l = 1 To length
If Mid(string1, l, 1) = Mid(string2, l, 1) Then Matchdigits =
Matchdigits & Mid(string1, l, 1)
Next l
End Function
Put in the cell you want the result in
=Matchdigits(A1,A2)
Regards,
Stefi
€˛toyota58€¯ ezt Ć*rta:
Hello,
Anybody knows how to find MATCH numbers ?
Example :
Cell A1 = 1457
Cell A2 = 2467
Return MATCH numbers are 4 and 7.
Thank You.
|