Du kan använda följande metoder för att jämföra data i två Microsoft Excel-kalkylbladskolumner och hitta dubblettposter.
Metod 1: Använd en kalkylbladsformel
-
Starta Excel.
-
I ett nytt kalkylblad anger du följande data som ett exempel (lämna kolumn B tom):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Skriv följande formel i cell B1:
=OM(ÄRFEL(PASSA(A1,$C$1:$C$5,0)),"",A1) -
Markera cell B1 till B5.
-
I Excel 2007 och senare versioner av Excel väljer du Fyll i gruppen Redigering och väljer sedan Nedåt.
Dubblettnumren visas i kolumn B som i följande exempel:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metod 2: Använd ett Visual Basic-makro
Varning!: Microsoft tillhandahåller endast programmeringsexempel i visningssyfte, utan att någon form av garanti uttrycks eller är underförstådd. Detta omfattar men är inte begränsat till underförstådda garantier för säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med programmeringsspråket som demonstreras och med de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionerna i en viss procedur. De kommer dock inte att ändra dessa exempel för att tillhandahålla ytterligare funktioner eller konstruktionsprocedurer för att uppfylla dina specifika krav.
Om du vill använda ett Visual Basic-makro för att jämföra data i två kolumner använder du stegen i följande exempel:
-
Starta Excel.
-
Tryck på ALT+F11 för att starta Visual Basic-redigeraren.
-
I menyn Infoga väljer du Modul.
-
Ange följande kod i ett modulblad:
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 -
Tryck på ALT+F11 för att återgå till Excel.
-
Ange följande data som ett exempel (lämna kolumn B tom):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Markera cell A1 till A5.
-
I Excel 2007 och senare versioner av Excel väljer du flikenUtvecklare och sedan Makron i gruppenKod.
Obs!: Om du inte ser fliken Utvecklare kan du behöva aktivera den. Det gör du genom att välja Arkiv > Alternativ > Anpassa menyfliksområdet och sedan välja fliken Utvecklare i anpassningsrutan till höger.
-
Klicka på Hitta_Matchningar och sedan på Kör.
Dubblettnumren visas i kolumn B. Matchande tal placeras bredvid den första kolumnen enligt följande:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
