參考解法: https://rextester.com/edit/SOSFS77933
執行畫面: https://imgur.com/a/dzuXa6u
參考網頁:
1. https://bit.ly/30cJSyU - 「在 VBA 使用 Dictionary 物件」
2. https://bit.ly/2HjA2En - 「WorksheetFunction.Mode error」
※ 引述《genow ()》之銘言：
: 軟體:EXCEL
: 版本:2010
: 您好:
: 我有個三維陣列 A(5,3,999)
: 如果我想知道A(5,3,1:999)中重複次數最多的值是那個
: 該如何利用VBA求得
: 我得想法是利用MODE函數
: strmax=WorksheetFunction.Mode(mystr(5,3, 1:999))
: 但是他在1:999這個地方顯示語法錯誤
: 請問我該如何表達才正確 謝謝
: ---------------------------
: 更新
: ---------------------------
: Sub TEST()
: len1 = WorksheetFunction.CountA(Range("'工作表1'!A:A"))
: Dim mystr(999)
: k=1
: For i = 2 To len1
: len2 = Len(工作表1.Cells(i, 1))
: for j = 1 to len2
: mystr(K) = Mid(工作表1.Cells(i, 1), j, 2)
: K = K + 1
: Next
: strmax = WorksheetFunction.Mode(mystr) <--出現錯誤
: MsgBox strmax
: Next
: End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.168.25.150 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1565762292.A.B98.html
※ 編輯: cutekid (1.168.25.150 臺灣), 08/14/2019 14:34:44