代碼及註釋如下:
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