Comment supprimer les valeurs uniques d’une colonne dans Excel ?

Généralement, la plupart d’entre nous souhaitent supprimer les valeurs en double d’une colonne, mais il arrive parfois que vous ayez besoin de supprimer les valeurs uniques — celles qui n’apparaissent qu’une seule fois dans la colonne. Ce tutoriel vous présente des astuces efficaces pour supprimer ces valeurs uniques d’une colonne dans Excel.

Supprimer les valeurs uniques avec VBA dans Excel

Supprimer les valeurs uniques avec Kutools pour Excel

---

Supprimer les valeurs uniques avec VBA dans Excel

Grâce à VBA, supprimez en un clin d’œil toutes les valeurs uniques d’une colonne.

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre, cliquez sur Insertion > Module pour ouvrir une nouvelle fenêtre de module, puis copiez le code VBA suivant dans cette fenêtre.

VBA : Supprimez les valeurs uniques d’une colonne.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub

3. Cliquez sur Exécuterpour exécuter le code VBA, et une boîte de dialogue KutoolsforExcels’ouvre pour vous permettre de sélectionner la plage à traiter. Voir la capture d’écran :

4. Cliquez sur OK et toutes les valeurs uniques seront supprimées.

---

Supprimer les valeurs uniques avec Kutools pour Excel

Si vous n’êtes pas à l’aise avec VBA, envisagez d’utiliser la fonctionnalité « Sélectionner les cellules en double/uniques » de Kutools pour Excel afin de supprimer facilement les valeurs uniques.

Kutools pour Excel propose plus de 300 outils pratiques pour Excel. Essayez-le gratuitement et sans limitation pendant 30 jours.Téléchargez-le dès maintenant

1. Sélectionnez la colonne dont vous souhaitez supprimer les valeurs uniques, puis cliquez sur Kutools > Sélectionner > Sélectionner les cellules en double/uniques. Voir la capture d’écran :

2. Dans la boîte de dialogue qui s’ouvre, cochez Valeurs uniques et cliquez sur Ok, puis fermez cette boîte de dialogue. Voir la capture d’écran :

3. Toutes les valeurs apparaissant une seule fois sont désormais sélectionnées. Cliquez avec le bouton droit, puis choisissez Supprimer dans le menu contextuel. Voir la capture d’écran :

4. Dans la boîte de dialogue Supprimer, cochez « Ligne entière », puis cliquez sur OK. Voir la capture d’écran :

Les valeurs uniques ont désormais été supprimées.

Astuce : Si vous souhaitez uniquement supprimer le contenu des cellules, cliquez sur Effacer le contenu dans le menu contextuel à l’étape 3.

Cliquez ici pour en savoir plus sur la sélection des cellules en double ou uniques.

---

Articles associés :

• Supprimer tous les commentaires dans Excel
• Supprimer Ligne en double dans Excel

---