求一个公试。统计一下区域里出现3次的数。后排序出来

zxjcn

求一个公试。统计一下区域里出现3次的数。然后排序出来，谢谢





Book1.rar (116.05 KB, 下载次数: 16)

2024-8-17 21:14 上传

点击文件名下载附件

良良

=TEXTJOIN("、",1,SORT(IF(COUNTIF($A1:$T3,UNIQUE(TOCOL($A1:$T3)))=3,UNIQUE(TOCOL($A1:$T3)),"")))

sandays

=SORT(UNIQUE(TOROW(IF(COUNTIF(A1:T3,A1:T3)=3,A1:T3,a),2),1),,,1)

zxjcn

良良 发表于 2024-8-17 21:59
=TEXTJOIN("、",1,SORT(IF(COUNTIF($A1:$T3,UNIQUE(TOCOL($A1:$T3)))=3,UNIQUE(TOCOL($A1:$T3)),"")))

您好，我粘贴表格表显示错误  当前所使用的函数在EXCEL里表无效，

zxjcn

sandays 发表于 2024-8-17 22:11
=SORT(UNIQUE(TOROW(IF(COUNTIF(A1:T3,A1:T3)=3,A1:T3,a),2),1),,,1)

显示不出来结果。只有个公试。　　用三键也不行。

sandays

zxjcn 发表于 2024-8-18 08:02
显示不出来结果。只有个公试。　　用三键也不行。

分列。
修改单元格格式

基本知识还是要知道一点点的。

高山磐石

=TRANSPOSE(LET(AR,OFFSET(A1,0,0,3,20),V,SORT(TOCOL(AR)),UNIQUE(CHOOSECOLS(FILTER(HSTACK(V,IF(COUNTIF(AR,SORT(AR))=3,1,"")),IF(COUNTIF(AR,V)=3,1,"")<>""),1))))

tomslee

看你的截图，excel版本太老了，楼上几位的公式你这都用不了，像unique，torow，tocol等函数是新版本才支持的。感觉还是别为难公式了，用数据透视表或者VBA好点，推荐VBA，透视表工作量还是有点大。
这是一个自定义函数，把代码粘贴到编辑器后，回到表格，在一个单元格里输入比如=ListTriplicateNumbers(A1:T3)-->输入=lis软件会自动提示的，就得到结果7, 31, 26, 9, 32, 30, 18，结果未排序，VBA排序太麻烦了，剩这点工作量手动很容易完成了。

1. Function ListTriplicateNumbers(rng As Range) As String
   
2.     Dim dict As Object
   
3.     Set dict = CreateObject("Scripting.Dictionary")
   
4.     Dim cell As Range
   
5.     Dim output As String
   
6.     Dim separator As String
   
7.       
   
8.     ' 初始化分隔符为空，之后在每个数字前添加逗号
   
9.     separator = ""
   
10.       
    
11.     ' 遍历指定范围
    
12.     For Each cell In rng
    
13.         If IsNumeric(cell.Value) Then
    
14.             ' 检查当前值是否在字典中
    
15.             If dict.exists(cell.Value) Then
    
16.                 ' 如果在，则增加计数
    
17.                 dict(cell.Value) = dict(cell.Value) + 1
    
18.             Else
    
19.                 ' 如果不在，则添加到字典中并设置计数为1
    
20.                 dict(cell.Value) = 1
    
21.             End If
    
22.         End If
    
23.     Next cell
    
24.       
    
25.     ' 遍历字典，找出计数为3的项
    
26.     Dim key As Variant
    
27.     For Each key In dict.keys
    
28.         If dict(key) = 3 Then
    
29.             ' 拼接结果字符串，数字之间用逗号分隔
    
30.             output = output & separator & key
    
31.             separator = ", "
    
32.         End If
    
33.     Next key
    
34.       
    
35.     ' 赋值给函数结果
    
36.     ListTriplicateNumbers = output
    
37. End Function
    

复制代码

leepoison

=TEXTJOIN("，",1,IF(FREQUENCY(SORT(TOCOL(A1:T3)),SORT(TOCOL(A1:T3)))=3,SORT(TOCOL(A1:T3)),""))

沈默00

=TOROW(SORT(UNIQUE(TOCOL(IF(COUNTIF(A1:T3,A1:T3)=3,A1:T3,默),3))))