Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe twee kolommen te vergelijken en de ongeëvenaarde gegevens in Excel te markeren?

Zoals onderstaand screenshot laat zien, kunt u de methoden in het artikel proberen om twee kolommen met aangrenzende cellen te vergelijken en de ongeëvenaarde gegevens te markeren.

Vergelijk twee kolommen en markeer de ongeëvenaarde gegevens met VBA-code
Vergelijk twee kolommen en markeer de ongeëvenaarde gegevens met Kutools voor Excel


Vergelijk twee kolommen en markeer de ongeëvenaarde gegevens met VBA-code


Zoals de bovenstaande schermafbeelding, vergelijkt u de gegevens in kolom A en kolom B. Voer de volgende VBA-code uit om de niet-overeenkomende gegevens te markeren.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de volgende code in het codevenster.

VBA-code: vergelijk twee kolommen en markeer de ongeëvenaarde gegevens

Sub Dyeware()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer de eerste kolom die u wilt vergelijken en klik vervolgens op het OK knop. Zie screenshot.

4. Selecteer vervolgens de tweede vergeleken kolom in de volgende pop-up Kutools for Excel dialoog venster.

5. In het dialoogvenster zoals onderstaand screenshot getoond, klikt u op de om de niet-overeenkomende gegevens te markeren Nee knop.

Vervolgens worden alle ongeëvenaarde gegevens tussen twee kolommen onmiddellijk gemarkeerd. Zie screenshot:


Vergelijk twee kolommen en markeer de ongeëvenaarde gegevens met Kutools voor Excel

Als u alleen wilt weten of de celwaarden in een kolom in een andere kolom voorkomen of niet, bijvoorbeeld zoals onderstaand screenshot, nummer 2 in kolom A bestaat niet in kolom B., kunt u de Vergelijk Ranges nut van Kutools for Excel.

1. klikken Kutools > InvoegenSelecteer dezelfde en verschillende cellen. Zie screenshot:

2. In de Selecteer dezelfde en verschillende cellen dialoogvenster, moet u als volgt configureren:

2.1 Selecteer de eerste kolom met de niet-overeenkomende cellen die u in de Vind waarden postvak IN;
2.2 Selecteer de tweede kolom die u wilt vergelijken op basis van in het Think doos;
2.3 In het Gebaseerd op setcion, kies het Eencellig keuze;
2.3 Kies het Verschillende waarden optie in het Vind sectie;
2.4 In het Verwerking van resultaten sectie, controleer de Vul de rugkleur vak en specificeer een achtergrondkleur uit de vervolgkeuzelijst;
2.5 Klik op de OK knop. Zie screenshot:

3. Vervolgens verschijnt er een dialoogvenster om u te vertellen hoeveel cellen u alleen in kolom A maar niet in kolom B op de knop OK klikt en alle overeenkomende cellen worden geselecteerd in kolom A.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Maheshwaran · 1 years ago
    Hi Bro,
    Thank you for your reply.
    I checked this link and I don't see what iam expecting.. if in A1 clm we have 'Man' and A2 as 'Mon'. In that, 'o' only different. So, I need like the 'o' should be highlighted. Other text should be shown as normal text.
  • To post as a guest, your comment is unpublished.
    Maheshwaran R · 1 years ago
    Hi, It's awesome and very useful!!!!!!!!

    Also, I have a doubt about this. In 'A1', I have text as 'Hi Man' and in 'B1', I Have text as 'Ha Man'. So when I run the Macron, I need the result as in B1 'Ha Man' (The "a" only should be highlighted and other text should be in normal).

    Please sort out this issue Bro!!!

    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      The VBA code in below article can do you a favor. Please follow the link.
      How To Compare Two Strings For Similarity Or Highlight Differences In Excel?
      https://www.extendoffice.com/documents/excel/3716-excel-compare-two-strings-highlight-differences-for-similarity.html#a2
  • To post as a guest, your comment is unpublished.
    shasikala2321982@gmail.com · 3 years ago
    hi
    i have some doubt in vba
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi,
      Please let me know your doubt.