He intentado ajustar una macro que me elimine valores duplicados en cuanto a que funcione en caso que los valores que va a intervenir sean demasiados, estoy utilizando el código que muestro y funciona muy bien cuando la lista de valores es poca, pero al ejecutarla a una lista con mayor número de valores se demora bastante, quisiera si es posible me pudieran ayudar a tener una macro con esta funcionalidad de quitar duplicados de forma más eficiente en el caso que les presento.
Sub RepetidosGEO_SEGMENTO()
Application.ScreenUpdating = False
Range("A5").Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range("A:A"), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("A5").Select
Application.ScreenUpdating = True
End Sub
Collection
,Range.Find
yADODB.Recordset
y ninguna ejecuta tan rápido como la solución que tienes actualmente. En una muestra de 28800 valores de los cuales 429 son repetidos, tu solución tarda 41 segundos y la que más se le acercó fue conADODB.Recordset
que tarda 159 segundos, las otras 2 pasan de 400 segundos.