〔VBA〕將指定範圍內不重複的資料加入ListBox--v051

  

【將指定範圍內不重複的資料加入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/

※※ 本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※