提取重复值

gykg-excel

=TEXTJOIN(,,IFERROR(IF(FIND(--MID(A2,ROW($1:$9),1),A2)=ROW($1:$9),MID(A2,ROW($1:$9),1),""),""))

静看流年RSSQ

浮生若梦~~~ 发表于 2020-5-20 13:20
=RIGHT(SUM(RIGHT(SMALL(IFERROR(FIND(ROW($1:$11)-1,A2)/1%+ROW($1:$11)-1,),ROW($1:$11)))/10^ROW($1:$ ...

一般我写这么无脑的。
=--CONCAT(UNIQUE(MID(A2,ROW($1:$99),1)))

浮生若梦~~~

静看流年RSSQ 发表于 2020-5-20 13:38
一般我写这么无脑的。
=--CONCAT(UNIQUE(MID(A2,ROW($1:$99),1)))

哎,一般人没你写的函数啊

yylucke

静看流年RSSQ 发表于 2020-5-20 13:38
一般我写这么无脑的。
=--CONCAT(UNIQUE(MID(A2,ROW($1:$99),1)))

这个公式简洁、能应对文本和数字，学习了。
平时忽略了函数UNIQUE

怀北嘉

浮生若梦~~~ 发表于 2020-5-20 13:20
=RIGHT(SUM(RIGHT(SMALL(IFERROR(FIND(ROW($1:$11)-1,A2)/1%+ROW($1:$11)-1,),ROW($1:$11)))/10^ROW($1:$ ...

好像也不对，比如35563，运行的结果是356，题主的意思应该是删除连续的重复值

102339267

我觉得楼主是用来分析体育彩票的，根本不会出现0

hcm19522

C2:C9 {=MID(TEXT(SUM(IFERROR(RIGHT(SMALL(IF(FIND(ROW($1:$10)-1,B2&1/17)<=LEN(B2),FIND(ROW($1:$10)-1,B2&1/17)/1%+ROW($1:$10)-1),ROW($1:$10)),2)*10^-ROW($1:$10),)),"0."&REPT(0,COUNT(FIND(ROW($1:$10)-1,B2)))),3,9)

E2:N9 {=IFERROR(MID($B2,SMALL(IF(FIND(ROW($1:$10)-1,$B2&1/17)<=LEN($B2),FIND(ROW($1:$10)-1,$B2)),COLUMN(A1)),1)&F2,"")

wshcw

低版本（数组）公式
=MID(SUM((0&MID(A2,SMALL(FIND(ROW($1:$10)-1,A2&5^19),ROW($1:$10)),1))/10^ROW($1:$10))&"00",3,COUNT(FIND(ROW($1:$10)-1,A2)))
2019新函数（数组）公式（两个）：
=CONCAT(MID(A2,SMALL(FIND(ROW($1:$10)-1,A2&5^19),ROW($1:$10)),1))
=TEXTJOIN(,1,MID(A2,SMALL(FIND(ROW($1:$10)-1,A2&5^19),ROW($1:$10)),1))

wshcw

VBA法：
================================================
Function 单元格字符去重(Rng, Optional F As Boolean)
'第二参数为1时，从左至右去重，为0或省略时，从右至左去重。
'Dim dic As New Dictionary
        If Rng = "" Then 单元格字符去重 = "": Exit Function
Set dic = CreateObject("Scripting.Dictionary")
If Not F Then
        For i = Len(Rng) To 1 Step -1
            If Not dic.Exists(Mid(Rng, i, 1)) Then
                dic(Mid(Rng, i, 1)) = ""
                单元格字符去重 = 单元格字符去重 & Mid(Rng, i, 1)
            End If
        Next
    Else
        For i = 1 To Len(Rng)
            If Not dic.Exists(Mid(Rng, i, 1)) Then
                dic(Mid(Rng, i, 1)) = ""
                单元格字符去重 = 单元格字符去重 & Mid(Rng, i, 1)
            End If
        Next
    End If
End Function
================================================
公式：
=单元格字符去重(A2,1)
A2输入“高高兴兴”
公式输出结果为：
“高兴”

wshcw

静看流年RSSQ 发表于 2020-5-20 13:38
一般我写这么无脑的。
=--CONCAT(UNIQUE(MID(A2,ROW($1:$99),1)))

我电脑没有UNIQUE 函数