【將指定範圍內不重複的資料加入ListBox】
'取得該列之不重複資料
Dim collData As New Collection, cel As Range, itm
On Error Resume Next
For Each cel In ActiveSheet.Range(Cells(s_rowNo, colNo), Cells(e_rowNo, colNo))
If cel <> "" Then collData.Add cel.Value, CStr(cel.Value)
Next
'排序完塞入資料
Me.ListBox1.Clear
On Error GoTo 0
For Each itm In collData
Me.ListBox1.AddItem itm
Next
相關課程：
章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※