软件: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对于变量的容量已经到了极限
那请问类似的目的有何其他的解法呢??
谢谢