Posted on August 13, 2011
1
2
3
4
5
6
7
8
9
10
11
12
| 'Arrays, Collections, Lists - How to eliminate Duplicates in an Array (assumes prior sort)
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 |