Ako odstrániť duplicitné Array riadky v Excel VBA

Odstránenie duplicitných dát z poľa pomocou jazyka Visual Basic for Applications ( VBA ) v programe Excel môže byť mätúce , ak si nie ste skúsený VBA programátor . Triedenie a odstránenie duplicitných údajov z poľa je opakujúci sa proces , ktorý si vyžaduje pomerne sofistikovaný algoritmus , ale môže byť ľahko dosiahnuť po niekoľkých jednoduchých krokoch . Vo VBA , môžete použiť " Pre ... Loop " a " Collection " objekt , ktorý chcete sledovať jedinečných položiek v poli , a tento proces je pomerne rýchly v závislosti na veľkosti vášho poľa . Pokyny dovolená 1

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 .

• Predchádzajúca strana: Ako na formát príkazu IF v programe Excel pre prázdne alebo plnené referencie 
• Ďalšia strana: Ako sa automatického vyplnenia riadkov v programe Excel