Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment mettre en évidence des valeurs en double dans différentes couleurs dans Excel?

doc différentes couleurs duplique 1

Dans Excel, nous pouvons facilement mettre en évidence les valeurs en double dans une colonne avec une couleur en utilisant le Mise en forme conditionnelle, mais, parfois, nous devons mettre en évidence les valeurs en double dans des couleurs différentes pour reconnaître les doublons rapidement et facilement que la capture d'écran suivante. Comment pourriez-vous résoudre cette tâche dans Excel?

Mettez en surbrillance les valeurs dupliquées dans une colonne avec des couleurs différentes en utilisant le code VBA


flèche bleue droite bulle Mettez en surbrillance les valeurs dupliquées dans une colonne avec des couleurs différentes en utilisant le code VBA


En fait, il n'y a aucun moyen direct pour nous de terminer ce travail dans Excel, mais, le code VBA ci-dessous peut vous aider, s'il vous plaît faites comme suit:

1. Sélectionnez la colonne de valeurs que vous voulez mettre en surbrillance avec les couleurs de différence, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Mettez en surbrillance les valeurs dupliquées dans différentes couleurs:

Sub ColorCompanyDuplicates()
'Updateby Extendoffice 20160704
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

3. Et puis appuyez sur F5 clé pour exécuter ce code, et une boîte de dialogue vous rappellera de sélectionner la plage de données que vous souhaitez mettre en évidence les valeurs en double, voir capture d'écran:

doc différentes couleurs duplique 2

4. Puis clique OK bouton, toutes les valeurs en double ont été mises en surbrillance dans différentes couleurs, voir capture d'écran:

doc différentes couleurs duplique 1



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    AW · 2 months ago
    How can you make it color the entire document if there are many rows?
  • To post as a guest, your comment is unpublished.
    Miles · 2 months ago
    Thanks for posting this, it's been very helpful! Which lines in the VBA code designate which colors will be used? I was looking for hex color codes in there but nothing was popping out.
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hi, Miles,
      The above VBA code can not support to choose the colors, it fills the cells with random background color.
      If you have other good ideas, please comment here.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Bree · 2 months ago
    Nvm i got it to work.
  • To post as a guest, your comment is unpublished.
    Bree · 2 months ago
    I can't get it to work it keeps crashing my Excel.
  • To post as a guest, your comment is unpublished.
    Татьяна · 5 months ago
    Огромное СПАСИБО !!!!