关于文本数组的统计和排序，感谢帮忙！！！

ali1688

从A1-AB1中统计得到数字排序并显示次数，相同次数的数字则按照从小到大排序，数字在前统计的次数在后，例如出现次数相同的（都出现25次）：5、1、9则AC1排序是1(25) 5(25) 9(25)............................. 新建 zip Archive.zip (25.97 KB, 下载次数: 15)

2024-10-15 16:14 上传

点击文件名下载附件

我走我流

=TEXT(SUM((ROUND(IFERROR(MOD(LARGE(COUNTIF($A1:$AB1,"*"&ROW($1:$10)-1&"*")/1%+1/ROW($1:$10),COLUMN(A1)),10^{4,0})^{1,-1},1)-{0,1},))/10^{2,-2}),"0(00)")

autohotey

供参考

1. 
   
2. Sub 整合()
   
3.     Dim dataRange As Range
   
4.     Set dataRange = Range("A1:AB1")
   
5.     Dim dict As Object
   
6.     Set dict = CreateObject("Scripting.Dictionary")
   
7.     Dim cell As Range
   
8.     For Each cell In dataRange
   
9.         If IsNumeric(cell.Value) Then
   
10.             If dict.exists(cell.Value) Then
    
11.                 dict(cell.Value) = dict(cell.Value) + 1
    
12.             Else
    
13.                 dict.Add cell.Value, 1
    
14.             End If
    
15.         End If
    
16.     Next cell
    
17.     Dim keys() As Variant
    
18.     keys = dict.keys
    
19.     Dim values() As Variant
    
20.     values = dict.items
    
21.     Dim i As Long, j As Long
    
22.     Dim tempKey As Variant
    
23.     Dim tempValue As Long
    
24.     For i = LBound(keys) To UBound(keys) - 1
    
25.         For j = i + 1 To UBound(keys)
    
26.             If values(i) < values(j) Or (values(i) = values(j) And keys(i) > keys(j)) Then
    
27.                 tempKey = keys(i)
    
28.                 keys(i) = keys(j)
    
29.                 keys(j) = tempKey
    
30.                 tempValue = values(i)
    
31.                 values(i) = values(j)
    
32.                 values(j) = tempValue
    
33.             End If
    
34.         Next j
    
35.     Next i
    
36.     Dim outputStr As String
    
37.     For i = LBound(keys) To UBound(keys)
    
38.         outputStr = outputStr & keys(i) & "(" & values(i) & ") "
    
39.     Next i
    
40.     Range("AC1").Value = outputStr
    
41. End Sub
    

复制代码

ali1688

我走我流 发表于 2024-10-15 16:42
=TEXT(SUM((ROUND(IFERROR(MOD(LARGE(COUNTIF($A1:$AB1,"*"&ROW($1:$10)-1&"*")/1%+1/ROW($1:$10),COLUMN(A ...

依次统计出10个数字的次数，例如1(25) 5(25) 9(25) 3(22) 4(22) 7(22) 2(21) 6(21) 8(21) 0(20)

solextrade

=TEXTJOIN(" ",,TEXT(MOD(LARGE(COUNTIF(A1:AB1,"*"&ROW($1:$10)-1&"*")*10^6+(11-ROW($1:$10))*10^4+(ROW($1:$10)-1)*10^2+COUNTIF(A1:AB1,"*"&ROW($1:$10)-1&"*"),ROW($1:$10)),10^4),"0(00)"))

hxj119

1. =LET(a,TOCOL(REGEXP(CONCAT(A1:AB1),".")),b,SORT(GROUPBY(a,a,COUNTA,,0),2,-1),TOROW(INDEX(b,,1)&"("&INDEX(b,,2)&")"))

复制代码

ali1688

solextrade 发表于 2024-10-15 17:03
=TEXTJOIN(" ",,TEXT(MOD(LARGE(COUNTIF(A1:AB1,"*"&ROW($1:$10)-1&"*")*10^6+(11-ROW($1:$10))*10^4+(ROW( ...

大哥就是牛，感谢大哥无私的帮助

ali1688

hxj119 发表于 2024-10-15 17:06

感谢感谢感谢感谢感谢感谢感谢

我要成为专家

1. =LET(k,COLUMN(A:J)-1,p,CONCAT(A1:AB1),s,LEN(p)-LEN(SUBSTITUTE(p,k,"")),SORTBY(k&"("&s&")",s,-1))

复制代码