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
                v = Trim$(Left(v, InStr(v, "TYPE") - 1))
                If InStr(s, sep & v & sep) = 0 Then s = s & v & sep
            End If
        Next
    Else
        For Each v In Split(rng.Value, sep)
            If Len(v) Then
                v = Trim$(Left(v, InStr(v, "TYPE") - 1))
                If InStr(UCase(s), sep & UCase(v) & sep) = 0 Then s = s & v & sep
            End If
        Next
    End If
    NoDupesAtString = Mid(s, Len(sep) + 1, Len(s) - Len(sep) * 2)
End Function

=NoDupesAtString(E3;", ")