Excel表如何通過VB 獲取壹列中有哪些不重復的項？

代碼及註釋如下：

Sub main()

Set dic = CreateObject("scripting.dictionary") '後期綁定字典

arr = Range("A1:A" & Range("A65536").End(3).Row) '將A列非空單元格全部復制給數組arr

For i = 1 To UBound(arr) '循環

dic(arr(i, 1)) = "" '將A列數組全部放到字典中

Next i

[b1].Resize(dic.Count, 1) = Application.Transpose(dic.keys) '將字典中的條目（即A列不重復值）放到B列中

End Sub