Chcę usunąć duplikaty z mojej listy

Out of category
1

Witam

Chciałbym usunąć duplikaty z mojej listy, ale mam błąd , którego nie mogę rozwiązać.

Usuwa mnie z niego, ale po pewnym czasie błądzi.

2

Witam. Spróbuj tego:

For i = 0 To Fournisseur.ListCount - 1
    For j = Fournisseur.ListCount - 1 To i + 1 Step -1
        If Fournisseur.List(j) = Fournisseur.List(i) Then Fournisseur.RemoveItem j
    Next j
Next i

 

2 polubienia