Valores únicos contar con VBA en Microsoft Excel 2010
En este artículo, crearemos una función personalizada para contar los valores únicos en el rango definido.
Los datos brutos de este ejemplo consisten en 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.
On Error Resume Next se utiliza para manejar errores.
Siga a continuación el código
Option Explicit Function CountUniqueValues(InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'For error Handling On Error Resume Next 'Looping through all the cell in the defined range For Each CellValue In InputRange UniqueValues.Add CellValue, CStr(CellValue) ' add the unique item Next 'Returning the count of number of unique values CountUniqueValues = UniqueValues.Count End Function
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]