Unique values from visible range to list box

[Senthil Murugan]

Good Afternoon everyone

Can anybody know the code for populating Unique Values from Visible Range ( result to be populated in User form List box1 )

Thanks in advance

 

[JEC]

with this line: .item(it.value) = empty

the keys are always unique in the dictionary. Everytime an empty value is assigned to the key.

 

[JEC]

maybe this will help you understand

sub test()
 dim dic, it
 set dic = createobject("scripting.dictionary")
 for each it in array("one", "two", "two", "two",  "three", "one", "five")
  dic(it) = empty
 next
 msgbox join(.keys,vblf)
end sub