Šajā rakstā mēs izveidosim makro, lai no noteiktā diapazona iegūtu unikālas vērtības.
Neapstrādātie dati šajā piemērā sastāv no dublētiem valstu nosaukumu ierakstiem diapazonā A7: A21.
Mēs esam izveidojuši makro “FindUniqueValues”, lai no noteiktā diapazona iegūtu unikālas vērtības. Šo makro var palaist, noklikšķinot uz pogas “Iesniegt”. Pirms noklikšķināt uz pogas “Iesniegt”, mums jānorāda diapazona adrese, kurā šūnā H9 ir dublēti dati, un galamērķa adrese, kur vajadzētu parādīties izvadei.
Loģisks skaidrojums
Makro “FindUniqueValues” kā ievades parametrus ņem divus diapazona objektus. Pirmais parametrs nosaka diapazonu, kurā ir datu dublikāti, un otrais parametrs nosaka sākuma šūnas atrašanās vietu, kurā būs izeja. Šo makro nevar izsaukt tieši, jo mums ir jānorāda parametri, tāpēc mēs esam izveidojuši otro makro “MacroRunning”, lai izsauktu makro.
Makro “MacroRunning” izsauc makro “FindUniqueValues” ar lietotāja ievadīto parametru.
Koda skaidrojums
SourceRange.AdvancedFilter darbība: = xlFilterCopy, _
CopyToRange: = TargetCell, Unikāls: = True
Range objekta AdvancedFilter metode tiek izmantota, lai filtrētu vai kopētu datus no diapazona, pamatojoties uz noteiktiem kritērijiem. Lai kopētu tikai unikālas vērtības, mums ir jāiestata AdvancedFilter unikālais parametrs uz True.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub FindUniqueValues (SourceRange As Range, TargetCell As Range) "Izmantojot iepriekšēju filtru unikālu vienumu izņemšanai avota diapazonā SourceRange.AdvancedFilter Action: = xlFilterCopy, _ CopyToRange: = TargetCell, Unique: = True End Sub Sub MacroRunning (') Makro FindUniqueValues izsaukšana Zvanīt FindUniqueValues (Diapazons (diapazons (diapazons ("H9").)). Vērtība), diapazons (diapazons ("H10"). Vērtība)) Beigu apakšdaļa
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ē
