Les sujets:

Les partenaires publicitaires:

Réponses populaires

Questions connexes

Les partenaires publicitaires:

Comment supprimer des lignes de tableau en double dans Excel VBA

Suppression des données en double dans un tableau en utilisant Visual Basic pour Applications (VBA) dans Excel peut être source de confusion si vous n'êtes pas un programmeur expérimenté VBA. Le tri et la suppression des données dupliquées à partir d'un tableau est un processus itératif qui nécessite un algorithme assez sophistiqué mais peut facilement être accompli en suivant quelques étapes simples. Dans VBA, vous pouvez utiliser une piste "boucle For ..." et l'objet "Collection" de garder 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 "Developer" et cliquez sur "Visual Basic" pour lancer la fenêtre VB Editor. Insérez un nouveau module de code en cliquant sur le menu "Insertion" et en cliquant sur "Module".

  2. Créer une nouvelle procédure de sous et de définir trois variables que vous allez utiliser pour supprimer les doublons dans votre tableau.

    Private Sub RemoveDuplicates ()

    Dim strArray (5) As String
    MyCol Dim Comme Collection
    Idx As Long Dim
    Réglez MyCol = Nouvelle Collection

  3. Ajouter des données en double sur votre réseau.

    strArray (0) = "bbb"
    strArray (1) = "bbb"



    strArray (2) = "CCC"
    strArray (3) = "DDD"
    strArray (4) = "DDD"

  4. Copiez et collez le code suivant pour créer une «boucle For ..." et la boucle à travers chaque élément du tableau pour éliminer les doublons:

    On Error Resume Next
    Pour idx = LBound (strArray) Pour UBound (strArray)
    myCol.Add 0, CStr (strArray (IDX))
    Si Err Puis
    strArray (IDX) = vide
    dups = dups + 1


    Err.Clear
    Puis dups ElseIf
    strArray (IDX - dups) = strArray (IDX)
    strArray (IDX) = vide
    Fin si
    Suivant

  5. Imprimer chaque élément dans le tableau à la fenêtre immédiate de montrer que les doublons ont été supprimés.

    Pour idx = LBound (strArray) Pour UBound (strArray)
    Debug.Print strArray (IDX)
    Suivant

  6. Tapez "End Sub" pour mettre fin à votre procédure. Cliquez sur le menu "Exécuter" et cliquez sur le bouton de lecture pour lancer le programme.

Questions connexes

» » » » Comment supprimer des lignes de tableau en double dans Excel VBA