Ga naar hoofdinhoud

Hoe vind ik dubbele of unieke waarden in twee kolommen van twee bladen?

Vergelijk misschien twee bereiken in hetzelfde werkblad en ontdek dat de dubbele of unieke waarden voor de meesten van u gemakkelijk zijn, maar als de twee bereiken in de twee verschillende werkbladen staan, hoe kunt u dan snel de dubbele en unieke waarden in deze twee bereiken vinden? ? Deze tutorial zal enkele snelle bezuinigingen voor je introduceren.

Vergelijk twee dezelfde koptekstkolommen in twee spreadsheets met de formule in Excel

Vergelijk twee bereiken in twee spreadsheets met VBA

Vergelijk twee bereiken in twee spreadsheets met Kutools voor Excel


pijl blauw rechts bel Vergelijk twee dezelfde koptekstkolommen in twee spreadsheets met de formule in Excel

Met de formule in Excel kunt u twee dezelfde koptekstkolommen vergelijken zoals hieronder weergegeven op verschillende bladen en de dubbele en unieke waarden vinden:

1. Typ deze formule = AANTAL.ALS (Blad1! $ A: $ A, A1) in een lege cel die grenst aan het bereik in Blad 3. Zie screenshot:

2. druk op Enter op het toetsenbord en sleep vervolgens de vulgreep om het bereik te vullen dat u wilt vergelijken met het bereik in Blad 1. (Nummer nul betekent dubbele waarden in twee bereiken en nummer 1 betekent unieke waarden in Blad3, maar niet in Blad1)

Tips:

Deze formule kan alleen twee kolommen met dezelfde koptekst in twee spreadsheets vergelijken.

2. Als u de unieke waarden in Blad1 wilt vinden, maar niet in Blad3, moet u de bovenstaande formule = invoerenAANTAL.ALS (Blad3! $ A: $ A; A1) in Sheet1.


pijl blauw rechts bel Vergelijk twee bereiken in twee spreadsheets met VBA

1. Houden ALT knop en druk op F11 op het toetsenbord om een Microsoft Visual Basic voor toepassing venster.

2. klikken Invoegen > Moduleen kopieer de VBA naar de module.

VBA: vergelijk twee bereiken in twee spreadsheets

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Bereik A:", xTitleId, "", Type: = 8 ) Set WorkRng2 = Application.InputBox ("Bereik B:", xTitleId, Type: = 8) Voor elke Rng1 in WorkRng1 rng1Value = Rng1.Value voor elke Rng2 in WorkRng2 Als rng1Value = Rng2.Value Dan Rng1.Interior.Color = VBA .RGB (255, 0, 0) Exit For End If Next Next End Sub

3. klikken lopen knop of druk op F5 om de VBA uit te voeren.

4. Er wordt een dialoogvenster op het scherm weergegeven en u moet een bereik selecteren waarmee u wilt vergelijken. Zie screenshot:

5. klikken Ok en er wordt een ander dialoogvenster weergegeven waarin u het tweede bereik kunt selecteren. Zie screenshot:

6. klikken Ok, en de dubbele waarden zowel in bereik A als in bereik B worden gemarkeerd met de rode achtergrond in bereik A. Zie screenshot:

Tips: met deze VBA kunt u twee bereiken vergelijken, zowel in dezelfde als in verschillende werkbladen.


pijl blauw rechts bel Vergelijk twee bereiken in twee spreadsheets met Kutools voor Excel

Als de formule u niet uitkomt en VBA moeilijk voor u is, kunt u het proberen Kutools for Excel's Vergelijk Ranges functie.

Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now

Solliciteer Vergelijk Ranges functie door te klikken Kutools > Vergelijk Ranges. Zie screenshot:

Vergelijk met twee kolommen in verschillende bladen:

1. klikken Kutools > Vergelijk Ranges, wordt een dialoogvenster op het scherm weergegeven. Zie screenshot:

2. Specificeer de bereiken en regels, doe als volgt:

Laat Compare binnen hetzelfde bereik verwijder het vinkje en selecteer twee bereiken door op te klikken Bereik A en Bereik B, zie screenshot:

Specificeer dezelfde waarden of verschillende waarden die u wilt vinden in de vervolgkeuzelijst onder Regels;

3. klikken Ok. Een pop-upvenster vertelt u dat dezelfde waarden zijn geselecteerd.

4. klikken Ok knop in het pop-upvenster. Dezelfde waarden tussen twee bereiken worden geselecteerd in bereik A.

Vergelijk twee bereiken in spreadsheets

Als u twee bereiken in twee spreadsheets heeft, zoals hieronder weergegeven, en u wilt ze vergelijken en de verschillende waarden ontdekken, dan kunt u het volgende doen:

1. klikken Kutools > Vergelijk Ranges, wordt een dialoogvenster op het scherm weergegeven.

2. Specificeer de bereiken en regels, doe als volgt:

Verlof Vergelijk in hetzelfde bereik verwijder het vinkje en selecteer twee bereiken door op te klikken Bereik A en Bereik B;

Specificeer de verschillende waarden die u wilt vinden in de vervolgkeuzelijst onder Regels;

Controleer of Mijn gegevens headers hebben in Opties sectie;

3. klikken Ok. Een pop-upvenster vertelt u dat dezelfde waarden zijn geselecteerd.

4. klikken Ok knop in het pop-upvenster. De verschillende waarden in bereik A zijn geselecteerd. Zie screenshot:

Als u de verschillende waarden in bereik B van Sheet2 wilt weten, moet u de twee bereiken omwisselen.

Vergelijk Ranges functie kan ook bereiken in hetzelfde blad vergelijken. Klik hier voor meer informatie over vergelijkingsbereiken.


Relatieve artikelen:

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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