作者cutekid (可爱小孩子)
看板Office
标题Re: [算表] VBA 求阵列中重复次数最多的值
时间Wed Aug 14 13:58:07 2019
参考解法:
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://webptt.com/cn.aspx?n=bbs/Office/M.1565762292.A.B98.html
※ 编辑: cutekid (1.168.25.150 台湾), 08/14/2019 14:34:44