Az alábbi módszerekkel összehasonlíthatja két Microsoft Excel munkalap oszlop adatait, és duplikált bejegyzéseket kereshet.
1. módszer: Munkalapképlet használata
-
Indítsa el az Excelt.
-
Egy új munkalapon adja meg példaként a következő adatokat (hagyja üresen a B oszlopot):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Írja be a következő képletet a B1 cellába:
=HA(ISERROR(MATCH(A1;$C$1:$C$5,0)),"",A1) -
Jelölje ki a B1–B5 cellákat.
-
Az Excel 2007-es és újabb verzióiban válassza a Kitöltés lehetőséget a Szerkesztés csoportban, majd válassza a Le lehetőséget.
A duplikált számok megjelennek a B oszlopban, mint a következő példában:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
2. módszer: Visual Basic makró használata
Figyelmeztetés: A Microsoft csak illusztrációs céllal kínál programozási példákat, kifejezett vagy vélelmezett garancia nélkül. Ez magában foglalja, de nem kizárólagosan a forgalmazhatóságra vagy az adott célra való alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás működését. Azonban nem módosítják ezeket a példákat, hogy további funkciókat biztosítsanak, és nem építenek ki eljárásokat kifejezetten az Ön igényeire.
Ha Visual Basic makrót szeretne használni a két oszlop adatainak összehasonlításához, kövesse az alábbi példa lépéseit:
-
Indítsa el az Excelt.
-
Nyomja le az ALT+F11 billentyűkombinációt a Visual Basic szerkesztő elindításához.
-
A Beszúrás menüben válassza a Modul elemet.
-
Egy modullapra írja be a következő makrókódot:
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
-
Az Excelbe való visszatéréshez nyomja le az ALT+F11 billentyűkombinációt.
-
Adja meg példaként a következő adatokat (hagyja üresen a B oszlopot):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Jelölje ki az A1-A5 cellákat.
-
Az Excel 2007-es és újabb verzióiban válassza a Fejlesztő lapot, majd válassza Makrók elemet a Kód csoportban.
Megjegyzés: Ha nem látja a Fejlesztő lapot, előfordulhat, hogy be kell kapcsolnia. Ehhez válassza a Fájl > Beállítások > Menüszalag testreszabása lehetőséget, majd válassza a Fejlesztő lapot a jobb oldali testreszabási mezőben.
-
Kattintson a Találatok_keresése, majd a Futtatás elemre.
A duplikált számok megjelennek a B oszlopban. Az egyező számok az első oszlop mellé kerülnek, ahogy itt látható:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0