Fjern dupletter fra Collection
Er der en simpel måde at fjerne dupletter på? Jeg har disse to metoder i tankerne, men jeg har hidtil ikke fundet en enkel måde at gøre det på?Metode 1: Fjerne dupletter fra ekisterende Collection
Metode 2: Tilføje Collection items til en ny kollektion og kun inkludere unikke forekomster?
Sub Remove_Duplicates()
Dim Coll As New Collection
Dim i As Integer
Dim itm
Set Coll = New Collection
'Add item
Coll.Add "Benin"
Coll.Add "Cameroon"
Coll.Add "Gabon"
Coll.Add "Gabon"
Coll.Add "Ivory Coast"
For Each itm In Coll
'kode enten til metode 1 eller 2
Next
End Sub