VBA Excel - contar valores únicos en excel

VBA Excel - contar valores únicos en excel

   23 enero       Luis Reyes

---

En la actualidad hay muchas opciones para obtener cuantos valores únicos tenemos en una gran base de datos, con fórmulas o con la herramienta "Quitar duplicados" de Excel, pero prefiero hacerlo con está macro, porque solo nos ayuda a contar sin eliminar o mover nuestra base de datos.

Para que la macro funcione hay que seguir los siguientes pasos:
1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. Insertar un módulo.
3. Pegar el siguiente código en el módulo que se insertó:

Sub contar_unicos()
Application.ScreenUpdating = False
Range([A1], [A1].End(xlDown)).AdvancedFilter xlFilterCopy, , [AA1], True 'se crear el filtro con los valores únicos y se pegan en la columna "AA"
[D2] = WorksheetFunction.Subtotal(103, Columns("AA")) - 1 'El resultado se coloca en la celda "d2"
Columns("VV").Clear ' se limpia el filtro
Application.ScreenUpdating = True
End Sub

Descarga el archivo: