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