Obsah
Jednou z nejdůležitějších činností v aplikaci Excel je odstranit duplikáty Dnes si ukážeme, jak odstranit duplicity v Excelu pouze pomocí VBA.
Stáhnout cvičebnici
Odstranění duplicit v aplikaci Excel pomocí VBA.xlsm3 rychlé metody použití VBA v aplikaci Excel k odstranění duplicitních položek
Zde máme datovou sadu se znakem Jména, ID, Známky, a Třídy při zkoušce některých žáků školy s názvem Sunflower Kindergarten.
Pokud se podíváte pozorně, zjistíte, že některá jména se opakují omylem.
Dnes je naším cílem odstranit duplicitní hodnoty pomocí Excel VBA.
1. Odstranění duplicit z pevného rozsahu buněk pomocí VBA
Nejprve se pokusíme odstranit duplicitní názvy pomocí pevného rozsahu buněk v VBA kód.
Zde je naším souborem dat rozsah B3:E15 v sešitě (včetně Záhlaví sloupců ).
Tento pevný rozsah buněk použijeme v tomto kódu.
Krok 1:
➤ Otevřít nový VBA a vložte nový modul (Klikněte zde pro zobrazení jak otevřít a vložit nový modul VBA v aplikaci Excel).
➤ Vložte tento kód do modulu:
Kód:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Vytváří makro s názvem Remove_Duplicates . A3:E14 je rozsah mého datového souboru a chci odstranit duplicitní řádky na základě Sloupec 1 . Používáte svůj.
Krok 2:
➤ Vraťte se na pracovní list a spusťte toto Makro (Klikněte zde a podívejte se, jak spustit Makro).
➤ Odstraní řádky s duplicitami ve sloupci 1 ( Jméno studenta).
Přečtěte si více: Jak odstranit duplikáty v aplikaci Excel, ale jeden zachovat (7 metod)
2. Vložení kódů VBA pro odstranění duplicit z vybraného rozsahu buněk
Nyní se pokusíme vytvořit makro, které dokáže odstranit duplikáty z libovolného vybraného rozsahu buněk v pracovním listu.
Krok 1:
➤ Otevřít nový VBA a vložte další 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áří makro s názvem Remove_Duplicates . Chci odstranit duplicitní řádky na základě Sloupec 1 . Používáte svůj.
Krok 2:
➤ Vraťte se ke svému pracovnímu listu.
➤ Vyberte sadu dat a spusťte toto makro.
➤ Provede se totéž, co výše. Odstraní se řádky s duplicitami ve sloupci 1 ( Jméno studenta).
Přečtěte si více: Jak odstranit duplicitní řádky v aplikaci Excel (3 způsoby)
Podobná čtení
- Jak odstranit duplikáty ze sloupce v aplikaci Excel (3 metody)
- Excel VBA: Odstranění duplicit z pole (2 příklady)
- Jak odstranit duplicity a zachovat první hodnotu v aplikaci Excel (5 metod)
- Odstranění duplicitních řádků s výjimkou prvního výskytu v aplikaci Excel (7 způsobů)
- Jak odstranit obě duplicity v aplikaci Excel (5 snadných způsobů)
3. Vložení makra VBA pro odstranění duplicit z více sloupců
Dosud jsme odstranili řádky, které mají duplicity ve sloupci 1 ( Jméno studenta ).
Ve skutečnosti však mohou být jména dvou studentů stejná, ne vždy to znamená, že byla přidána omylem, pokud jsou dvě jména stejná.
Pokud jsou však ID dvou studentů také stejná, pak se jedná o stejného studenta. Pak je třeba řádek odstranit.
Tentokrát vytvoříme makro, které odstraní řádek, pokud je název i ID dvou řádků stejné.
Krok 1:
➤ Otevřít nový VBA a vložte další 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áří makro s názvem Remove_Duplicates . Chci odstranit duplicitní řádky na základě Sloupec 1 a 2 (jméno a ID) . Používáte svůj.
Krok 2:
➤ Vraťte se ke svému pracovnímu listu.
➤ Vyberte sadu dat a spusťte toto makro.
➤ Tentokrát odstraní řádky pouze v případě, že jméno i ID studenta jsou stejné.
Poznámka: V tomto případě neodstranil Jennifer Marlo, protože ID obou studentů se liší, tj. jedná se o dva různé studenty.
Přečtěte si více: Excel VBA: Odstranění duplicit při porovnávání více sloupců (3 příklady)
Závěr
Pomocí těchto metod můžete v aplikaci Excel odstranit duplicity ze souboru dat pomocí VBA. Máte nějaké problémy? Neváhejte se nás zeptat.
