I den här artikeln kommer vi att skapa en anpassad funktion för att räkna de unika värdena i det definierade intervallet.
Rådata för detta exempel består av slumpmässiga nummer i raderna. I det här exemplet vill vi räkna antalet unika nummer i varje rad.
Vi har skapat "CountUniqueValues" anpassad funktion för att hitta antalet unika nummer i raden. Denna funktion tar intervall som inmatning och returnerar det unika antalet siffror.
Logisk förklaring
Vi har skapat en anpassad funktion “CountUniqueValues” för att få antalet unika nummer. I denna anpassade funktion har vi skapat objekt för samlingsobjektet. Detta samlingsobjekt används för att skapa en lista med unika nummer. När vi har listan över unika nummer får vi antalet artiklar i samlingen.
Kodförklaring
Application.Volatile används eftersom det kommer att beräkna om varje gång ett cellvärde ändras i arbetsboken.
On Error Resume Next används för att hantera fel.
Följ koden nedan
Alternativ Explicit Function CountUniqueValues (InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'För felhantering vid fel Resume Next' Looping through all the cell in the defined range For each CellValue In InputRange UniqueValues.Add CellValue , CStr (CellValue) 'lägg till det unika objektet Nästa' Returnera antalet unika värden CountUniqueValues = UniqueValues.Count End -funktion
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen