Jak najít duplikáty v aplikaci Excel Visual Basic

Vyhledejte duplikáty v aplikaci Microsoft Excel 2010.

Krok 1

Otevřete soubor aplikace Microsoft Excel 2010, který obsahuje data, která chcete zkontrolovat duplikáty. Po otevření tabulky stiskněte klávesy "Alt" a "F11" k načtení konzoly VBA.

Krok 2

Klikněte na tabulku na levé straně obrazovky VBA. Přesuňte kurzor myši na položku "Vložit" a vyberte možnost "Modul". Poklepejte na nový modul, který se zobrazí pod několika řádky pod tabulkou.

Krok 3

Umístěte kurzor do prázdného místa na pravé straně obrazovky. Napište "Sub Dupecheck ()" a stiskněte klávesu Enter. VBA automaticky zadá příkaz "End Sub" pro vás.

Krok 4

Umístěte kurzor na řádek mezi příkazy "Sub" a "End Sub". Zadejte následující řádky kódu:

Dim x jako dlouhý rozměr jako dlouhý endrow = rozsah ("A50000"). End (xlUp) .Row

Tento kód vytvoří dvě proměnné "EndRow" a "x" a poté nastaví hodnotu "EndRow". Tento kód bude vyhledávat přes 50 tisíc řádků v jediném sloupci, ale pokud potřebujete vyhledat více řádků, zvyšuje se z 50 tisíc na libovolné číslo, které potřebujete. Tento kód je také navržen tak, aby vypadal ve sloupci "A", ale musíte pouze změnit "A" na libovolné písmeno ve sloupci, který potřebujete.

Krok 5

Umístěte kurzor na následující řádek a napište následující kód:

Pro x = endrow K 1 Krok -1 Pokud je Application.WorksheetFunction.CountIf (Rozsah ("A1: A" & x), Rozsah ("A" & x) .Text)> 1 Rozsah ("A" & x). Interiér.Color = RGB (200, 160, 35) End If Next x

Toto je srdce kódu, který prohledá každou buňku a určí, zda nad ní existuje stejná buňka. Pokud najde duplikát, otočí dolní část buňky žlutou barvu. Pokud pracujete v jiném sloupci, můžete změnit všechny instance "A". Můžete také změnit tři čísla po "Interior.color" pro změnu barvy, ve které bude buňka konvertována.

Krok 6

Klepnutím na tlačítko "x" v pravém horním rohu obrazovky zavřete konzolu VBA. Klikněte na kartu Vývojář v horní části obrazovky. Najděte tlačítko "Makro" na levé straně pásu karet a klikněte na něj. Zvolte "Dupecheck" ze seznamu dostupných maker a klikněte na "Spustit". Aplikace Excel nyní zvýrazní každý duplikát ve sloupci dat.