Tartalomjegyzék
Az Excel egyik legfontosabb tevékenysége az, hogy duplikátumok eltávolítása egy adott adathalmazból. Ma megmutatom, hogyan lehet eltávolítani a duplikátumokat az Excelben kizárólag VBA segítségével.
Gyakorlati munkafüzet letöltése
Duplikátumok eltávolítása Excelben VBA.xlsm segítségével3 gyors módszer a VBA használatára az Excelben a duplikátumok eltávolításához
Itt van egy adathalmazunk, amelynek a Nevek, azonosítók, Márkák, és Fokozatok a Napraforgó Óvoda nevű iskola néhány diákjának vizsgálatán.
Ha figyelmesen megnézi, azt fogja találni, hogy néhány név tévesen ismétlődött.
Ma a célunk a duplikált értékek eltávolítása az Excel VBA segítségével.
1. A VBA használatával eltávolíthatja a duplikátumokat a rögzített cellatartományból
Először is, megpróbáljuk a duplikált nevek eltávolítása egy rögzített cellatartományt használva a VBA kód.
Itt az adathalmazunk a következő tartomány B3:E15 a munkafüzetben (beleértve a Oszlopcímek ).
Ezt a rögzített cellatartományt fogjuk használni a kódban.
1. lépés:
➤ Nyisson egy új VBA ablakban, és illesszen be egy új modult (Kattintson ide a hogyan nyissunk meg és illesszünk be egy új VBA-modult az Excelben).
➤ Helyezze be ezt a kódot a modulba:
Kód:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Ez egy Makro nevű makrót hoz létre. Remove_Duplicates . A3:E14 az adathalmazom tartománya, és azt akarom, hogy a duplikált sorok eltávolítása a következők alapján 1. oszlop Használd a sajátodat.
2. lépés:
➤ Térjen vissza a munkalapra, és futtassa ezt a makrót (kattintson ide a makró futtatásának megtekintéséhez).
➤ Eltávolítja a duplikátumokat tartalmazó sorokat az 1. oszlopban ( Diák neve).
Bővebben: Hogyan lehet törölni a duplikátumokat az Excelben, de megtartani egyet (7 módszer)
2. VBA-kódok beillesztése a duplikátumok eltávolításához a kijelölt cellatartományból
Most megpróbálunk egy olyan makrót készíteni, amely képes eltávolítani a duplikátumokat a munkalap bármely kijelölt cellatartományából.
1. lépés:
➤ Nyisson egy új VBA ablakot, és illesszen be egy másik új modult.
➤ Helyezze be ezt a kódot a modulba:
Kód:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Ez egy Makro nevű makrót hoz létre. Remove_Duplicates . Szeretném eltávolítani a duplikált sorokat a következő alapján 1. oszlop Használd a sajátodat.
2. lépés:
➤ Térj vissza a feladatlapodhoz.
➤ Válassza ki az adatkészletet, és futtassa ezt a makrót.
➤ Ugyanazt fogja végrehajtani, mint fentebb. Eltávolítja a duplikátumokat tartalmazó sorokat az 1. oszlopban ( Diák neve).
Bővebben: Hogyan lehet eltávolítani a duplikált sorokat az Excelben (3 mód)
Hasonló olvasmányok
- Hogyan lehet eltávolítani a duplikátumokat az Excel oszlopból (3 módszer)
- Excel VBA: Duplikátumok eltávolítása egy tömbből (2 példa)
- Hogyan távolítsa el a duplikátumokat és tartsa meg az első értéket az Excelben (5 módszer)
- Duplikált sorok eltávolítása az Excel 1. előfordulásának kivételével (7 mód)
- Hogyan lehet eltávolítani mindkét duplikátumot az Excelben (5 egyszerű módja)
3. VBA makró beágyazása a duplikátumok eltávolításához több oszlopból
Eddig eltávolítottuk azokat a sorokat, amelyek az 1. oszlopban duplikátumokat tartalmaznak ( Diák neve ).
De valójában két diák neve is lehet ugyanaz, nem mindig jelenti azt, hogy tévesen adták hozzá, ha két név azonos.
De ha a két diák azonosítója is megegyezik, akkor ugyanaz a diák. Ekkor a sort el kell távolítani.
Ezúttal egy olyan makrót fogunk kifejleszteni, amely eltávolítja a sort, ha két sor neve és azonosítója megegyezik.
1. lépés:
➤ Nyisson egy új VBA ablakot, és illesszen be egy másik új modult.
➤ Helyezze be ezt a kódot a modulba:
Kód:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Ez egy Makro nevű makrót hoz létre. Remove_Duplicates . Szeretném eltávolítani a duplikált sorokat a következő alapján 1. és 2. oszlop (név és azonosító) Használd a sajátodat.
2. lépés:
➤ Térj vissza a feladatlapodhoz.
➤ Válassza ki az adatkészletet, és futtassa ezt a makrót.
➤ Ezúttal csak akkor távolítja el a sorokat, ha a név és a diák azonosítója megegyezik.
Megjegyzés: Itt azért nem távolította el Jennifer Marlo-t, mert a két diák azonosítója különböző, azaz két különböző diákról van szó.
Bővebben: Excel VBA: Duplikátumok eltávolítása több oszlop összehasonlításával (3 példa)
Következtetés
Ezekkel a módszerekkel VBA segítségével eltávolíthatja a duplikátumokat az Excelben lévő adathalmazból. Problémája van? Kérdezzen bátran tőlünk.
