Home > How-To Library > Arrays, Collections, Lists

How to eliminate Duplicates in an Array (assumes prior sort)

****************************************************************
*       © 2007 CodeItBetter http://www.codeitbetter.com        *
*          This notice MUST stay intact for legal use          *
****************************************************************

OldSelection = ExtractionArray(1) 'This assumes option Base 1
For i = 2 To UBound(ExtractionArray())
    If ExtractionArray(i) = OldSelection Then
        ExtractionArray(i) = ""
        GoTo LOOP_NEXT
    Else
        OldSelection = ExtractionArray(i)
        GoTo LOOP_NEXT
    End If
LOOP_NEXT:
Next I

If you would like to submit your code here please us. Do not forget to mention your name. We are always thankful to each and everyone of you who submitted their code here.