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 > Invoegen > Selecteer dezelfde en verschillende cellen. Zie screenshot:
2. In de Selecteer dezelfde en verschillende cellen dialoogvenster, moet u als volgt configureren:
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:
- Hoe twee strings te vergelijken voor gelijkenis of verschillen in Excel te markeren?
- Hoe precies twee strings (hoofdlettergevoelig) in Excel vergelijken?
Beste Office-productiviteitstools
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...
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!