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

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas