Az alábbiakban megnézzük a programot Excel VBA hogy eltávolítja az ismétlődéseket.
Helyzet:
Az A oszlopban 10 szám szerepel. Szeretnénk eltávolítani az ismétlődéseket ezekből a számokból, és elhelyezni az egyedi számokat a B oszlopban.
1. Először négy változót deklarálunk. toAdd típusú Boolean, uniqueNumbers típusú Integer, i típusú Integer és j típusú Integer típusú.
Halványítás Hozzáadása logikai értékként, egyedi számok egész számként, i egész számként, j egész számként
2. Ezután írjuk az A oszlop első számát a B oszlopba, mivel az első szám mindig „egyedi”.
Cella (1, 2). Érték = Cella (1, 1). Érték
3. Két változót inicializálunk. Most hozzáadtunk egy számot a B oszlophoz, ezért inicializáljuk az egyedi értékeket az 1 értékkel. Az Add to True értékre állítjuk, feltéve, hogy a következő számot is hozzá kell adni (ez természetesen nem feltétlenül igaz).
egyedi számok = 1
toAdd = Igaz
Meg kell határoznunk, hogy a második szám egyedi -e vagy sem. Ezt nagyon egyszerű módon lehet megtenni. Csak akkor, ha a szám még nem szerepel a B oszlopban, a második számot hozzá kell adni a B oszlophoz.
4. Ezt is ellenőriznünk kell a harmadik szám, a negyedik szám stb. Ehhez elindítunk egy For Next cikket.
I = 2 és 10 között
5. Most jön a program legfontosabb része. Ha a második szám megegyezik a B oszlop egyik számával (eddig csak egy egyedi számunk van), akkor az Add to False értékre állítjuk, mert ebben az esetben nem szeretnénk hozzáadni ezt a számot! (nem „egyedi”). Jelenleg az egyedi számok értéke 1, de az egyedi számok egész listát jelenthetnek. A teljes lista ellenőrzéséhez szükségünk van egy másik For Next hurokra. Ismét: ha a hozzáadni kívánt szám megegyezik a listában szereplő számok egyikével, a toAdd értéke False lesz, és a szám nem kerül hozzáadásra. Adja hozzá a következő kódsorokat:
J = 1 esetén egyedi számokhoz
Ha cellák (i, 1). Érték = cellák (j, 2). Érték akkor
toAdd = Hamis
Vége Ha
Következő j
6. Csak akkor, ha a toAdd továbbra is igaz, és nincs hamis értékre állítva, az Excel VBA -nak hozzá kell adnia a számot a B oszlophoz. Ugyanakkor növeljük az egyedi számokat 1 -gyel, mert most eggyel több egyedi számunk van. A következő kódsorok elvégzik a munkát:
Ha toAdd = Igaz akkor
Cella (egyedi szám + 1, 2). Érték = Cella (i, 1). Érték
egyedi számok = egyedi számok + 1
Vége Ha
7. Végül az Add to True értékre állítjuk, feltételezve, hogy a következő számot (harmadik szám) hozzá kell adni. Ez megint nem feltétlenül igaz.
toAdd = Igaz
8. Ne felejtse el lezárni a hurkot.
Következő i
9. Helyezze a makrót egy parancsgombba, és próbálja ki.
Eredmény:
