Eliminar duplicados en una misma celda (consulta)

[triton0020]

Buenas a todos:

Viendo el tema anterior, queria saber si es posible eliminar solo los duplicados despues de la coma, o sea...

auto rojo, camion rojo, ascensor rojo, auto rojo ------------- unicamente quedando ..

auto rojo, camion rojo, ascensor rojo.

El UDF que vi eliminaba directamente las palabras rojo, no tomaba como separacion las coma.

Gracias de antemano.

[Antoni]

Public Function DupFilaComa(ByVal Texto As Variant) As Variant

Dim p As Variant, r() As Variant


If Texto = Empty Then Exit Function

p = Split(Texto, ",")

ReDim r(UBound(p))

For x = 0 To UBound(p)

  For xx = 0 To UBound(r)

      If Trim(p(x)) = r(xx) Then Exit For

      If r(xx) = Empty Then

        r(xx) = Trim(p(x))

        Exit For

      End If

  Next

Next

For x = 0 To UBound(r)

  If Not r(x) = Empty Then

      cadena = cadena & ", " & r(x)

  End If

Next

DupFilaComa = Mid(cadena, 3)


End Function

[/CODE]

[b][color=#ff0000]No olvides que es obligatorio subir un archivo con los resultados que esperas obtener.

Si no lo haces, te arriesgas a no tener respuestas en tu próxima consulta.

.[/color][/b]

[triton0020]

Gracias Macro Antonio, perdon por lo del archivo de subida.

Voy a revisar y te aviso como funciona