Sisukord
Üks olulisemaid tegevusi Excelis on see, et eemaldage duplikaadid antud andmestikust. Täna näitan, kuidas eemaldada dubleeringuid Excelis ainult VBA abil.
Lae alla praktiline töövihik
Duplikaatide eemaldamine Excelis VBA.xlsm abil3 kiiret meetodit VBA kasutamiseks Excelis duplikaatide eemaldamiseks
Siin on meil andmekogum koos Nimed, ID-d, Märgid, ja Klassid eksamil mõned õpilased koolist nimega Päikeselille lasteaed.
Kui te vaatate tähelepanelikult, siis näete, et mõned nimed on ekslikult korratud.
Täna on meie eesmärk eemaldada dubleerivad väärtused Exceli VBA abil.
1. Kasutage VBA-d, et eemaldada duplikaadid fikseeritud lahtrite vahemikust
Kõigepealt püüame eemaldage dubleerivad nimed kasutades fikseeritud lahtrite vahemikku VBA kood.
Meie andmekogum on siinkohal vahemik B3:E15 töövihikus (sealhulgas Veergude pealkirjad ).
Me kasutame siin koodis seda fikseeritud lahtrite vahemikku.
1. samm:
➤ Avage uus VBA aknas ja sisestage uus moodul (kliki siia, et näha kuidas avada ja sisestada uus VBA moodul Excelis).
➤ Sisestage see kood moodulisse:
Kood:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ See toodab makro nimega Remove_Duplicates . A3:E14 on minu andmekogumi vahemik ja ma tahan, et eemaldage dubleerivad read põhineb Veerg 1 Te kasutate oma.
2. samm:
➤ Tule tagasi oma töölehele ja käivitage see makro (klõpsake siin, et näha, kuidas makrot käivitada).
➤ See eemaldab veerus 1 olevad duplikaatidega read ( Õpilase nimi).
Loe edasi: Kuidas kustutada dubleeringuid Excelis, kuid säilitada üks (7 meetodit)
2. Sisestage VBA koodid duplikaatide eemaldamiseks valitud lahtri vahemikust
Nüüd proovime luua makro, mis suudab eemaldada duplikaadid töölehele valitud lahtrite vahemikust.
1. samm:
➤ Avage uus VBA aknas uuesti ja sisestage veel üks uus moodul.
➤ Sisestage see kood moodulisse:
Kood:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ See toodab makro nimega Remove_Duplicates . ma tahan eemaldada dubleerivad read, mis põhinevad Veerg 1 Te kasutate oma.
2. samm:
➤ Tule tagasi oma töölehe juurde.
➤ Valige oma andmekogum ja käivitage see makro.
➤ See täidab sama, mida tegi eespool. Eemaldab veerus 1 olevad dubleeritud read ( Õpilase nimi).
Loe edasi: Kuidas eemaldada dubleerivaid ridu Excelis (3 võimalust)
Sarnased lugemised
- Kuidas eemaldada dubleeringud Exceli veerust (3 meetodit)
- Excel VBA: dubleeringute eemaldamine massiivist (2 näidet)
- Kuidas eemaldada duplikaadid ja säilitada esimene väärtus Excelis (5 meetodit)
- Eemaldage dubleerivad read, välja arvatud 1. esinemine Excelis (7 viisi)
- Kuidas eemaldada mõlemad duplikaadid Excelis (5 lihtsat viisi)
3. VBA makro sisseehitamine, et eemaldada duplikaadid mitmest veerust
Siiani oleme eemaldanud read, millel on dubleeringud veerus 1 ( Õpilase nimi ).
Kuid tegelikult võivad kahe õpilase nimed olla samad, see ei tähenda alati, et see on ekslikult lisatud, kui kaks nime on samad.
Kui aga kahe õpilase ID-d on samuti samad, siis on tegemist sama õpilasega. Siis tuleb rida eemaldada.
Seekord töötame välja makro, mis eemaldab rea, kui kahe rea nimi ja ID on samad.
1. samm:
➤ Avage uus VBA aknas uuesti ja sisestage veel üks uus moodul.
➤ Sisestage see kood moodulisse:
Kood:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ See toodab makro nimega Remove_Duplicates . ma tahan eemaldada dubleerivad read, mis põhinevad Veerud 1 ja 2 (nimi ja ID) Te kasutate oma.
2. samm:
➤ Tule tagasi oma töölehe juurde.
➤ Valige oma andmekogum ja käivitage see makro.
➤ Seekord eemaldatakse read ainult siis, kui nii nimi kui ka õpilase ID on samad.
Märkus: Siinkohal ei ole ta Jennifer Marlo't eemaldanud, sest kahe õpilase ID-d on erinevad, st tegemist on kahe erineva õpilasega.
Loe edasi: Excel VBA: dubleeringute eemaldamine mitme veeru võrdlemisel (3 näidet)
Kokkuvõte
Nende meetodite abil saate VBA abil eemaldada dubleeringuid Exceli andmekogumist. Kas teil on probleeme? Küsige julgelt meilt.
