Két oszlop adatainak összehasonlítása az ismétlődések megkeresése Excel

Az alábbi módszerekkel két oszlop adatait hasonlíthatja össze Microsoft Excel munkalaposzlopokkal, és megkeresheti az ismétlődő bejegyzéseket. 

1. módszer: Munkalapképlet használata

  1. Kezdés Excel.

  2. Egy új munkalapon példaként adja meg az alábbi adatokat (hagyja üresen a B oszlopot):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Írja be a B1 cellába a következő képletet:

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

  4. Jelölje ki a B1–B5 cellát.

  5. A Excel 2007-es Excel verziókban válassza a Kitöltés a Szerkesztés csoportban, majd a Le lehetőséget.

    A duplikált számok a B oszlopban jelennek meg, ahogy az alábbi példában látható: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

2. módszer: Makró Visual Basic használata

Figyelmeztetés: A Microsoft csak illusztrációkhoz biztosít programozási példákat, jótállás kifejezett vagy vélelmezett nélkül. Ez többek között magában foglalja az adott célra való forgalomra vagy alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk abból indul ki, hogy ismeri a bemutatható programozási nyelvet, valamint az eljárások létrehozására és a hibakeresésre használt eszközöket. A Microsoft terméktámogatási mérnökei segíthetnek egy adott eljárás működésének magyarázatában. A példákat azonban nem módosítják úgy, hogy az ön igényeinek megfelelően további funkciókat vagy eljárásokat építsen ki.

Ha két Visual Basic adatait össze kell hasonlítani egy makróval, kövesse az alábbi példa lépéseit:

  1. Indítsa el az Excel alkalmazást.

  2. Az ALT+F11 billentyűkombinációt lenyomva indítsa el Visual Basic szerkesztőt.

  3. A Beszúrás menüben válassza a Modul elemet.

  4. Írja be a következő kódot egy modullapra:

    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. Nyomja le az ALT+F11 billentyűkombinációt a Excel.

    1. Írja be példaként az alábbi adatokat (hagyja üresen a B oszlopot):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Jelölje ki az A1–A5 cellát.

  7. A Excel 2007-es vagy újabb Excel verziókban válassza a Fejlesztőeszközök lapot, majd a Kód csoportban válassza a Makrók lehetőséget.

    Megjegyzés: Ha nem látható a Fejlesztőeszközök lap, lehet, hogy be kell kapcsolnia. Ehhez válassza a Fájl >Beállítások > Menüszalagtestreszabása elemet, majd válassza a fejlesztőeszközök fület a jobb oldalon található testreszabási mezőben.

  8. Kattintson Find_Matches, majd a Futtatás gombra.

    Az ismétlődő számok a B oszlopban jelennek meg. Az egyező számok az első oszlop mellé lesznek ékezetve, az alábbi ábrán láthatóak szerint:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

További segítségre van szüksége?

Office-jártasság bővítése
Oktatóanyagok megismerése
Új szolgáltatások listájának lekérése
Részvétel az Office Insider programban

Hasznos volt az információ?

×