Du kan bruke følgende metoder til å sammenligne data i to regnearkkolonner i Microsoft Excel og finne dupliserte oppføringer.
Metode 1: Bruke en regnearkformel
-
Åpne Excel.
-
Skriv inn følgende data i et nytt regneark som et eksempel (la kolonne B stå tom):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Skriv inn følgende formel i celle B1: =HVIS(ERFEIL(SAMMENLIGNE(A1,$C$1:$C$5,0),"",A1)
-
Merk celle B1 til B5.
-
Velg Fyll utRedigering-gruppen, og velg deretter Ned. De dupliserte tallene vises i kolonne B, som i eksemplet nedenfor:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metode 2: Bruke en Visual Basic-makro
Advarsel!: Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet for et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt fremgangsmåte. De vil imidlertid ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere fremgangsmåter for å oppfylle dine spesifikke krav.
Hvis du vil bruke en Visual Basic-makro til å sammenligne dataene i to kolonner, bruker du fremgangsmåten i følgende eksempel:
-
Åpne Excel.
-
Trykk på ALT+F11 for å starte redigeringsprogrammet for Visual Basic.
-
Velg Modul på Sett inn-menyen.
-
Skriv inn følgende kode i et modulark:
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 -
Trykk på ALT+F11 for å gå tilbake til Excel.
-
Skriv inn følgende data som et eksempel (la kolonne B stå tom):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Merk celle A1 til A5.
-
Velg Utvikler-fanen, og velg deretter Makroer i Kode-gruppen .
Obs!: Hvis du ikke ser Utvikler-fanen, må du kanskje aktivere den. Hvis du vil gjøre dette, velger du Fil > Alternativer > Tilpass båndet, og deretter velger du Utvikler-fanen i tilpassingsboksen på høyre side.
-
Klikk på Finn_treff, og klikk deretter på Kjør. De dupliserte tallene vises i kolonne B. De samsvarende tallene plasseres ved siden av den første kolonnen, som illustrert her:
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
