Les sujets:

Les partenaires publicitaires:

Réponses populaires


Questions connexes

Comment supprimer les doublons de macro Excel

Une entrée en double dans Microsoft Excel est une entrée dans une colonne ou une ligne qui correspond à d'autres entrées dans la même colonne ou ligne. Vous pouvez supprimer ces doublons de resserrer vos données, mais vous ne pouvez pas le faire manuellement, surtout si vous avez des centaines de cellules de données. Malheureusement, si vous travaillez dans Microsoft Office Excel, en particulier Excel 2002 et Excel 2003, en supprimant les doublons dans les colonnes ou rangées automatiquement est pas évident.


Sommaire

Construire une macro pour supprimer les doublons de colonne Premières

  1. Accédez à Outils sur la barre d'outils en bas de Macro. Pour la droite, trouver le Visual Basic Editor et gauche; cliquez dessus. Une fois dans le Visual Basic Editor, trouver le menu déroulant qui vous permet de créer un formulaire utilisateur, module ou un module de classe. Choisir "Module."

  2. Copiez et collez le texte suivant dans la boîte d'édition qui ouvre:

    Sous DelDups_OneList ()
    Dim iListCount As Integer
    Dim TPIR As Integer
    «Désactiver la mise à jour de l'écran pour accélérer macro.
    Application.ScreenUpdating = False
    'Get nombre d'enregistrements par le biais de la recherche.
    iListCount = Sheets ("Sheet1") .Range ("A1: A100") .Rows.Count
    Draps ("Sheet1") .Range ("A1") .Select
    «Boucle jusqu'à la fin des enregistrements.
    Faire jusqu'à ActiveCell = ""
    «Boucle à travers les enregistrements.
    Pour TPIR = 1 Pour iListCount

     "Ne comparez pas contre vous-même.
    »Pour spécifier une colonne différente, changer 1 au numéro de colonne.
    Si ActiveCell.Row lt; gt; Draps ("Sheet1") .Cells (TPIR, 1) Puis .Row
    «Ne comparaison des enregistrement suivant.
    Si ActiveCell.Value = Sheets ("Sheet1") .Cells (TPIR, 1) .Value Puis
    'Si l'appariement est vrai, alors supprimer la ligne.
    Draps ("Sheet1") .Cells (TPIR, 1) .Delete xlShiftUp
    "Incrémenter le compteur pour tenir compte de ligne supprimée.
    TPIR TPIR + 1 =
    End If
    End If

    Suivant TPIR
    «Aller au dossier suivant.
    ActiveCell.Offset (1, 0) .Select
    Boucle
    Application.ScreenUpdating = True
    MsgBox "Fait!"
    End Sub

  3. Cliquez "Fichier" et puis "Fermer et retourner à Microsoft Excel." Une fois retourné à Excel, accédez à l'option Outils dans la barre d'outils, puis sur Macros. Pour la droite, choisissez le "Macros" option. Dans la boîte de l'option macro, consultez la macro appelée DelDups_OneList. Choisir "Options" et assigner une touche de raccourci de "q." Cliquez "D'ACCORD."

  4. Cliquez "Exécutez." "Fini" apparaîtra. Les entrées en double dans la première colonne sont supprimés.

  5. Parce que vous avez configuré votre touche de raccourci pour Ctrl + q, il vous suffit de taper Ctrl + q dans l'avenir et les entrées en double dans votre première colonne de données seront supprimées.




Conseils & Avertissements








  • Autres codes macro trouver les doublons ou de supprimer des lignes en double. Voir Ressources ci-dessous pour les liens vers ces codes macro.
  • Parce que vous travaillez avec une macro qui supprime les données, sauvegarder votre document Excel avant d'appliquer la macro.

Questions connexes

» » » » Comment supprimer les doublons de macro Excel