Ako na vyhľadávanie duplikátov v programe Excel Visual Basic

Microsoft Excel 2010 môžete zvýrazniť duplicitné hodnoty pomocou vopred nastavenú podmieneného príkazu formátovania , ale ak potrebujete nájsť duplikáty pomocou makra , môžete použiť Visual Basic for Applications ( VBA ) , ktorý je zabudovaný do aplikácie Microsoft Excel . Kým VBA nemá funkciu , ktorá bude nájsť duplikáty , môžete využiť funkciu COUNTIF zistiť , ktoré bunky držať duplicitné informácie . Pokyny dovolená 1

Otvorte súbor programu Microsoft Excel 2010 , ktorý obsahuje údaje, ktoré chcete skontrolovať duplikáty . Ak tabuľka príde , stlačte tlačidlo " Alt " a " F11 " načítať konzoly VBA .
2

Kliknite pravým tlačidlom myši na listu na ľavej strane obrazovky VBA . Presuňte kurzor myši na " Vložiť " a vyberte " modul " . Dvakrát kliknite na nový modul , ktorý sa zobrazí niekoľko riadkov nižšie listu .
3

Umiestnite kurzor do prázdneho priestoru na pravej strane obrazovky . Zadajte " Sub Dupecheck ( ) " a stlačte klávesu Enter . VBA automaticky zadať príkaz " End Sub " pre vás .
4

Umiestnite kurzor na riadok medzi " Sub " a " End Sub " riadky . Zadajte nasledujúce riadky kódu : ..

Dim x As Long Dim

endrow As Long

endrow = Range ( " A50000 " ) End ( xlUp ) riadok

Tento kód vytvorí dve premenné , " endrow " a " x " a potom určuje hodnotu " endrow . " Tento kód bude prehľadávať 50.000 riadkov v jednom stĺpci , ale ak potrebujete , aby tak prezrieť viac riadkov , len zvýši 50000 na akékoľvek číslo , ktoré vykoná . Tento kód je tiež navrhnutý tak , aby prehliadnuť stĺpci " A " , ale môžete jednoducho zmeniť " A " na čokoľvek stĺpec písmeno potrebujete .
5

Umiestnite kurzor na ďalší riadok a zadajte nasledujúci kód :

x = endrow K 1. Krok -1

Ak Application.WorksheetFunction.CountIf ( rozsah ( . " A1 : " & x ) , Range ( " A " & x ) Text ) > 1 potom

Range ( " A " & x ) . Interior.Color = RGB ( 200 , 160 , 35 )

End If

Nasledujúci x

To je srdce kódu , ktorý bude vyzerať cez každú bunku a zistiť , či existuje totožné bunky nad ňou . Ak zistí , duplikát , bude to zase pozadia buniek žltú farbu . Môžete zmeniť všetky výskyty " A " , ak pracujete na inom stĺpci . Môžete tiež zmeniť tri čísla po " Interior.color " pre zmenu , akú farbu bunky zmení .
6

Kliknite na " x " v pravom hornom rohu obrazovky zatvorte konzolu VBA . Kliknite na kartu " Vývojár " v hornej časti obrazovky . Nájdite na tlačidlo " makro " na ľavej strane páse kariet a kliknite na neho . Zvoľte " Dupecheck " zo zoznamu dostupných makier a kliknite na tlačidlo " Spustiť " . Excel bude teraz upozorniť na každý duplicitné v stĺpci dát .

• Predchádzajúca strana: Ako Volanie podprogramu z iného podprogramu v programe Excel 
• Ďalšia strana: Ako Zahrnúť podpis pri odosielaní Excel Email Ako Button Príloha