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.

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]

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

Voy a revisar y te aviso como funciona