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
-
Spusťte Excel.
-
V novém listu zadejte jako příklad následující data (sloupec B ponechte prázdný):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Do buňky B1 zadejte následující vzorec:
=KDYŽ(ISERROR(MATCH(A1;$C$1:$C$5;0));"";A1) -
Vyberte buňku B1 až B5.
-
V Excelu 2007 a novějších verzích Excelu vyberte Vyplnit ve skupině Úpravy a pak vyberte Dolů.
Duplicitní čísla jsou zobrazena 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í: Microsoft poskytuje programovací příklady pouze pro ilustraci, bez výslovné nebo předpokládané záruky. To zahrnuje mimo jiné předpokládané záruky prodejnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je demonstrován, a s nástroji, které se používají k vytváření a ladění procedur. Technici podpory Microsoftu vám můžou pomoct vysvětlit funkčnost konkrétního postupu. Tyto příklady však nebudou upravovat tak, aby poskytovaly přidané funkce nebo konstruktorní postupy, které splňují vaše konkrétní požadavky.
Pokud chcete porovnat data ve dvou sloupcích pomocí makra jazyka Visual Basic, použijte postup v následujícím příkladu:
-
Spusťte Excel.
-
Stisknutím kombinace kláves ALT+F11 spusťte editor jazyka Visual Basic.
-
V nabídce Vložit vyberte Modul.
-
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 -
Stisknutím kombinace kláves ALT+F11 se vrátíte do Excelu.
-
Jako příklad zadejte následující data (sloupec B nechte prázdný):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Vyberte buňku A1 až A5.
-
V Excelu 2007 a novějších verzích Excelu vyberte kartu Vývojář a pak vyberte Makra ve skupině Kód .
Poznámka: Pokud kartu Vývojář nevidíte, možná ji budete muset zapnout. Uděláte to tak, že vyberete Soubor > Možnosti > Přizpůsobit pás karet a pak v poli přizpůsobení na pravé straně vyberete kartu Vývojář .
-
Klikněte na Find_Matches a potom na Spustit.
Duplicitní čísla se zobrazují ve sloupci B. Odpovídající čísla se umístí 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
