求助公式，按顺序提取数字

gjy631101

要求将B列数值中，提取前4位数字（不考虑小数点），如有重复则只算1位，提足4个不重复数字就可。
求公式.rar (22.53 KB, 下载次数: 17)

2019-3-17 18:18 上传

点击文件名下载附件

office8424

Sub dfdf()
For i = 3 To 5
Cells(i, 4) = dfd(Cells(i, 2))
Next
End Sub


Function dfd(dd)
Set d = CreateObject("scripting.dictionary")
dd = CStr(Replace(dd, ".", ""))
'arr = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
For i = 1 To 100
aa = Mid(dd, i, 1)
If d.Count = 4 Then Exit For
If d.exists(aa) Then
GoTo 10
Else
d(aa) = i
End If
10: Next
For j = 0 To 3
dfd = dfd & d.keys()(j)
Next
Set d = Nothing
End Function
函数不会只有代码

micch

1. =MID(SUM(RIGHT(SMALL(FIND(ROW($1:$10)-1,B3&1/17)/1%+ROW($1:$10)-1,{1;2;3;4}))*10^-{1;2;3;4})&0,3,4)

复制代码

数组，下拉。

首先你得确定存在4个不同的数字，如果不够4个后面的就是凑的了

gjy631101

office8424 发表于 2019-3-17 19:08
Sub dfdf()
For i = 3 To 5
Cells(i, 4) = dfd(Cells(i, 2))

谢谢大神。

gjy631101

micch 发表于 2019-3-17 19:24
数组，下拉。

首先你得确定存在4个不同的数字，如果不够4个后面的就是凑的了

先表示感谢

mxqchina

1. =SUM(MOD(SMALL(FIND(MID("0123456789",ROW($1:$10),1),B3&"0123456789")*10000+ROW($1:$10)-1,ROW($1:$4)),10000)*10^(4-ROW($1:$4)))

复制代码

数组公式，远古公式。

dipperrrr

1. =SUM(MOD(SMALL(IFERROR(FIND(ROW($1:$10)-1,B3),99)/1%+ROW($1:$10)-1,ROW($1:$4)),100)*10^{3;2;1;0})

复制代码

Datous

数组公式。

1. =SUM(MOD(SMALL(FIND(ROW($1:$10)-1,B3&1/17)*10+ROW($1:$10)-1,{1,2,3,4}),10)*10^{3,2,1,0})

复制代码

micch

为什么都不考虑0.几的数呢？

满坛皆为吾师

预览通道函数UNIQUE，C3下拉，以后这方面的脑子越动越少了

1. =LEFT(CONCAT(UNIQUE(MID(B3*10^9,ROW($1:$15),1))),4)

复制代码