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 Sub3. 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:
3. Dans ce qui suit Sélectionnez les cellules dupliquées et uniques boîte de dialogue, cliquez sur OK.
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
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...
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!
