Unikālu vērtību atrašana, izmantojot VBA programmā Microsoft Excel

Anonim

Šajā rakstā mēs izveidosim pielāgotu funkciju, lai atrastu unikālas vērtības no noteiktā diapazona.

Neapstrādātie dati šajā piemērā sastāv no valsts nosaukuma dublētiem ierakstiem diapazonā A8: A21.

Loģisks skaidrojums

Mēs esam izveidojuši pielāgotu funkciju “UniqueItem”, lai iegūtu unikālās vērtības no diapazona. Šī funkcija ievada divus parametrus. Pirmais parametrs ir diapazons, kas sastāv no datu dublikātiem, un otrais parametrs nosaka unikālās kolekcijas unikālās vērtības indeksa numuru.

Šī funkcija atgriež unikālo vērtību no diapazona, pamatojoties uz indeksa numuru. Otrais parametrs ir neobligāts parametrs, ja otrais parametrs nav norādīts, funkcija atgriež unikālās vērtības skaitu noteiktajā diapazonā.

Ja otrajam parametram noteiktā vērtība ir lielāka par unikālo vērtību skaitu diapazonā, tad funkcija atgriež pēdējo unikālo vērtību.

Koda skaidrojums

Par kļūdu Atsākt nākamo

Katrai šūnas vērtībai InputRange

CUnique.Add CellValue.Value, CStr (CellValue.Value)

Nākamais

Kļūda GoTo 0

Iepriekš minētais kods tiek izmantots, lai izveidotu kolekcijas objektu, kurā būs unikāla vērtība no noteiktā diapazona. Paziņojumi “Kļūda” tiek izmantoti, lai apstrādātu kļūdas, piemēram, kad kods mēģina kolekcijā ievietot dublikātu vērtības, kolekcija radīs kļūdu.

Lūdzu, sekojiet tālāk norādītajam kodam

 Opcija Skaidra funkcija UniqueItem (InputRange kā diapazons, izvēles vienums Nē kā vesels skaitlis = 0) Kā variants Dim CellValue Kā diapazons Dim CUnique kā jauna kolekcija Dim UCount kā vesels skaitlis Kļūdas atsākšana Tālāk 'Unikālu vienumu pievienošana kolekcijai no noteiktā diapazona katrai CellValue InputRange CUnique .Add CellValue.Value, CStr (CellValue.Value) Next On Error GoTo 0 'Iegūstot unikālo vienumu skaitu kolekcijā UCount = CUnique.Count If ItemNo = 0 Tad' Unikālā vienuma atgriešanas skaits UniqueItem = UCount ElseIf ItemNo <= UCount Pēc tam 'Atgriež unikālu vērtību, pamatojoties uz vienuma numuru UniqueItem = CUnique (ItemNo) Else' Atgriež pēdējo unikālo vērtību UniqueItem = CUnique (UCount) Beigas, ja beigu funkcija 

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ē