Avatar billede lasse666 Novice
20. marts 2019 - 15:50 Der er 1 kommentar og
1 løsning

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
Avatar billede excelent Ekspert
20. marts 2019 - 18:00 #1
Sub Remove_Duplicates()

Dim Coll As New Collection
Dim Col2 As New Collection

Coll.Add "Benin"
Coll.Add "Cameroon"
Coll.Add "Gabon"
Coll.Add "Gabon"
Coll.Add "Ivory Coast"

On Error Resume Next
For Each c In Coll
Col2.Add c, CStr(c)
Next

For Each c In Col2
MsgBox c
Next

End Sub
Avatar billede lasse666 Novice
21. marts 2019 - 08:45 #2
Tusind tak!!! :D
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester