i = 0
Do While i <> (ListBox1.ListCount)
For j = 0 To i - 1
If ListBox1.List(i) = ListBox1.List(j) Then
ListBox1.RemoveItem i
i = i - 1
Exit For
End If
Next
i = i + 1
Loop
А в VBA это работает?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 119