Excel函数中，有没有“去掉一个字符串中的重复字符”的函数？

　　Excel函数中，有“去掉一个字符串中的重复字符”的函数。

　　如果要在Excel中将单元格内字符串中的重复字符去掉，重复的字符仅保留一个，如将字符串“1232345667”变成“1234567”，可以用自定义函数实现。如图：

　　按下ALT+F11,菜单:插入-模块,然后复制下面代码假设你在A1中输入字符串,那就在B1中输入=ORDER(A1)这样B1就是你要得到的数字.

　　返回Excel工作表界面。

　　假如字符串在A1单元中，在B1单元格中输入公式：

　　=RemoveDupChar(A1)

　　该自定义函数还可以将多个单元格中的字符串合并后去重复，如A6单元格为“12345”，A7单元格为“23456”，在B6单元格输入公式：

　　=RemoveDupChar(A6&A7)

　　公式返回“123456”。

按下ALT+F11,菜单:插入-模块,然后复制下面代码
假设你在A1中输入字符串,那就在B1中输入=ORDER(A1)
这样B1就是你要得到的数字.

Public Function order(ByVal m As String) As String
Dim a() As String
ReDim a(1 To Len(m)) As String
For x = 1 To Len(m)
If InStr(1, m, Mid(m, x, 1)) < x Then
a(x) = ""
Else
a(x) = Mid(m, x, 1)
End If
Next
For x = 1 To Len(m)
order = order & a(x)
Next
End Function

按下ALT+F11,菜单:插入-模块,然后复制下面代码 假设你在A1中输入字符串,那就在B1中输入=ORDER(A1) 这样B1就是你要得到的数字