V tomto článku vytvoříme vlastní funkci pro počítání jedinečných hodnot v definovaném rozsahu.
Nezpracovaná data pro tento příklad se skládají z náhodných čísel v řádcích. V tomto příkladu chceme spočítat počet jedinečných čísel v každém řádku.
Vytvořili jsme vlastní funkci „CountUniqueValues“ pro zjištění počtu unikátních čísel v řádku. Tato funkce bere jako vstup rozsah a vrací jedinečný počet čísel.
Logické vysvětlení
Vytvořili jsme vlastní funkci „CountUniqueValues“, abychom získali počet unikátních čísel. V této vlastní funkci jsme vytvořili objekt objektu kolekce. Tento sbírkový objekt slouží k vytvoření seznamu jedinečných čísel. Jakmile máme seznam jedinečných čísel, získáme počet položek ve sbírce.
Vysvětlení kódu
Application.Volatile se používá, protože se přepočítá při každé změně hodnoty buňky v sešitu.
On Error Resume Další se používá ke zpracování chyb.
Pro kód prosím postupujte níže
Možnost Explicitní funkce 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 the cell in the defined range For each CellValue In InputRange UniqueValues.Add CellValue „CStr (CellValue)“ přidá jedinečnou položku Další „Vrátí počet jedinečných hodnot CountUniqueValues = UniqueValues.Count End Function
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail