Pomocí následujících metod můžete porovnat data ve dvou Microsoft Excel listu a najít duplicitní položky.
Metoda 1: Použití vzorce listu
-
Spusťte Excel.
-
V novém listu zadejte následující data jako příklad (ponechte sloupec B 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:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) -
Vyberte buňku B1 až B5.
-
V Excel 2007 a novějších verzích Excel vyberte Vyplnit ve skupině Úpravy a pak vyberte Dolů.
Duplicitní čísla se zobrazují 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í Visual Basic makra
Upozornění: Microsoft nabízí příklady programování jenom 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 znáte předvedený programovací jazyk a nástroje, které se používají k vytváření a ladění postupů. Technici podpory Microsoftu vám můžou pomoct vysvětlit funkčnost určitého postupu. Tyto příklady ale neupraví tak, aby poskytovaly přidané funkce nebo sestavují postupy tak, aby splňovaly vaše specifické požadavky.
Pokud chcete Visual Basic data ve dvou sloupcích porovnat pomocí makra, postupujte takto:
-
Spusťte aplikaci Excel.
-
Stisknutím kombinace kláves ALT+F11 spusťte Visual Basic editor.
-
V nabídce Insert (Vložení) vyberte Module (Modul).
-
Do listu modulu 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 Excel.
-
Jako příklad zadejte následující data (ponechte sloupec B 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 Excel 2007 a novějších verzích Excel 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. Chcete-li to provést, vyberte > Možnosti > přizpůsobit pás karet a potom v poli přizpůsobení na pravé straně vyberte kartu Vývojář.
-
Klikněte Find_Matchesa potom na Spustit.
Duplicitní čísla se zobrazí ve sloupci B. Odpovídající čísla se zobrazí vedle prvního sloupce, jak je znázorněno tady:The matching numbers will be put next to the first column, as illustrated here:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
