Pomocou nasledujúcich metód môžete porovnať údaje v dvoch stĺpcoch hárka programu Microsoft Excel a nájsť duplicitné položky.
Metóda 1: Použitie vzorca hárka
-
Spustite program Excel.
-
Do nového hárka zadajte ako príklad nasledujúce údaje (ponechajte stĺpec B prázdny):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Do bunky B1 zadajte nasledujúci vzorec:
=IF(ISERROR(MATCH(A1;$C$1:$C$5;0));"";A1) -
Vyberte bunku B1 až B5.
-
V Exceli 2007 a novších verziách Excelu vyberte položku Vyplniť v skupine Úpravy a potom vyberte položku Nadol.
Duplicitné čísla sa zobrazia v stĺpci B, ako je to v nasledujúcom príklade:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metóda 2: Použitie makra jazyka Visual Basic
Upozornenie: Spoločnosť Microsoft poskytuje príklady programovania len na ilustráciu bez záruky vyjadrenej alebo implicitnej. To zahŕňa, ale nie je obmedzená na implicitné záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. V tomto článku sa predpokladá, že poznáte predvedený programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie postupov. Technickí inžinieri spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť konkrétneho postupu. Tieto príklady však nebudú upravovať tak, aby poskytovali ďalšie funkcie alebo postupy výstavby tak, aby spĺňali vaše špecifické požiadavky.
Ak chcete použiť makro jazyka Visual Basic na porovnanie údajov v dvoch stĺpcoch, postupujte podľa krokov v nasledujúcom príklade:
-
Spustite program Excel.
-
Stlačením kombinácie klávesov ALT + F11 spustite editor jazyka Visual Basic.
-
V ponuke Vložiť vyberte položku Modul.
-
Do hárka modulu zadajte nasledujúci 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 -
Stlačením kombinácie klávesov ALT + F11 sa vrátite do Excelu.
-
Ako príklad zadajte nasledujúce údaje (ponechajte stĺpec B prázdny):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Vyberte bunku A1 až A5.
-
V Exceli 2007 a novších verziách Excelu vyberte kartu Vývojár a potom v skupine Kód vyberte položku Makrá.
Poznámka: Ak sa karta Vývojár nezobrazuje, možno ju budete musieť zapnúť. Ak to chcete urobiť, vyberte položku Súbor > Možnosti > Prispôsobiť pás s nástrojmi a potom vyberte kartu Vývojár v poli prispôsobenia na pravej strane.
-
Kliknite na položku Find_Matches a potom na položku Spustiť.
Duplicitné čísla sa zobrazia v stĺpci B. Zodpovedajúce čísla sa umiestnia vedľa prvého stĺpca, ako je znázornené tu:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
