Spodaj si bomo ogledali program v Excel VBA to odstrani dvojnike.
Situacija:
V stolpcu A imamo 10 številk. Iz teh številk želimo odstraniti dvojnike in unikatne številke postaviti v stolpec B.
1. Najprej razglasimo štiri spremenljivke. toAdd tipa Boolean, uniqueNumbers tipa Integer, i tipa Integer in j tipa Integer.
Zatemni dodaj kot logično vrednost, uniqueNumbers As Integer, i As Integer, j As Integer
2. Nato zapišemo prvo število stolpca A v stolpec B, saj je prva številka vedno "edinstvena".
Celice (1, 2) .Vrednost = Celice (1, 1) .Vrednost
3. Inicializiramo dve spremenljivki. V stolpec B smo dodali samo eno številko, zato inicializiramo uniqueNumbers z vrednostjo 1. Nastavili smo naAdd na True, ob predpostavki, da je treba dodati tudi naslednjo številko (to seveda ni nujno res).
uniqueNumbers = 1
toAdd = Res
Ugotoviti moramo, ali je druga številka "edinstvena" ali ne. To je mogoče storiti na zelo enostaven način. Samo če številka še ni v stolpcu B, je treba drugo številko dodati v stolpec B.
4. To moramo preveriti tudi za tretjo številko, četrto številko itd. Za to zaženemo zanko For Next.
Za i = 2 do 10
5. Zdaj prihaja najpomembnejši del programa. Če je drugo število enako eni od številk v stolpcu B (zaenkrat imamo samo eno edinstveno številko), nastavimo naAdd to False, ker v tem primeru te številke ne želimo dodati! (ni "edinstven"). Trenutno je uniqueNumbers še vedno enak 1, edinstvene številke pa so lahko celoten seznam. Za preverjanje celotnega seznama potrebujemo drugo zanko For Next. Še enkrat: če je število, ki ga želimo dodati, eno od številk na tem seznamu, bo toAdd nastavljeno na False in številka ne bo dodana. Dodajte naslednje kodne vrstice:
Za j = 1 Za edinstvene številke
Če celice (i, 1) .Vrednost = celice (j, 2) .Vrednost Potem
toAdd = False
Konec Če
Naprej j
6. Samo če je toAdd še vedno True in ni nastavljeno na False, mora Excel VBA dodati številko v stolpec B. Hkrati povečujemo uniqueNumbers za 1, ker imamo zdaj eno edinstveno številko več. Naslednje kodne vrstice opravijo delo:
Če je toAdd = True, potem
Celice (uniqueNumbers + 1, 2) .Vrednost = Celice (i, 1) .Vrednost
uniqueNumbers = uniqueNumbers + 1
Konec Če
7. Nazadnje smo nastavili na Dodaj v True, ob predpostavki, da je treba dodati naslednjo številko (tretjo številko). Tudi to ni nujno res.
toAdd = Res
8. Ne pozabite zapreti zanke.
Naprej i
9. Makro postavite v ukazni gumb in ga preizkusite.
Rezultat:
