V tem članku bomo ustvarili funkcijo po meri za štetje edinstvenih vrednosti v opredeljenem obsegu.
Neobdelani podatki za ta primer so sestavljeni iz naključnih števil v vrsticah. V tem primeru želimo šteti število edinstvenih števil v vsaki vrstici.
Ustvarili smo funkcijo po meri »CountUniqueValues« za iskanje števila edinstvenih števil v vrstici. Ta funkcija vzame obseg kot vhod in vrne edinstveno število številk.
Logična razlaga
Ustvarili smo funkcijo po meri "CountUniqueValues", da dobimo število edinstvenih števil. V tej funkciji po meri smo ustvarili objekt zbirnega predmeta. Ta predmet zbiranja se uporablja za ustvarjanje seznama edinstvenih številk. Ko imamo seznam edinstvenih številk, dobimo število predmetov v zbirki.
Razlaga kode
Application.Volatile se uporablja, ker se bo znova izračunal vsakič, ko se v delovnem zvezku spremeni vrednost celice.
On Error Resume Next se uporablja za obravnavo napak.
Za kodo sledite spodaj
Možnost Eksplicitna funkcija CountUniqueValues (InputRange As Range) Kot Integer Dim CellValue Kot Variant, UniqueValues As New Collection Application.Volatile 'Za ravnanje z napakami pri nadaljevanju napake Naslednje' Ponavljanje skozi vse celice v definiranem obsegu Za vsako CellValue v InputRange UniqueValues.Add Cell , CStr (CellValue) 'dodaj edinstven element Naprej' Vrne štetje števila edinstvenih vrednosti CountUniqueValues = UniqueValues.Count End Funkcija
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte