Dans cet article, nous allons créer une fonction personnalisée pour compter les valeurs uniques dans la plage définie.

Les données brutes pour cet exemple se composent de nombres aléatoires dans les lignes. Dans cet exemple, nous voulons compter le nombre de nombres uniques dans chaque ligne.

ArrowRaw

Nous avons créé la fonction personnalisée «CountUniqueValues» pour trouver le nombre de nombres uniques dans la ligne. Cette fonction prend la plage comme entrée et renvoie le nombre unique de nombres.

ArrowOutput

Explication logique

Nous avons créé la fonction personnalisée «CountUniqueValues» pour obtenir le nombre de nombres uniques. Dans cette fonction personnalisée, nous avons créé l’objet de l’objet de collection. Cet objet de collection est utilisé pour créer la liste des numéros uniques. Une fois que nous avons la liste des numéros uniques, nous obtenons le nombre d’éléments de la collection.

Explication du code

Application.Volatile est utilisé car il recalculera chaque fois qu’une valeur de cellule est modifiée dans le classeur.

On Error Resume Next est utilisé pour gérer les erreurs.

Veuillez suivre ci-dessous pour le code

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 vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]