¿Cómo extraer datos únicos de dos o más listas en una sola?
A ver, quiero extraer de dos o más listas datos únicos y tenerlos en una lista o columna sola.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Lo que puedes hacer es copiar todos los datos en una sola columna, seleccionar la columna y seleccionar del menú Dat, Quitar Duplicados.
Si lo quieres con una macro:
Sub DatosUnicos()
'Por.Dante Amor
cols = Array("A", "B", "C", "F")
col2 = "Z"
Columns(col2).Clear
For i = LBound(cols) To UBound(cols)
u = Range(cols(i) & Rows.Count).End(xlUp).Row
Range(cols(i) & "1:" & cols(i) & u).Copy
u2 = Range(col2 & Rows.Count).End(xlUp).Row + 1
Range(col2 & u2).PasteSpecial xlValues
Next
Application.CutCopyMode = False
u2 = Range(col2 & Rows.Count).End(xlUp).Row
ActiveSheet.Range(col2 & "1:" & col2 & u2).RemoveDuplicates Columns:=1, Header:=xlNo
MsgBox "Fin"
End Sub
Falta declarar las variables?
¿Probaste la macro?
En vba no es necesario declarar las variables.
Si tienes la instrucción Option Explicit, entonces sí tienes que declararlas.
Si quieres que declare las variables:
Sub DatosUnicos()
'Por.Dante Amor
dim cols, col2, i, u, u2
cols = Array("A", "B", "C", "F")
col2 = "Z"
Columns(col2).Clear
For i = LBound(cols) To UBound(cols)
u = Range(cols(i) & Rows.Count).End(xlUp).Row
Range(cols(i) & "1:" & cols(i) & u).Copy
u2 = Range(col2 & Rows.Count).End(xlUp).Row + 1
Range(col2 & u2).PasteSpecial xlValues
Next
Application.CutCopyMode = False
u2 = Range(col2 & Rows.Count).End(xlUp).Row
ActiveSheet.Range(col2 & "1:" & col2 & u2).RemoveDuplicates Columns:=1, Header:=xlNo
MsgBox "Fin"
End Sub
Funciona perfectamente, me sirve de mucho para aplicarlo en unos trabajos que tengo que hacer.
¡Gracias por tu tiempo!
¡Felices Fiestas!
