Sisällysluettelo
Yksi Excelin tärkeimmistä toiminnoista on se, että poistaa kaksoiskappaleet Tänään näytän, miten Excelissä voidaan poistaa kaksoiskappaleet vain VBA:n avulla.
Lataa harjoituskirja
Poista kaksoiskappaleet Excelissä VBA.xlsm:n avulla.3 nopeaa tapaa käyttää VBA:ta Excelissä päällekkäisyyksien poistamiseen
Tässä meillä on datajoukko, jossa on seuraavat tiedot Nimet, tunnukset, Merkit, ja Palkkaluokat erään Sunflower Kindergarten -nimisen koulun oppilaiden kokeessa.
Jos katsot tarkkaan, huomaat, että joitakin nimiä on toistettu virheellisesti.
Tänään tavoitteenamme on poistaa päällekkäiset arvot Excel VBA:n avulla.
1. Käytä VBA:ta kaksoiskappaleiden poistamiseen kiinteästä solualueesta.
Ensiksi yritämme poistaa päällekkäiset nimet käyttämällä kiinteää solualuetta VBA koodi.
Tässä tapauksessa aineistomme on alue B3:E15 työkirjassa (mukaan lukien Sarakeotsikot ).
Käytämme tätä kiinteää solualuetta tässä koodissa.
Vaihe 1:
➤ Avaa uusi VBA ikkunaan ja lisää uusi moduuli (Klikkaa tästä nähdäksesi miten uusi VBA-moduuli avataan ja lisätään Exceliin).
➤ Aseta tämä koodi moduuliin:
Koodi:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Sarakkeet:=1, Otsikko:=xlYes End Sub ➤ Se tuottaa makron nimeltä Poista_Duplikaatit . A3:E14 on aineistoni alue, ja haluan, että poistaa päällekkäiset rivit perustuu Sarake 1 . Käytät omaa.
Vaihe 2:
➤ Palaa takaisin laskentataulukkoon ja suorita tämä makro (katso makron suorittaminen tästä).
➤ Se poistaa rivit, joissa on kaksoiskappaleet sarakkeessa 1 ( Opiskelijan nimi).
Lue lisää: Kuinka poistaa kaksoiskappaleet Excelissä, mutta pitää yksi (7 menetelmää)
2. Lisää VBA-koodit kaksoiskappaleiden poistamiseksi valitusta solualueesta.
Nyt yritämme rakentaa makron, joka voi poistaa kaksoiskappaleet mistä tahansa työarkin valitusta solualueesta.
Vaihe 1:
➤ Avaa uusi VBA ikkuna uudelleen ja aseta toinen uusi moduuli.
➤ Aseta tämä koodi moduuliin:
Koodi:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Se tuottaa makron nimeltä Poista_Duplikaatit . Haluan poistaa päällekkäiset rivit perustuen Sarake 1 . Käytät omaa.
Vaihe 2:
➤ Palaa takaisin työarkkiin.
➤ Valitse tietokokonaisuutesi ja suorita tämä makro.
➤ Se suorittaa saman kuin edellä. Poista rivit, joissa on kaksoiskappaleet sarakkeessa 1 ( Opiskelijan nimi).
Lue lisää: Kuinka poistaa päällekkäiset rivit Excelissä (3 tapaa)
Samanlaisia lukemia
- Kuinka poistaa kaksoiskappaleet sarakkeesta Excelissä (3 menetelmää)
- Excel VBA: Poista kaksoiskappaleet monisteesta (2 esimerkkiä)
- Kuinka poistaa kaksoiskappaleet ja säilyttää ensimmäinen arvo Excelissä (5 menetelmää)
- Poista päällekkäiset rivit lukuun ottamatta 1. esiintymistä Excelissä (7 tapaa)
- Kuinka poistaa molemmat kaksoiskappaleet Excelissä (5 helppoa tapaa)?
3. Upota VBA-makro poistamaan kaksoiskappaleet useista sarakkeista.
Tähän asti olemme poistaneet rivit, joilla on kaksoiskappaleet sarakkeessa 1 ( Opiskelijan nimi ).
Mutta itse asiassa kahden oppilaan nimet voivat olla samat, se ei aina tarkoita, että se on lisätty virheellisesti, jos kaksi nimeä on sama.
Mutta jos kahden opiskelijan tunnukset ovat samat, he ovat sama opiskelija. Silloin rivi on poistettava.
Tällä kertaa kehitämme makron, joka poistaa rivin, jos kahden rivin nimi ja tunnus ovat samat.
Vaihe 1:
➤ Avaa uusi VBA ikkuna uudelleen ja aseta toinen uusi moduuli.
➤ Lisää tämä koodi moduuliin:
Koodi:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Se tuottaa makron nimeltä Poista_Duplikaatit . Haluan poistaa päällekkäiset rivit perustuen Sarakkeet 1 ja 2 (nimi ja henkilötunnus) . Käytät omaa.
Vaihe 2:
➤ Palaa takaisin työarkkiin.
➤ Valitse tietokokonaisuutesi ja suorita tämä makro.
➤ Tällä kertaa se poistaa rivit vain, jos sekä nimi että opiskelijan tunnus ovat samat.
Huom: Tässä tapauksessa se ei ole poistanut Jennifer Marloa, koska näiden kahden opiskelijan tunnukset ovat erilaiset, eli kyseessä on kaksi eri opiskelijaa.
Lue lisää: Excel VBA: Poista kaksoiskappaleet vertaamalla useita sarakkeita (3 esimerkkiä)
Päätelmä
Näiden menetelmien avulla voit poistaa päällekkäisyyksiä Excelin tietokokonaisuudesta VBA:n avulla. Onko sinulla ongelmia? Kysy meiltä.
