Populate a List Box With Unique Values from a List

[apgriffiths]

I have a spreadsheet that has whole numbers in. MAny of these are repeats. I need to be able to populate a list box with the unique values from the list. How do i go about this in VB?

Any help please.

Antony

 

[northwolves]

maybe a dictionary Object works for you.

Private Sub UserForm_Initialize()
Dim dic As Object, i As Long, arr
Set dic = CreateObject("Scripting.Dictionary")
arr = Sheet1.[a1:a10000]
For i = 1 To UBound(arr)
If Not dic.exists(arr(i, 1)) Then dic.Add arr(i, 1), ""
Next
UserForm1.ListBox1.List = dic.keys
Set dic = Nothing
End Sub

best Regards
Northwolves