I denne artikkelen vil vi lage en tilpasset funksjon for å telle de unike verdiene i det definerte området.
Rådata for dette eksemplet består av tilfeldige tall i radene. I dette eksemplet vil vi telle antall unike tall i hver rad.
Vi har opprettet “CountUniqueValues” tilpasset funksjon for å finne antallet unike tall i raden. Denne funksjonen tar rekkevidde som inndata og returnerer det unike antallet tall.
Logisk forklaring
Vi har opprettet tilpasset funksjon “CountUniqueValues” for å få tellingen av unike tall. I denne egendefinerte funksjonen har vi opprettet objektet for samlingsobjektet. Dette samleobjektet brukes til å lage listen over unike tall. Når vi har listen over unike tall, får vi antall elementer i samlingen.
Kode forklaring
Application.Volatile brukes fordi den vil beregne hver gang en celleverdi endres i arbeidsboken.
On Error Resume Next brukes til å håndtere feil.
Følg koden nedenfor
Alternativ Eksplisitt funksjon 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 Every CellValue In InputRange UniqueValues.Add CellValue , CStr (CellValue) 'legg til det unike elementet Neste' Returnerer antall unike verdier CountUniqueValues = UniqueValues.Count End Funksjon
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post
