[算表] Excel VBA變數字元限制
軟體: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對於變數的容量已經到了極限
那請問類似的目的有何其他的解法呢??
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 175.98.114.28
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1548127373.A.705.html
→
01/22 11:47,
5年前
, 1F
01/22 11:47, 1F
→
01/22 11:47,
5年前
, 2F
01/22 11:47, 2F
→
01/22 12:05,
5年前
, 3F
01/22 12:05, 3F
→
01/22 12:06,
5年前
, 4F
01/22 12:06, 4F
→
01/22 12:51,
5年前
, 5F
01/22 12:51, 5F