Passer au contenu principal

Comment supprimer les doublons mais conserver la première instance dans Excel?

Disons qu'il existe une liste de valeurs dans votre feuille de calcul qui contient des doublons, maintenant, vous devez supprimer les doublons mais conserver la première ligne où se trouve la valeur dupliquée. Dans cet article, nous allons vous montrer deux méthodes pour supprimer les doublons mais conserver la première instance dans Excel.

Supprimer les doublons mais conserver la première instance avec le code VBA
Supprimez les doublons mais conservez la première instance avec Kutools for Excel


Supprimer les doublons mais conserver la première instance avec le code VBA

Vous pouvez exécuter le code VBA ci-dessous pour supprimer les doublons, mais conserver la première instance dans une colonne.

1. presse autre + F11 ouvrir le Microsoft Visual Basic pour applications boite de dialogue.

2. dans le Microsoft Visual Basic pour applications boîte de dialogue, cliquez sur insérer > Module. Ensuite, copiez et collez le code ci-dessous dans la fenêtre de code.

Code VBA: supprimez les doublons mais conservez la première instance

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	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)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. presse F5 clé pour exécuter le code. Dans le popping KutoolsforExcel boîte de dialogue, sélectionnez la plage dans laquelle vous souhaitez supprimer les doublons, puis cliquez sur le OK bouton. Voir la capture d'écran:

Vous pouvez maintenant voir toutes les lignes en double, sauf que les premiers enregistrements sont supprimés de la plage de colonnes sélectionnée. Voir la capture d'écran:


Supprimez les doublons mais conservez la première instance avec Kutools for Excel

En plus du code VBA, vous pouvez utiliser le Sélectionnez les cellules dupliquées et uniques utilité de Kutools for Excel complément pour supprimer facilement les doublons mais conserver les premières instances dans Excel.

Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Sélectionnez la plage dans laquelle vous souhaitez supprimer les doublons mais conserver les premières instances. Puis clique Kutools > Sélectionnez > Sélectionnez les cellules dupliquées et uniques

2. dans le Sélectionnez les cellules dupliquées et uniques boîte de dialogue, sélectionnez le Doubles (sauf le premier) , puis cliquez sur le OK bouton. Voir la capture d'écran:

doc supprimer les doublons1

3. Dans ce qui suit Sélectionnez les cellules dupliquées et uniques boîte de dialogue, cliquez sur OK.

doc supprimer les doublons1

4. Maintenant, les doublons sont sélectionnés sauf les premières instances, veuillez appuyer sur le Supprimer pour supprimer les doublons sélectionnés.

Notes: Si vous souhaitez supprimer les lignes en double, il vous suffit de vérifier Sélectionnez des lignes entières option dans la Sélectionnez les cellules dupliquées et uniques boîte de dialogue, puis appliquez le Supprimer commande du menu contextuel pour supprimer toutes les lignes dupliquées.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Supprimez les doublons mais conservez la première instance avec Kutools for Excel

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition 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é de 50% et réduit des centaines de clics de souris chaque jour!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell John I Red John I Blue John I Yellow Joe I Red Joe I Blue Joe I Yellow and turn it into John I Red I Blue I Yellow Joe I Red I Blue I Yellow Can you help on just keeping the first duplicate in a single cell only?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations