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