Unificar y eliminar duplicados de celdas

Necesitaría saber si se puede realizar la siguiente operación a través de una fórmula o macros:

Muestro un ejemplo

En la columna A2 tengo varios valores que se repiten separados por el símbolo "|". Necesitaría unificar esta información en otra columna eliminando cualquier valor que este duplicado (como muestro en el ejemplo en la columna B2)

¿Es posible?

1 respuesta

Respuesta
1

Ejecuta la siguiente macro:

Sub Unificar()
'Por Dante Amor
  Dim c As Range
  Dim dic As Object
  Dim v As Variant
  '
  Set dic = CreateObject("Scripting.Dictionary")
  dic.comparemode = vbTextCompare
  For Each c In Range("A2", Range("A" & Rows.Count).End(3))
    dic.RemoveAll
    For Each v In Split(c.Value, "|")
      dic(v) = Empty
    Next
    c.Offset(, 1).Value = Join(dic.keys, "|")
  Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas