I denne artikel vil vi oprette en brugerdefineret funktion til at tælle de unikke værdier i det definerede område.
Rådata for dette eksempel består af tilfældige tal i rækkerne. I dette eksempel vil vi tælle antallet af unikke tal i hver række.
Vi har oprettet en "CountUniqueValues" brugerdefineret funktion for at finde antallet af unikke tal i rækken. Denne funktion tager rækkevidde som input og returnerer det unikke antal tal.
Logisk forklaring
Vi har oprettet en brugerdefineret funktion "CountUniqueValues" for at få antallet af unikke tal. I denne brugerdefinerede funktion har vi oprettet objekt for samlingsobjektet. Dette indsamlingsobjekt bruges til at oprette listen over unikke tal. Når vi har listen over unikke numre, får vi antallet af varer i samlingen.
Kode forklaring
Application.Volatile bruges, fordi den genberegner hver gang en celleværdi ændres i projektmappen.
On Error Resume Next bruges til at håndtere fejl.
Følg venligst nedenstående for koden
Option Eksplicit funktion Count UniqueValues (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 Every CellValue In InputRange UniqueValues.Add CellValue , CStr (CellValue) 'tilføj det unikke element Næste' Returnering af antallet af unikke værdier CountUniqueValues = UniqueValues.Count End Funktion
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet