[已解决]提取出现最多和最少数字的公式

雨夜1987

如图所示

最佳答案

月排行榜 / 总排行榜

qinqh_yl

2015-2-8 22:41

出现次数最多的数字：
=LEFT(9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),1),100)&9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),2),100)&9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),3),100),SUM(N(MAX(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))=LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))))
数组公式。
出现次数最少的数字：
=LEFT(MOD(SMALL(TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99")*100+ROW($1:$10)-1,1),100)&MOD(SMALL(TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99")*100+ROW($1:$10)-1,2),100)&MOD(SMALL(TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99")*100+ROW($1:$10)-1,3),100),SUM(N(MIN(--TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99"))=LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))))
数组公式。

跳转到最佳答案楼层

李建军

看不见我~~

李建军

看不见我！！！

李建军

{:14:}能删吗 我都做错了{:01:}

雪舞子

做了一个字符串统计自定义函数,
ZFCTJ(n,range)
n取值0~3:0次数最多字符,1次数最少字符,2字符最多次数,3字符最少次数
range 单元格




代码:

1. Function ZFCTJ(n%, rang As Range)
   
2. '---------------------------------------------------------------------
   
3. '字符串统计自定义函数
   
4. 'n取值范围 0~3:0次数最多字符,1次数最少字符,2字符最多次数,3字符最少次数
   
5. 'rang 单元格
   
6. '-------------------------------------编写:雪舞子---------------------
   
7.     Dim d As Object, ar(1), br(3), i%
   
8.     Set d = CreateObject("scripting.dictionary")
   
9.     For i = 1 To Len(rang)
   
10.         d(Mid(rang, i, 1)) = d(Mid(rang, i, 1)) + 1
    
11.     Next
    
12.    
    
13.     ar(0) = d.Items: ar(1) = d.keys
    
14.     br(2) = ar(0)(0): br(3) = ar(0)(0)
    
15.     For i = 0 To d.Count - 1
    
16.         If br(2) < ar(0)(i) Then br(2) = ar(0)(i) 'br(2)最大次数
    
17.         If br(3) > ar(0)(i) Then br(3) = ar(0)(i) 'br(3)最小次数
    
18.     Next
    
19.         
    
20.     For i = 0 To d.Count - 1
    
21.         If br(2) = ar(0)(i) Then br(0) = br(0) & ar(1)(i) 'br(0)最多次数数字
    
22.         If br(3) = ar(0)(i) Then br(1) = br(1) & ar(1)(i) 'br(1)最少次数数字
    
23.     Next
    
24.     ZFCTJ = br(n)
    
25. End Function
    

复制代码

1091126096

关注。

qinqh_yl

出现次数最多的数字：
=LEFT(9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),1),100)&9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),2),100)&9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),3),100),SUM(N(MAX(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))=LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))))
数组公式。
出现次数最少的数字：
=LEFT(MOD(SMALL(TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99")*100+ROW($1:$10)-1,1),100)&MOD(SMALL(TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99")*100+ROW($1:$10)-1,2),100)&MOD(SMALL(TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99")*100+ROW($1:$10)-1,3),100),SUM(N(MIN(--TEXT(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)),"0;;!99"))=LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))))
数组公式。

雨夜1987

qinqh_yl 发表于 2015-2-8 22:41
出现次数最多的数字：
=LEFT(9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$ ...

谢谢，公式很好用！高手！如果是数字相同按一个来计算，出现次数由多到少的顺序来排序呢？的公式怎么弄呢？比如A2=012381001001132231212在D2中如何做出10238的排序呢？

雨夜1987

雪舞子 发表于 2015-2-8 19:28
做了一个字符串统计自定义函数,
ZFCTJ(n,range)
n取值0~3:0次数最多字符,1次数最少字符,2字符最多次数,3字 ...

虽然我不懂代码，但我还是觉得你这个很厉害的！谢谢了哈！

qinqh_yl

雨夜1987 发表于 2015-2-9 12:43
谢谢，公式很好用！高手！如果是数字相同按一个来计算，出现次数由多到少的顺序来排序呢？的公式怎么弄呢 ...

将数字从多到少排序：
=LEFT(RIGHT(0&SUM((9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),COLUMN(A:J)),100))*10^(10-COLUMN(A:J))),10),SUM(N(ISNUMBER(FIND(ROW($1:$10)-1,A2)))))
数组公式。

同样，７楼第一个公式，求出现次数最多的数字公式也可简化一下：
=LEFT(RIGHT(0&SUM((9-MOD(LARGE((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))*100+10-ROW($1:$10),COLUMN(A:J)),100))*10^(10-COLUMN(A:J))),10),SUM(N(MAX(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))=LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,)))))