Gå til hovedindhold

Hvordan finder man duplikat eller unikke værdier i to kolonner med to ark?

Måske sammenligne to områder i det samme regneark og finde ud af, at duplikat eller unikke værdier er let for de fleste af jer, men hvis de to områder er i de to forskellige regneark, hvordan kan du hurtigt finde ud af de duplikerede og unikke værdier i disse to områder ? Denne vejledning introducerer nogle hurtige nedskæringer til dig.

Sammenlign to samme overskriftskolonner i to regneark med formlen i Excel

Sammenlign to områder i to regneark med VBA

Sammenlign to områder i to regneark med Kutools til Excel


pil blå højre boble Sammenlign to samme overskriftskolonner i to regneark med formlen i Excel

Med formlen i Excel kan du sammenligne to samme overskriftskolonner som vist som nedenfor på forskellige ark og finde de duplikerede og unikke værdier:

1. At skrive denne formel = COUNTIF (Ark1! $ A: $ A, A1) i en tom celle, der støder op til området i ark 3. Se skærmbillede:

2. Trykke Indtast på tastaturet, og træk derefter påfyldningshåndtaget for at udfylde det område, du vil sammenligne med området i Ark 1. (Nummer nul betyder duplikatværdier i to områder, og Nummer 1 betyder unikke værdier i Ark3, men ikke i Ark1)

tips:

1. Denne formel kan kun sammenligne to kolonner med den samme overskrift i to regneark.

2. Hvis du vil finde de unikke værdier i Ark1, men ikke i Ark3, skal du indtaste ovenstående formel =COUNTIF (Ark3! $ A: $ A, A1) ind i ark1.


pil blå højre boble Sammenlign to områder i to regneark med VBA

1. Holde ALT og tryk på F11 på tastaturet for at åbne en Microsoft Visual Basic til anvendelse vindue.

2. klik indsatte > Moduler, og kopier VBA til modulet.

VBA: Sammenlign to områder i to regneark

Sub CompareRanges () 'Opdatering 20130815 Dim WorkRng1 Som Range, WorkRng2 Som Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Range A:", xTitleId, "", Type: = 8 ) Indstil WorkRng2 = Application.InputBox ("Range B:", xTitleId, Type: = 8) For hver Rng1 i WorkRng1 rng1Value = Rng1.Value for hver Rng2 i WorkRng2 Hvis rng1Value = Rng2.Værdi Derefter Rng1.Interior.Color = VBA .RGB (255, 0, 0) Afslut til afslutning, hvis næste næste afslutning Sub

3. klik Kør knappen eller tryk på F5 at køre VBA.

4. Der vises en dialogboks på skærmen, og du skal vælge et område, du vil sammenligne med. Se skærmbillede:

5. klik Ok og en anden dialogboks vises, hvor du kan vælge det andet interval. Se skærmbillede:

6. klik Ok, og de dobbelte værdier både i område A og i område B er fremhævet med den røde baggrund i område A. Se skærmbillede:

Tips: Med denne VBA kan du sammenligne to områder både i det samme og forskellige regneark.


pil blå højre boble Sammenlign to områder i to regneark med Kutools til Excel

Hvis formlen ikke er praktisk for dig, og VBA er vanskelig for dig, kan du prøve Kutools til Excel's Sammenlign områder funktion.

Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu

venligst anvende Sammenlign områder funktion ved at klikke Kutools > Sammenlign områder. Se skærmbillede:

Sammenlign med to kolonner i forskellige ark:

1. klik Kutools > Sammenlign områder, vises en dialog på skærmen. Se skærmbillede:

2. Angiv intervaller og regler, gør som følger:

Lad sammenligningen være inden for samme rækkevidde fjern markeringen, og vælg to områder ved at klikke på Område A , Område B, se skærmbillede:

Angiv de samme værdier eller forskellige værdier, som du vil finde i rullemenuen under Regler;

3. klik Ok. En pop op-dialogboks fortæller dig, at de samme værdier er valgt.

4. klik Ok i pop op-dialogboksen. De samme værdier mellem to områder er valgt i område A.

Sammenlign to områder i regneark

Hvis du har to områder i to regneark som vist som nedenfor, og du vil sammenligne dem og finde ud af de forskellige værdier, kan du gøre som følger:

1. klik Kutools > Sammenlign områder, vises en dialog på skærmen.

2. Angiv intervaller og regler, gør som følger:

Forlade Sammenlign i samme rækkevidde fjern markeringen, og vælg to områder ved at klikke på Område A , Område B;

Angiv de forskellige værdier, du vil finde i rullemenuen under Regler;

Kontroller, at mine data har overskrifter in Indstillinger afsnit;

3. klik Ok. En pop op-dialogboks fortæller dig, at de samme værdier er valgt.

4. klik Ok i pop op-dialogboksen. De forskellige værdier i område A er valgt. Se skærmbillede:

Hvis du vil finde ud af de forskellige værdier i område B på ark2, skal du bytte de to områder.

Sammenlign områder funktion kan også sammenligne områder i det samme ark. Klik her for at vide mere om Compare Ranges.


Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations