Re: [算表] 如何找2個以上的眾數(VBA)
這是網路上的 user-defined function, 用法跟 VBA 一樣,
1. Alt+F11
2. 在左邊視窗上, 按滑鼠右鍵->插入->模組
3. 在右邊視窗上, 貼上以下程式碼
4. Alt+Q
例如你的資料在 A1:A100,
然後在 B1 =moder(A1:A100) 即可
Function moder(x As Range)
Dim modes As New Collection
For Each ce In x
If WorksheetFunction.CountIf(x, ce) = _
WorksheetFunction.CountIf(x, WorksheetFunction.Mode(x)) Then
On Error Resume Next
modes.Add Item:=ce, key:=Str(ce)
End If
Next
For i = 1 To modes.Count
moder = moder & "," & modes(i)
Next i
moder = WorksheetFunction.Substitute(moder, ",", "", 1)
End Function
※ 引述《w8a82k75566 (口香糖)》之銘言：
: 軟體:
: OFFICE EXCEL
: 版本:
: 2007
: 假設今天有一組值
: 1 1 1 1 2 2 2 2 3 3 3 4 4 5 6
: 我用函數=MODE算出來答案都是1
: 請問要怎麼讓他算出2這個答案來
: 什麼方法都可以
: 只要能找出數列第2個以上的眾數
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.87.9
推
07/07 19:17, , 1F
07/07 19:17, 1F
※ 編輯: windknife18 來自: 61.229.78.115 (07/08 00:29)
→
07/08 00:30, , 2F
07/08 00:30, 2F
推
07/08 10:21, , 3F
07/08 10:21, 3F
→
07/08 10:21, , 4F
07/08 10:21, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
