Eliminar valores duplicados en un rango usando macros en Excel - Plurasin

12 mayo 2018

Eliminar valores duplicados en un rango usando macros en Excel


Si tenemos una lista de valores donde existen repetidos se hace muy dificil escoger los valores distintos, eliminar los repetidos y ademas ubicar los que hayamos escogidos en la parte superior de la lista. Para resolver este problema lo mas facil es utilizar codigo VBA para conseguirlo sin mucha demora y aqui dejamos un par de ejemplos de su uso.

Macro para eliminar valores duplicados en una columna utilizando la función CountIf()

Tabla de entrada:


Sub eliminarDuplicados()
    Dim i As Long
    Dim numFilas As Long
    numFilas = Cells(Rows.Count, 1).End(xlUp).Row
    For i = numFilas To 1 Step -1
        If WorksheetFunction.CountIf(Range("A:A"), Cells(i, 1)) > 1 Then
            Rows(i).Delete
        End If
    Next i
End Sub



Macro para eliminar duplicados en una columna utilizando el método RemoveDuplicates del Objeto Range

Tabla inicial:



Sub eliminarDuplicados()
    'Utiliza el método RemoveDuplicates del Objeto Range
    Dim rango As Range
    Set rango = Range("A:A")
    rango.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End Sub

No hay comentarios:

Publicar un comentario