Macro que elimine celdas iguales
Buenas tardes,tengo una consulta me podrian ayudar con una macro que elimine los datos de celdas iguales,,investigue y si hay varias formas de hacer pero el problemas es que dejan el dato original,,me explico,, tengo una hoja A B C
1 2
2 3
3 4
4
5
lo que necesito es que las celdas duplicadas en "A" y "B" se eliminen (las 2 celdas) y solo me queden datos datos no duplicados en la columna C en el ejemplo seria: 1,5 solo esos datos gracias de antemano y esperando su ayuda como siempre...
1 respuesta
Utiliza la siguiente macro
Sub eliminar()
'Por.DAM
j = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("B:B").Find(Cells(i, "A"))
If b Is Nothing Then
Cells(j, "C") = Cells(i, "A")
j = j + 1
End If
Next
End SubSi también quieres que se revisen los valores de la columna B en la columna A, utiliza esta macro
Sub eliminar2()
'Por.DAM
j = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
Set b = Range("B:B").Find(Cells(i, "A"))
If b Is Nothing Then
Cells(j, "C") = Cells(i, "A")
j = j + 1
End If
Next
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
Set b = Range("A:A").Find(Cells(i, "B"))
If b Is Nothing Then
Cells(j, "C") = Cells(i, "B")
j = j + 1
End If
Next
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
