Comment créer rapidement une liste unique (supprimer les doublons) à partir d'une colonne donnée dans Excel ?

Supposons que vous ayez une liste de noms contenant des doublons, et maintenant vous souhaitez créer une nouvelle liste de noms uniques à partir de cette colonne donnée. Comment pourriez-vous résoudre cela dans Excel ? Ce tutoriel présente quelques astuces qui peuvent vous aider à créer rapidement une liste unique à partir d'une colonne donnée.

Créer une liste unique à partir d'une colonne avec le Filtre avancé

Créer une liste unique à partir d'une colonne avec VBA

Créer rapidement une liste unique à partir d'une colonne avec Kutools pour Excel

Créer une liste unique à partir d'une colonne avec le Filtre avancé

Dans Excel, vous pouvez utiliser la fonction Filtre avancé pour filtrer les données uniques d'une liste.

1. Cliquez sur Données > Filtre avancé. Voir capture d'écran :

2. Dans la fenêtre Filtre avancé, procédez comme suit :

(1) Cochez l'option Copier vers un autre emplacement et l'option Uniquement les enregistrements uniques ;

(2) Sélectionnez la colonne contenant les doublons pour la zone de texte Plage de liste, et sélectionnez une cellule où placer la liste unique dans la zone de texte Copier vers.

3. Cliquez sur OK. Maintenant, la liste unique a été créée. Voir capture d'écran :

Créer une liste unique à partir d'une colonne avec VBA

Dans Excel, vous pouvez également utiliser du code VBA pour créer une liste unique à partir d'une colonne donnée.

1. Appuyez sur Alt + F11 pour afficher la fenêtre Microsoft Visual Basic pour Applications, puis cliquez sur Insérer > Module, ensuite copiez et collez le code VBA ci-dessous dans la nouvelle fenêtre Module.

VBA : Créer une liste unique à partir d'une colonne donnée.

Sub CreateUniqueList()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
InputRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=OutRng, Unique:=True
End Sub

2. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour activer le code VBA, et dans la boîte de dialogue qui apparaît, sélectionnez la liste contenant les doublons et cliquez sur OK, puis sélectionnez une cellule où placer le résultat. Voir captures d'écran :

   >>>   

3. Maintenant, une liste avec des noms uniques a été créée.

Créer rapidement une liste unique à partir d'une colonne avec Kutools pour Excel

En fait, avec la fonctionnalité Sélectionner les cellules en double & uniques de Kutools pour Excel, vous pouvez également créer rapidement une liste unique à partir d'une colonne donnée.

1. Sélectionnez la liste (il est facultatif de sélectionner l'en-tête de colonne) sur laquelle vous souhaitez créer une liste unique, puis cliquez sur Kutools > Sélectionner > Sélectionner les cellules en double & uniques. Voir capture d'écran :

2. Dans la boîte de dialogue qui apparaît, cochez l'option Toutes les valeurs uniques (y compris les premiers doublons) sous la section Règle. Voir capture d'écran :

3. Cliquez sur Ok, puis une boîte de dialogue apparaît pour vous rappeler le nombre de cellules sélectionnées. Voir capture d'écran :

4. Cliquez sur OK, puis appuyez sur Ctrl + C pour copier les cellules sélectionnées et sélectionnez une cellule et appuyez sur Ctrl + V pour y placer le résultat.

Astuce : Si vous souhaitez sélectionner les valeurs de manière sensible à la casse, vous pouvez cocher l'option Sensible à la casse dans la boîte de dialogue Sélectionner les cellules en double & uniques.

Avec la fonctionnalité Sélectionner les cellules en double & uniques, vous pouvez uniquement sélectionner les doublons incluant le premier, sélectionner uniquement les doublons sauf le premier, et sélectionner toutes les valeurs uniques sauf la première.