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

lijian8003

AmoKat 发表于 2021-11-12 23:11
EXCEL 2010 以上支援 MODE.MULT

若不支援時，只好用自定函數處理

谢谢！出现 xR 变量未定义，肯望指教

lijian8003

cutecpu 发表于 2021-11-12 23:29
自定义函数

Function mult(rng)

谢谢！您的函数结果正确，只是速度太慢。看看自定义的速度如何

cutecpu

lijian8003 发表于 2021-11-12 23:45
谢谢！您的函数结果正确，只是速度太慢。看看自定义的速度如何

lijian8003

cutecpu 发表于 2021-11-13 01:59

谢谢！速度提升不少。如果输出数据为0,1,16  需要写为000,001,016  如何修改代码？

cutecpu

lijian8003 发表于 2021-11-13 02:16
谢谢！速度提升不少。如果输出数据为0,1,16  需要写为000,001,016  如何修改代码？

增加红色代码

Function mult(rng)
   Set d = CreateObject("Scripting.Dictionary")
   For Each r In rng
      For Each v In Split(r, ",")
         v = Format(v, "000")
         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

hcm19522

2007版 C2:C4{=IFERROR(MODE(IF((COUNTIF(C$1:C1,TRIM(MID(SUBSTITUTE(A$1:A$3,",",REPT(" ",99)),COLUMN(A:I)*99-98,99)))=0)*(TRIM(MID(SUBSTITUTE(A$1:A$3,",",REPT(" ",99)),COLUMN(A:I)*99-98,99))<>""),TRIM(MID(SUBSTITUTE(A$1:A$3,",",REPT(" ",99)),COLUMN(A:I)*99-98,99))*1)),"")

數字限制  最多26  改COLUMN(A:Z)的 Z  可增大 D2:D4{=IFERROR(MODE(IF(ISNUMBER(FIND(","&COLUMN(A:Z)&",",","&A$1:A$3&","))*(COUNTIF(D$1:D1,COLUMN(A:Z))=0),COLUMN(A:Z))),"")

林木水

AmoKat 发表于 2021-11-12 23:11
EXCEL 2010 以上支援 MODE.MULT

若不支援時，只好用自定函數處理

你用代码肯定简单
把所有的内容变成数组
用vba.split
再把所有的数组重新组成一个数组
然后就简单了

林木水

我这个方法不是最好的，但是比较简单容易懂
1.分列，根据"，"分成几列数据
2.用IF函数，如果目标区域=""，则为"",重新组成一个数组内容
3.用Mode函数取上一步数组里面的众数，也就是出现最多那个
4.重复第2步，只不过这个时候判断区域是第2步结果数组，是否等于第3补那个众数，如果等于，则为"",重新组成一个新数组
5.同理第三个值

说明 ：因为第三个值都是只出现1次，没有更少次数的，所以显示错误。

AmoKat

lijian8003 发表于 2021-11-12 23:33
谢谢！出现 xR 变量未定义，肯望指教

你的第一列應該有下列語句，變數需要強制宣告，拿掉就可以，或將變數宣告一下
Option Explicit  '強制宣告

我只會寫短程式，沒有習慣宣告變數。

自定函數demo.rar (17.31 KB, 下载次数: 2)

2021-11-13 21:31 上传

点击文件名下载附件

AmoKat

林木水 发表于 2021-11-13 13:04
你用代码肯定简单
把所有的内容变成数组
用vba.split

就EXCEL版本缺少文字組數處理函數，用函數處理就是勉強可行，需要更多輔助格來處理，
硬要一式到位就是勉強。

其實就EXCEL 使用 VBA 的 SPLIT、JOIN、字典 等來定義自訂函數，就能克服舊版程式很多問題。