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