Nombre de valeurs uniques à l’aide VBA dans Microsoft Excel 2010
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.
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.
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]