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 de Dante Amor
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
