[已解决]单元格内有多个数值 如何统计区域内出现次数最多

lijian8003

A1单元格内有数值 0,1,2,3,15
A2单元格有数值 1,2,9
A3单元格内有数值 8,11
恳请指教，如何统计A1：A3区域内出现次数最多的数值 1,2

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-12 23:29

自定义函数

Function mult(rng)
   Set d = CreateObject("Scripting.Dictionary")
   For Each r In rng
      For Each v In Split(r, ",")
         d(v) = d(v) + 1
      Next
   Next
   Max = Application.Max(d.items())
   For Each Key In d.keys()
      If d(Key) < Max Then d.Remove Key
   Next
   mult = Join(d.keys(), ",")
End Function

跳转到最佳答案楼层

小|树

=MODE.MULT(IFERROR(--TRIM(MID(SUBSTITUTE(A1:A3,",",REPT(" ",99)),COLUMN(A:Z)*99-98,99)),""))

cutecpu

=TEXTJOIN(",",,MODE.MULT(IF(1-ISERR(FIND(","&COLUMN(A:ZZ)-1&",",","&A1:A3&",")),COLUMN(A:ZZ)-1)))

lijian8003

小|树 发表于 2021-11-12 21:42
=MODE.MULT(IFERROR(--TRIM(MID(SUBSTITUTE(A1:A3,",",REPT(" ",99)),COLUMN(A:Z)*99-98,99)),""))

谢谢！

lijian8003

cutecpu 发表于 2021-11-12 21:50
=TEXTJOIN(",",,MODE.MULT(IF(1-ISERR(FIND(","&COLUMN(A:ZZ)-1&",",","&A1:A3&",")),COLUMN(A:ZZ)-1)))

谢谢！但出现了#NAME?  为何？

cutecpu

lijian8003 发表于 2021-11-12 21:57
谢谢！但出现了#NAME?  为何？

可能版本不支援 TEXTJOIN，改用区域数组公式

lijian8003

cutecpu 发表于 2021-11-12 22:02
可能版本不支援 TEXTJOIN，改用区域数组公式

加入数据后函数出错，问题在哪，恳请指教

AmoKat

EXCEL 2010 以上支援 MODE.MULT

若不支援時，只好用自定函數處理
Function xMODE(R)
    Dim a(1 To 10000)
    For Each xR In R
        For Each c In Split(xR, ",")
            n = n + 1: a(n) = Val(c)
        Next
    Next
    b = Application.Frequency(a, a)
    max_b = Application.Max(b)
    For i = 1 To UBound(b)
        If b(i, 1) = max_b Then xM = xM & "," & a(i)
    Next
    xMODE = Mid(xM, 2)
End Function

cutecpu

lijian8003 发表于 2021-11-12 22:58
加入数据后函数出错，问题在哪，恳请指教

cutecpu

自定义函数

Function mult(rng)
   Set d = CreateObject("Scripting.Dictionary")
   For Each r In rng
      For Each v In Split(r, ",")
         d(v) = d(v) + 1
      Next
   Next
   Max = Application.Max(d.items())
   For Each Key In d.keys()
      If d(Key) < Max Then d.Remove Key
   Next
   mult = Join(d.keys(), ",")
End Function