Contar valores únicos usando VBA en Microsoft Excel 2010

Tabla de contenido

En este artículo, crearemos una función personalizada para contar los valores únicos en el rango definido.

Los datos brutos de este ejemplo constan de números aleatorios en las filas. En este ejemplo, queremos contar el número de números únicos en cada fila.

Hemos creado la función personalizada "CountUniqueValues" para encontrar el recuento de números únicos en la fila. Esta función toma el rango como entrada y devuelve el recuento único de números.

Explicación lógica

Hemos creado la función personalizada "CountUniqueValues" para obtener el recuento de números únicos. En esta función personalizada, hemos creado el objeto del objeto de colección. Este objeto de colección se utiliza para crear la lista de números únicos. Una vez que tenemos la lista de números únicos, obtenemos el recuento de elementos de la colección.

Explicación del código

Application.Volatile se usa porque se recalculará cada vez que se cambie un valor de celda en el libro de trabajo.

En caso de error, reanudar siguiente se utiliza para manejar errores.

Siga a continuación para obtener el código

 Opción Función explícita CountUniqueValues ​​(InputRange As Range) Como entero Dim CellValue como variante, UniqueValues ​​como nueva colección Application.Volatile 'Para manejo de errores en caso de error Resume Next' Recorriendo todas las celdas en el rango definido para cada CellValue en InputRange UniqueValues.Add CellValue , CStr (CellValue) 'agregar el elemento único Siguiente' Devolver el recuento del número de valores únicos CountUniqueValues ​​= UniqueValues.Count End Function 

Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave