Home › C_Volume2 › [Fast] Remove Duplicates From A Listbox
Advertisement
C_Volume2 Miscellaneous #70083

[Fast] Remove Duplicates From A Listbox

Richard V.
★★★★★
4.8 · Downloads: 2,341

Removes Duplicates From A Listbox. Fastest one i've seen.

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source 
Sub RemoveDuplicates(ListBox As ListBox)
Dim Col As New Collection
Dim i As Long
On Error Resume Next
If ListBox.ListCount > 1 Then
 For i = 0 To ListBox.ListCount - 1
 Col.Add ListBox.List(i), ListBox.List(i)
 Next
 ListBox.Clear
 For i = 1 To Col.Count
 ListBox.AddItem Col.Item(i)
 Next
 Set Col = Nothing
End If
End Sub
Original Comments (3)
Recovered from Wayback Machine