Excel - Eliminar líneas repetidas en la misma celda

 
Vista:
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Eliminar líneas repetidas en la misma celda

Publicado por celia (418 intervenciones) el 13/09/2021 10:21:28
Igual que se pueden eliminar celdas duplicadas enteras, ¿se pueden eliminar solo las líneas que se repitan dentro de cada celda por separado?

Muchas gracias.

Buen día.

repe
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Eliminar líneas repetidas en la misma celda

Publicado por Antoni Masana (1892 intervenciones) el 13/09/2021 22:29:10
Se tiene que hacer una macro que separe los textos según el separador y eliminar los repetidos.
Para el caso es lo mismo que estén en varias líneas o así:

1
Línea 1;Línea 2;Línea 2;Línea 3

La macero:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Quita_Repetido()
    Dim Tabla() As String, Texto As String, Pun As Integer, Fila As Long
 
    Fila = 1
    While Cells(Fila, "A") <> ""
        Texto = ""
        Tabla = Split(Cells(Fila, "A"), vbLf)
        For Pun = 0 To UBound(Tabla)
            If InStr(Texto, Tabla(Pun)) = 0 Then Texto = Texto + Tabla(Pun) + vbLf
        Next
        Cells(Fila, "B") = Left(Texto, Len(Texto) - 1)
        Fila = Fila + 1
    Wend
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de celia
Val: 761
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Eliminar líneas repetidas en la misma celda

Publicado por celia (418 intervenciones) el 13/09/2021 23:01:17
Va perfecto !!!

Muchas gracias.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar