Het verwijderen van dubbele gegevens uit een array met behulp van Visual Basic for Applications ( VBA ) in Excel kan verwarrend zijn als je niet een ervaren VBA programmeur . Het sorteren en verwijderen van dubbele gegevens uit een array is een iteratief proces dat een vrij geavanceerd algoritme nodig , maar kan gemakkelijk worden bereikt door het volgen van een paar eenvoudige stappen . In VBA kunt u een "For ... Loop" en de " Collection" -object gebruiken om bij te houden van unieke items in de array te houden en het proces is vrij snel , afhankelijk van de grootte van je array. Instructies
1 Klik op het tabblad " Developer " en klik op " Visual Basic " om het venster VB editor te starten . Plaats een nieuwe code module door te klikken op het menu "Invoegen " en klik op " Module . " Kopen van 2 Maak een nieuwe sub- procedure en definieert drie variabelen die je gaat gebruiken om duplicaten te verwijderen in uw array .
Private Sub removeDuplicates ( ) Dim strArray
( 5 ) als Koord Dim Mycol
Zoals Collection Dim idx
As Long
Set Mycol = nieuwe Collectie
3 Voeg gegevens aan uw array dupliceren . strArray
( 0 ) = " bbb " strArray ( 1 ) =
" bbb " strArray
( 2 ) = " ccc " strArray
( 3 ) = " ddd " strArray
( 4 ) = " ddd "
4 Kopieer en plak de volgende code om een "For ... Loop" en lus door elk element van de array om duplicaten te verwijderen maken:
On Error Resume Next
idx = LBound ( strArray ) Om UBound ( strArray ) myCol.Add
0 , CStr ( strArray ( IDX ) ) op Als Err dan strArray
( idx ) = Empty < br dups > = dups + 1 Err.Clear ElseIf
dups strArray dan
( IDX - dups ) = strArray ( IDX ) op strArray ( idx ) = Empty End
Als
Volgende
5 Print elk element in de array om het venster direct om die duplicaten tonen zijn verwijderd . < br > idx = LBound ( strArray ) Om UBound ( strArray ) Debug.Print strArray
( IDX ) op Volgende
6 Type " End sub "om uw procedure te beëindigen . Klik op het menu " Run" en klik op de play knop om het programma uit te voeren .
|
