利用EXCEL VBA將一列資料中不重複的資料讀取到陣列中

Sub test()
    Dim Dic, Arr
    Dim i As Long, r As Long
    Dim Str As String
    r = Sheet1.Range("A65536").End(xlUp).Row
    If r = 2 Then Exit Sub      '如果第一列沒有資料那麼退出程式
    Set Dic = CreateObject("scripting.dictionary")  '建立字典物件
    For i = 2 To r              '將第一列資料新增到字典的key值中
        Dic(CStr(Cells(i, 5))) = ""
    Next
    Arr = Dic.keys              '返回字典key的陣列
    Set Dic = Nothing           '銷燬物件
    Str = Join(Arr, ",")        '將陣列中的內容顯示為一字串
    MsgBox Str
End Sub