Jak porovnat data ve dvou sloupcích a najít duplicity v Excelu

Pomocí následujících metod můžete porovnat data ve dvou sloupcích listu aplikace Microsoft Excel a najít duplicitní položky. 

Metoda 1: použití vzorce listu

  1. Spusťte Excel.

  2. Do nového listu zadejte následující data jako příklad (nechte sloupec B prázdné):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Do buňky B1 zadejte tento vzorec:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Vyberte buňku B1 až B5.

  5. V Excelu 2007 a novějších verzích Excelu vyberte vyplnit skupinu Úpravy a pak vyberte dolů.

    Duplicitní čísla se zobrazí ve sloupci B, jako v následujícím příkladu: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Metoda 2: použití makra jazyka Visual Basic

Upozornění: Společnost Microsoft nabízí příklady programování pouze pro ilustraci bez záruky výslovně uvedené nebo implicitně předpokládaných. To zahrnuje, ale není omezeno na implicitně odvozené záruky obchodovatelnosti nebo vhodnosti pro určitý účel. V tomto článku se předpokládá, že jste obeznámeni s programovacím jazykem, který se vám seznámí, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci podpory Microsoftu mohou vysvětlit funkčnost konkrétního postupu. Nicméně tyto příklady neupraví, aby bylo možné přidat další funkce nebo postupovat podle konkrétních požadavků.

Pokud chcete pomocí makra v jazyce Visual Basic porovnat data ve dvou sloupcích, postupujte podle kroků v následujícím příkladu:

  1. Spusťte aplikaci Excel.

  2. Stisknutím kombinace kláves ALT + F11 spusťte aplikaci Visual Basic Editor.

  3. V nabídce Vložit vyberte modul.

  4. Do listu modulů zadejte následující kód:

    Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    ' Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
    For Each y In CompareRange
    If x = y Then x.Offset(0, 1) = x
    Next y
    Next x
    End Sub
  5. Stisknutím kombinace kláves ALT + F11 se vrátíte do aplikace Excel.

    1. Jako příklad (opustit sloupec B prázdné) zadejte následující data:
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Vyberte buňku A1 až a5.

  7. V Excelu 2007 a novějších verzích Excelu vyberte kartu vývojář a pak ve skupině kód vyberte makra .

    Poznámka: Pokud kartu vývojář nevidíte, možná ji budete muset zapnout. Chcete-li to udělat, vyberte možnosti > souborů > přizpůsobit pás kareta potom v poli vlastní nastavení na pravé straně vyberte kartu vývojář .

  8. Klikněte na Find_Matchesa potom na Spustit.

    Duplicitní čísla se zobrazí ve sloupci B. Odpovídající čísla budou uvedena vedle prvního sloupce, jak je znázorněno tady:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Poznámka:  Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát vědět, jestli vám informace pomohly? Pokud chcete, můžete se podívat na anglickou verzi článku.

Rozšiřte své dovednosti s Office
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor! Pravděpodobně bude užitečné, když vás spojíme s některým z našich agentů podpory Office.

×