Macro compara columna AB con DE
En la columna A y D tengo nombres y en la B y E cantidades
Necesito que por medio de una macro se busque compare y elimine los datos que sean iguales entere AB y DE
Importante no tienen el mismo numero de columnas AB que DE y no tienen que estar ordenadas
Por ejmeplo
Juan 6. Maria 12
Alberto 8 Juan 6
Pepe 3. Óscar 7
Maria 12 Alberto 8
Luis 1
Tendria que darme
Pepe3 Óscar 7
Luis 1
1 Respuesta
Respuesta de James Bond
Prueba con esta macro sobre una copia de tu informacion, la macro eliminara todos los datos que esten repetidos mas de 1 vez
Sub compara()
Dim funcion As WorksheetFunction
Set funcion = WorksheetFunction
Set DATOS = Range("a1").CurrentRegion
With DATOS
f = .Rows.Count: c = .Columns.Count
Set tabla = .Columns(1 + c / 2).Resize(f, c / 2)
Set tabla2 = .Rows(f + 1).Resize(f, c / 2)
End With
With tabla2
.Value = tabla.Value
tabla.Clear
uf = Selection.SpecialCells(xlCellTypeLastCell).Row
Set tabla2 = Range("a1:b" & uf)
.Sort key1:=Range(.Columns(1).Address), order1:=xlAscending
Set tabla2 = .CurrentRegion
.Columns(3).Formula = "=countif(" & .Columns(1).Address & ",a1)"
Set tabla2 = .CurrentRegion
.Sort key1:=Range(.Columns(3).Address), order1:=xlDescending
cuenta = funcion.CountIf(.Columns(3), ">1")
.Resize(cuenta, .Columns.Count).EntireRow.Delete
End With
End Sub
