Šajā rakstā mēs izveidosim pielāgotu funkciju, lai saskaitītu unikālās vērtības noteiktajā diapazonā.
Neapstrādāti dati šajā piemērā sastāv no nejaušiem skaitļiem rindās. Šajā piemērā mēs vēlamies saskaitīt unikālo numuru skaitu katrā rindā.
Mēs esam izveidojuši pielāgotu funkciju “CountUniqueValues”, lai atrastu unikālo skaitļu skaitu rindā. Šī funkcija ievada diapazonu un atgriež unikālo skaitļu skaitu.
Loģisks skaidrojums
Mēs esam izveidojuši pielāgotu funkciju “CountUniqueValues”, lai iegūtu unikālo skaitļu skaitu. Šajā pielāgotajā funkcijā mēs esam izveidojuši kolekcijas objekta objektu. Šo kolekcijas objektu izmanto, lai izveidotu unikālu numuru sarakstu. Kad mums ir unikālo numuru saraksts, mēs iegūstam kolekcijas priekšmetu skaitu.
Koda skaidrojums
Lietojumprogramma. Gaistošs tiek izmantots, jo tas tiks pārrēķināts katru reizi, kad darbgrāmatā tiek mainīta šūnas vērtība.
On Error Resume Next tiek izmantots kļūdu apstrādei.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Function CountUniqueValues (InputRange kā diapazons) Kā vesels skaitlis Dim CellValue kā variants, UniqueValues kā jauna kolekcijas lietojumprogramma. Gaistošs "Kļūdu apstrādei uz kļūdu Atsākt nākamo" Looping caur visu šūnu noteiktā diapazonā Katrai CellValue InputRange UniqueValues.Add CellValue , CStr (CellValue) 'pievienot unikālo vienumu Tālāk' Atgriež unikālo vērtību skaitu CountUniqueValues = UniqueValues.Count End Function
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē