Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie okna VB Editor . Vložte nový kód modul kliknutím na menu " Vložiť " a kliknutím na " modul " .
2
Vytvoriť nový čiastkové postup a definujú tri premenné , ktoré budete používať na odstránenie duplicít v poli .
Private Sub RemoveDuplicates ( )
Dim strArray ( 5 ) As String Dim
MyCol Ako Collection
Dim idx As Long
Set MyCol = nová kolekcia
3
Pridať duplicitné dáta do poľa . klipart
strArray ( 0 ) = " bbb "
strArray ( 1 ) = " bbb "
strArray ( 2 ) = " ccc "
strArray ( 3 ) = " ddd "
strArray ( 4 ) = " ddd "
4
skopírujte a vložte nasledujúci kód na vytvorenie " Pre ... Loop " a slučku cez každý prvok poľa odstrániť všetky duplicitné :
On Error Resume Next
idx = LBound ( strArray ) Pre UBound ( strArray )
myCol.Add 0 , CStr ( strArray ( idx ) )
Ak Err Potom
strArray ( idx ) = Empty
DUPS = DUPS + 1
err.Clear
ElseIf DUPS Potom
strArray ( idx - DUPS ) = strArray ( idx )
strArray ( idx ) = Empty
End If
Ďalšie
5
Vytlačiť každý prvok v poli do okna Immediate ukázať , že boli odstránené duplicity .
idx = LBound ( strArray ) Pre UBound ( strArray )
Debug.Print strArray ( idx )
Ďalšie
6
typu " End sub " na konci vášho postupu . Kliknite na ponuku " Spustiť " a kliknite na tlačidlo Play pre spustenie programu .
Copyright © počítačové znalosti Všetky práva vyhradené