[已解决]去掉一个单元格中的重复数字

W517775882

如;9951600284这个数字是在一个单元格中 ，我想在另一个单元格生成 95160284就是把相同的数字只显一个，看看哪位大侠能帮助一下。

最佳答案

月排行榜 / 总排行榜

yeminqiang

2016-7-30 15:08

1. Sub cdsr() '假设数据在A列
   
2.     Dim i%, j%, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
5.         For j = 1 To Len(Cells(i, 1))
   
6.             d(Mid(Cells(i, 1), j, 1)) = ""
   
7.         Next
   
8.         s = d.keys
   
9.         Cells(i, 2) = Join(s, "")
   
10.     Next
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

李建军

上个表

mathking77

如果数据在A列
Sub xx()
Dim arr, ar, i%, s, d As Object, k, brr(), n%
Set d = CreateObject("scripting.dictionary")
arr = Range("a1", [a1].End(4))
For Each ar In arr
i = Len(ar)
s = StrReverse(ar)
For j = 1 To i
d(Mid(s, j, 1)) = ""
Next
For Each k In d.keys
x = k & x
Next
n = n + 1
ReDim Preserve brr(1 To n)
brr(n) = x
x = ""
d.RemoveAll
Next
[b1].Resize(n) = Application.Transpose(brr)
End Sub

yeminqiang

1. Sub cdsr() '假设数据在A列
   
2.     Dim i%, j%, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
5.         For j = 1 To Len(Cells(i, 1))
   
6.             d(Mid(Cells(i, 1), j, 1)) = ""
   
7.         Next
   
8.         s = d.keys
   
9.         Cells(i, 2) = Join(s, "")
   
10.     Next
    
11. End Sub
    

复制代码

这儿有肥猫

数组公式
=MID(SUM(MID(A1&"0123456789",SMALL(FIND(ROW($1:$10)-1,A1&"0123456789"),ROW($1:$10)),1)/10^ROW($1:$10)),3,COUNT(FIND(ROW($1:$10)-1,A1)))

snowbbb

好强大好强大啊， 好好哦

d346836673

学习了！！！

望帝春心

开辆火车向五楼老师致敬，"A1&"思路太妙了，数组公式

1. =SUM(MID(A1,SMALL(IF(IF(FREQUENCY(-MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),-MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>0,--MID(A1,ROW(INDIRECT("1:"&LEN(A1)+1)),1))<>FALSE,ROW(INDIRECT("1:"&LEN(A1)+1))),ROW(INDIRECT("1:"&COUNT(FIND(ROW($1:$10)-1,A1))))),1)*10^(COUNT(FIND(ROW($1:$10)-1,A1))-ROW(INDIRECT("1:"&COUNT(FIND(ROW($1:$10)-1,A1))))))

复制代码

datongye

正则(.)(?=.*\1)替换为""