Obsah
Jednou z najdôležitejších činností v programe Excel je odstrániť duplikáty Dnes ukážem, ako odstrániť duplikáty v programe Excel len pomocou VBA.
Stiahnite si cvičebnicu
Odstránenie duplikátov v programe Excel pomocou VBA.xlsm3 rýchle metódy použitia VBA v programe Excel na odstránenie duplikátov
Tu máme súbor údajov s Mená, ID, Známky, a Triedy pri vyšetrovaní niektorých žiakov školy s názvom Sunflower Kindergarten.
Ak sa pozriete pozorne, zistíte, že niektoré mená sa opakujú omylom.
Dnes je naším cieľom odstrániť duplicitné hodnoty pomocou programu Excel VBA.
1. Pomocou VBA odstráňte duplikáty z pevného rozsahu buniek
Najskôr sa pokúsime odstrániť duplicitné názvy pomocou pevného rozsahu buniek v VBA kód.
V tomto prípade je naším súborom údajov rozsah B3:E15 v zošite (vrátane Záhlavia stĺpcov ).
Tento pevný rozsah buniek použijeme v tomto kóde.
Krok 1:
➤ Otvoriť nový VBA a vložte nový modul (Kliknutím sem zobrazíte ako otvoriť a vložiť nový modul VBA v programe Excel).
➤ Vložte tento kód do modulu:
Kód:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Vytvára makro s názvom Remove_Duplicates . A3:E14 je rozsah môjho súboru údajov a chcem odstrániť duplicitné riadky na základe Stĺpec 1 . Používajte svoj.
Krok 2:
➤ Vráťte sa na pracovný hárok a spustite toto makro (kliknite sem a pozrite si, ako spustiť makro).
➤ Odstráni riadky s duplicitami v stĺpci 1 ( Meno študenta).
Prečítajte si viac: Ako odstrániť duplikáty v programe Excel, ale jeden si ponechať (7 metód)
2. Vloženie kódov VBA na odstránenie duplikátov z vybraného rozsahu buniek
Teraz sa pokúsime vytvoriť makro, ktoré dokáže odstrániť duplikáty z ľubovoľného vybraného rozsahu buniek v pracovnom hárku.
Krok 1:
➤ Otvoriť nový VBA a vložte ďalší nový modul.
➤ Vložte tento kód do modulu:
Kód:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Vytvára makro s názvom Remove_Duplicates . Chcem odstrániť duplicitné riadky na základe Stĺpec 1 . Používajte svoj.
Krok 2:
➤ Vráťte sa k pracovnému listu.
➤ Vyberte súbor údajov a spustite toto makro.
➤ Vykoná sa to isté, čo vyššie. Odstráni riadky s duplikátmi v stĺpci 1 ( Meno študenta).
Prečítajte si viac: Ako odstrániť duplicitné riadky v programe Excel (3 spôsoby)
Podobné čítania
- Ako odstrániť duplikáty zo stĺpca v programe Excel (3 metódy)
- Excel VBA: Odstránenie duplikátov z poľa (2 príklady)
- Ako odstrániť duplikáty a zachovať prvú hodnotu v programe Excel (5 metód)
- Odstránenie duplicitných riadkov okrem prvého výskytu v programe Excel (7 spôsobov)
- Ako odstrániť obe duplikácie v programe Excel (5 jednoduchých spôsobov)
3. Vloženie makra VBA na odstránenie duplikátov z viacerých stĺpcov
Doteraz sme odstránili riadky, ktoré majú duplikáty v stĺpci 1 ( Meno študenta ).
V skutočnosti však mená dvoch študentov môžu byť rovnaké, nie vždy to znamená, že boli pridané omylom, ak sú dve mená rovnaké.
Ak sú však ID dvoch študentov rovnaké, potom ide o toho istého študenta. Potom je potrebné riadok odstrániť.
Tentoraz vytvoríme makro, ktoré odstráni riadok, ak je názov aj ID dvoch riadkov rovnaké.
Krok 1:
➤ Otvoriť nový VBA a vložte ďalší nový modul.
➤ Vložte tento kód do modulu:
Kód:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Vytvára makro s názvom Remove_Duplicates . Chcem odstrániť duplicitné riadky na základe Stĺpec 1 a 2 (meno a ID) . Používajte svoj.
Krok 2:
➤ Vráťte sa k pracovnému listu.
➤ Vyberte súbor údajov a spustite toto makro.
➤ Tentoraz odstráni riadky len vtedy, ak je meno aj ID študenta rovnaké.
Poznámka: V tomto prípade neodstránila Jennifer Marlo, pretože identifikačné čísla týchto dvoch študentov sú odlišné, t. j. ide o dvoch rôznych študentov.
Prečítajte si viac: Excel VBA: Odstránenie duplicít pri porovnaní viacerých stĺpcov (3 príklady)
Záver
Pomocou týchto metód môžete odstrániť duplikáty zo súboru údajov v programe Excel pomocou VBA. Máte nejaké problémy? Neváhajte sa nás opýtať.
