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 < p > 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.