Comment comparer deux colonnes et mettre en évidence les données non correspondantes dans Excel ?
Comme le montre la capture d'écran ci-dessous, pour comparer deux colonnes de cellules adjacentes et mettre en évidence les données non correspondantes, vous pouvez essayer les méthodes décrites dans cet article.
Comparer deux colonnes et mettre en évidence les données non correspondantes avec un code VBA
Comparer deux colonnes et mettre en évidence les données non correspondantes avec Kutools pour Excel
Comparer deux colonnes et mettre en évidence les données non correspondantes avec un code VBA
Dans la capture d'écran ci-dessus, vous comparez les données de la Colonne A et de la Colonne B. Veuillez exécuter le code VBA suivant pour mettre en évidence les données non correspondantes.
1. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code suivant dans la fenêtre Code.
Code VBA : Comparer deux colonnes et mettre en évidence les données non correspondantes
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. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui apparaît, sélectionnez la première colonne que vous devez comparer, puis cliquez sur le bouton OK. Voir la capture d'écran.
4. Sélectionnez ensuite la deuxième colonne à comparer dans la prochaine boîte de dialogue Kutools pour Excel qui apparaît.
5. Dans la boîte de dialogue comme le montre la capture d'écran ci-dessous, pour mettre en évidence les données non correspondantes, veuillez cliquer sur le Non.
Toutes les données non correspondantes entre les deux colonnes sont immédiatement mises en évidence. Voir la capture d'écran :
Comparer deux colonnes et mettre en évidence les données non correspondantes avec Kutools pour Excel
Si vous souhaitez simplement vérifier et mettre en évidence si les valeurs des cellules dans une colonne existent dans une autre colonne ou non, par exemple comme le montre la capture d'écran ci-dessous, le chiffre 2 dans la colonne A n'existe pas dans la colonne B. Vous pouvez essayer l'utilitaire Comparaison des Plages de Kutools pour Excel.
1. Cliquez sur Kutools > Insertion > Sélectionner les cellules identiques et différentes. Voir la capture d'écran :
2. Dans la boîte de dialogue Sélectionner les cellules identiques et différentes, vous devez configurer comme suit :
3. Une boîte de dialogue apparaît alors pour vous indiquer combien de cellules sont uniquement dans la colonne A mais pas dans la colonne B, cliquez sur le bouton OK, et toutes les cellules correspondantes sont sélectionnées dans la colonne A.
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Articles connexes :
- Comment comparer deux chaînes de caractères pour leur similarité ou mettre en évidence les différences dans Excel ?
- Comment comparer exactement deux chaînes de caractères (sensible à la casse) dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !