Find non repeated characters in a string

**salasmau** · 05-08-2015, 09:30 AM

Hi,

I am trying to find the non repeated characters in a string.

For example I have two strings ABCA and ABCD. I want to be able to add to the first string the characters missing from the second string without removing repeated character in the fist string. Result: ABCAD

Many Thanks,´
Maria

**nilem** · 05-08-2015, 09:55 AM

Hi
maybe so

Sub ttt()
Dim i&, s1$, s2$
s1 = "ABCA"
s2 = "ABCD"
For i = 1 To Len(s2)
    If InStr(s1, Mid(s2, i, 1)) = 0 Then s1 = s1 & Mid(s2, i, 1)
Next i
MsgBox s1
End Sub

**salasmau** · 05-08-2015, 10:03 AM

Nilem,

It worked! very simple and effective.

Thank you!

**Rioran** · 05-08-2015, 09:57 AM

Good time of day, Maria!

Please check the attachment. User Defined Function used, macro must be allowed.

Function Rio_Join$(StrA$, StrB$)
    Dim i&, j&, k&, StrC$
    Rio_Join = StrA
    For j = 1 To Len(StrB)
        k = 0
        For i = 1 To Len(Rio_Join)
            StrC = Mid(StrB, j, 1)
            If Mid(Rio_Join, i, 1) = StrC Then
                k = 1
                Exit For
            End If
        Next i
        If k = 0 Then Rio_Join = Rio_Join & StrC
    Next j
End Function