EXCEL表怎样提取一个单元格内重复的数字

发布网友发布时间：2022-04-21 05:55

共4个回答

热心网友时间：2022-06-18 08:34

插入一个模块（自定义函数用）

--------------------------------

Option Compare Text
Function ReNum(ByVal rng As Range)
Dim str$, Db$
str = rng
For i = 1 To Len(str) - 1
If Mid(str, i, 1) = Mid(str, i + 1, 1) Then
For j = i + 1 To Len(str) - 1
If Mid(str, j, 1) <> Mid(str, j + 1, 1) Then
i = j
Exit For
End If
Next
Db = Db & Mid(str, i, 1)
End If
Next
ReNum = Db
End Function

-------------------------------------

热心网友时间：2022-06-18 08:35

自定义函数即可，复制如下代码到VBA模块中，在excel中引用该函数ABA。

Function ABA(my_Range As Range)
ABA = ""
Dim i, j As Single
For i = 1 To Len(my_Range)
For j = i + 1 To Len(my_Range)
If Mid(my_Range, i, 1) = Mid(my_Range, j, 1) Then
ABA = ABA & Mid(my_Range, i, 1)
End If

Next
Next

If ABA = "" Then ABA = "无重复值"
End Function

热心网友时间：2022-06-18 08:35

自定义函数可以不？

代码如下，可实现查找多个重复数字如11233445这样的，具体用法见附件中的动态图（注意：使用时需要将Excel宏安全性改为中或低，具体修改方法百度“Excel宏安全性设置”即可）

Public Function tqcf(rng As Range)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To Len(rng)
    d(Mid(rng, i, 1)) = d(Mid(rng, i, 1)) + 1
Next i
For Each ii In d
    If d.Item(ii) > 1 Then
        t = t & ii & ","
    End If
Next ii
If t <> "" Then
    tqcf = Mid(t, 1, Len(t) - 1)
Else
    tqcf = ""
End If
End Function

热心网友时间：2022-06-18 08:36

如果最多只有一个数字重复，B2公式：
=IF(SUM(N(LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,))>1)),SUM((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($1:$10)-1,))>1)*(ROW($1:$10)-1)),"")
公式以CTRL+SHIFT+ENTER三键结束。
将公式向下复制。追问如果是有时候不止一个重复数字啊
例如：12233、13333这种能实用吗？

追答12233这种情况要出什么结果，是23吗？
B2公式改为：
=IF(LEN(A2)-LEN(SUBSTITUTE(A2,0,))>1,0,)&SUBSTITUTE(SUM((LEN(A2)-LEN(SUBSTITUTE(A2,ROW($2:$10),))>1)*ROW($2:$10)*10^(9-ROW($2:$10))),0,)
公式以CTRL+SHIFT+ENTER三键结束。
将公式向下复制。