軟體:excel
版本:2016
hi,小弟前兩天有發問如何用access 顯示重複次數，用來管理歌曲清單的(兩萬多筆)
當初是因為excel 函數(count if) 計算太吃資源，爬文可以用access 來處理
現在又覺得access 不是很直覺，因為不太會用...
反正現在試出一個方法就是用vba來檢查是否重複（如圖），跑起來也是很快速
https://imgur.com/EBq3gWS.png
現在一個問題就是，我的語法裡面，如果遇到空白的值，也會返回 "重複" 結果
程式碼如下，不知道該怎麼修改...
Sub 按鈕5_Click()
Dim Arr, xD, i&, T$, U&, TM
TM = Timer
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([K2], Cells(Rows.Count, 11).End(3))
For i = 1 To UBound(Arr)
T = Arr(i, 1): U = xD(T): Arr(i, 1) = ""
If U > 0 Then Arr(U, 1) = "重覆": xD(T) = -1: U = -1
If U < 0 Then Arr(i, 1) = "重覆"
If U = 0 Then xD(T) = i
Next i
[I2].Resize(UBound(Arr)) = Arr
MsgBox Timer - TM
End Sub