當前位置:成語大全網 - 新華字典 - Excel表如何通過VB 獲取壹列中有哪些不重復的項?

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