排序

wkxxxr

单元格内文本出现次数排列，3个以上重复的筛掉不排序

limonet

新函数嵌套：=TAKE(SORT(HSTACK(MAP(C2:C12,LAMBDA(x,IF(LEN(x)-LEN(SUBSTITUTE(x,"e",""))>=3,"",x))),MAP(C2:C12,LAMBDA(x,LEN(x)-LEN(SUBSTITUTE(x,"e",""))))),2,1),,1)

wkxxxr

limonet 发表于 2024-3-11 14:43
新函数嵌套：=TAKE(SORT(HSTACK(MAP(C2:C12,LAMBDA(x,IF(LEN(x)-LEN(SUBSTITUTE(x,"e",""))>=3,"",x))),MAP ...

谢谢！这个是什么版本函数

limonet

M365，好像最新版WPS也支持。

ykcbf1100

VBA版，供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.11
   
2.     r = Cells(Rows.Count, "c").End(3).Row
   
3.     arr = [c1].Resize(r, 1)
   
4.     ReDim brr(1 To UBound(arr), 1 To 2)
   
5.     For i = 2 To UBound(arr)
   
6.         st = arr(i, 1)
   
7.         charCount = 0
   
8.         For x = 1 To Len(st)
   
9.             If Mid(st, x, 1) = "e" Then
   
10.                 charCount = charCount + 1
    
11.             End If
    
12.         Next x
    
13.         If charCount < 3 Then
    
14.             m = m + 1
    
15.             brr(m, 1) = charCount
    
16.             brr(m, 2) = st
    
17.         End If
    
18.     Next
    
19.     [a2:b1000] = ""
    
20.     [a2].Resize(m, 2) = brr
    
21.     [a2].Resize(m, 2).Sort [a2], 1
    
22.     Columns(1) = ""
    
23.     MsgBox "OK！"
    
24. End Sub
    
25. 
    

复制代码

cnmlgb9998

PQ!!!!!!!!!!!!!!!!!

LIUZHU

LIUZHU

既然Office的版本是WPS，就可以用WPS宏