軟體:EXCEL
版本:2010
因有同事需要 我協助寫了一個自訂函數
目的是取得不重複項目個數
Function NoDuplicateCount(範圍) '統計不重複個數
字串 = "^"
For Each cell In 範圍
If InStr(字串, cell) = 0 Then 字串 = 字串 & "^" & cell.Value
Next
If 字串 = "^" Then NoDuplicateCount = 0: Exit Function
NoDuplicateCount = Len(字串) - Len(Application.Substitute(字串, "^", "")) - 1
End Function
一開始還可順利運作 但資料一多發現就錯了
我用msgbox抓了一下 發現是因為 字串 在某處就停止了
我猜應該是VBA對於變數的容量已經到了極限
那請問類似的目的有何其他的解法呢??
謝謝