Function NoDupesAtString(rng As Range, _
 Optional sep As String = " ", _
 Optional buReg As Long = 0) As String
' формула на листе имеет вид: =NoDupesAtString(A4;", ";1)
' A4 - ячейка, в которой нужно удалить повторы
' ", " - разделитель (по умолчанию пробел)
' 1 - без учета регистра (0 - с учетом регистра, по умолчанию)
Dim v, s As String: s = sep
If buReg = 0 Then
 For Each v In Split(rng.Value, sep)
 If Len(v) Then If InStr(s, sep & v & sep) = 0 Then s = s & v & sep
 Next
Else
 For Each v In Split(rng.Value, sep)
 If Len(v) Then If InStr(UCase(s), sep & UCase(v) & sep) = 0 Then s = s & v & sep
 Next
End If
NoDupesAtString = Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function