|
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 entrées en double pour 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, la suppression des entrées dupliquées dans les colonnes ou les lignes est automatiquement pas évident. Instructions Comment construire une macro pour supprimer les doublons première colonne
1 Accédez à Outils de la barre d'outils en bas de Macro . A droite , trouver le Visual Basic Editor et clic gauche dessus. Une fois dans l'éditeur Visual Basic , trouver le menu déroulant qui vous permet de créer un formulaire utilisateur , Module ou Module de classe . Choisissez " Module ".
2 Copiez et collez le texte suivant dans la boîte d'édition qui s'ouvre : DelDups_OneList Sub ( ) iListCount As IntegerDim TPIR As Integer ' éteindre l'écran mise à jour pour accélérer macro.Application . ScreenUpdating = False ' obtenir le nombre d'enregistrements à rechercher through.iListCount = Sheets (" Sheet1" ) Range (" A1: A100 " ) . . Rows.CountSheets ( "Sheet1" ) Range (" A1") Select. ». boucle jusqu'à l' fin de records.Do Jusqu'à ActiveCell = "" ' boucle à travers records.For TPIR = 1 To iListCount « ne comparez pas contre toi-même. Pour spécifier une colonne différente , changer 1 à la colonne number.if ActiveCell.Row <> Sheets (" Sheet1" ) . Cells (TPIR , 1). Rangée, ' Avez comparaison de la prochaine record.If ActiveCell.Value = Sheets ( "Sheet1" ) . Cells (TPIR , 1). Value Then ' Si match est alors supprime row.Sheets ( "Sheet1" ) . Cells (TPIR , 1). supprimer xlShiftUp ' incrément compteur pour tenir compte de row.iCtr supprimé = TPIR + 1End IfEnd IfNext TPIR 'Aller à record.ActiveCell.Offset suivante (1 , 0). SelectLoopApplication.ScreenUpdating = TrueMsgBox "Terminé ! " End Sub
3 Cliquez sur "Fichier" puis sur «Fermer et retourner à Microsoft Excel. " Une fois retourné à Excel , accédez à l'option Outils dans la barre d'outils , puis sur Macros . A droite , choisissez l'option "Macros " . Dans la boîte de l'option Macro , voir la macro appelée DelDups_OneList . Choisissez "Options" et assigner une touche de raccourci de "q ". Cliquez sur « OK ».
4 Cliquez sur "Exécuter". "Terminé" s'affiche. 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 à l'avenir et les entrées en double dans votre première colonne de données sera supprimé.
|
