This function returns the pattern in the second parameter, where the characters not present in the range specified in the first parameter are replaced with the third parameter.

 1Function ReplaceMissingCharacters(range As Range, pattern As String, replacement As String) As String
 2    Dim car As String
 3    Dim i As …