|
Suppression des doublons d'un tableau à l'aide de Visual Basic pour Applications ( VBA) dans Excel peut être déroutant si vous n'êtes pas un programmeur expérimenté VBA. Le tri et l'élimination des données dupliquées à partir d'un tableau est un processus qui nécessite un algorithme itératif assez sophistiqué mais peut facilement être accompli en suivant quelques étapes simples . Dans VBA, vous pouvez utiliser un " boucle For ... " et l'objet " Collection" de garder une trace des objets uniques dans le tableau et le processus est assez rapide en fonction de la taille de votre tableau. Instructions
1 Cliquez sur l'onglet « Développeur » et cliquez sur " Visual Basic " pour lancer la fenêtre de l'éditeur VB . Insérez un nouveau module de code en cliquant sur le menu "Insertion " et en cliquant sur "Module ".
2 créer un nouveau sous procédure et de définir trois variables que vous allez utiliser pour supprimer les doublons dans votre tableau.
RemoveDuplicates Private Sub ()
Dim strArray (5) As String
mycol As Collection
idx As long
Set mycol = nouvelle Collection
3 Ajouter dupliquer les données de votre tableau.
strArray (0) = "bbb"
strArray (1) = "bbb" Photos strArray (2) = "ccc"
strArray (3) = " DDD "
strArray (4) = " DDD "
4 Copier et coller le code suivant pour créer une " boucle For ... " et parcourir chaque élément du tableau pour éliminer les doublons :
On Error Resume Next
idx = LBound ( strArray ) à LimiteSup ( strArray )
myCol.Add 0, CStr ( strArray ( IDX ) )
Si Err Puis
strArray ( IDX ) = vide < br > dups = dups + 1
Err.Clear
ElseIf DUP Puis
strArray ( IDX - dups ) = strArray ( IDX )
strArray ( IDX ) = vide
End If
Suivant
5 Imprimer chaque élément du tableau dans la fenêtre Exécution pour montrer que les doublons ont été supprimés.
idx = LBound ( strArray ) à LimiteSup ( strArray )
Debug.Print strArray ( IDX )
Suivant
6 type "Fin sous " pour mettre fin à votre intérieur. Cliquez sur le menu "Exécuter" et cliquez sur le bouton de lecture pour lancer le programme.
|
