请各位大师帮忙，提取重复数字

qwbz19

tmplinshi 发表于 2024-3-18 17:46

多感谢！ 公式这多！

edwin11891

题目是提取有重复的数字：
=LET(s,UNIQUE(MID(F7,SEQUENCE(LEN(F7)),1),,1),t,TEXTSPLIT(F7,s),m,CONCAT(t),CONCAT(UNIQUE(MID(m,SEQUENCE(LEN(m)),1))))

hxj119

=CONCAT(UNIQUE(MID(A1,ROW($1:$50),1)))

swl4561255

1. Function Jast(mys As String)
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For i = 1 To Len(mys)
   
4. d(Mid(mys, i, 1)) = ""
   
5. Next
   
6. k = d.keys
   
7. Jast = Join(k, "")
   
8. Set d = Nothing
   
9. End Function
   

复制代码

自定义函数。

edwin11891

miaojohn45 发表于 2024-3-18 18:00
想知道08621怎么重复了。

看了楼主连发两贴，体会其实际本意就是提取唯一值，所以基本上一个unique函数就够了，这就是3楼的答案已经就是标准的、也是很简洁的答案了。
题意含糊不清，示例也没有叙及问题本质，导致大家理解偏差。