excel中如何滤重复,又不能改变数字顺序

来源：百度知道 编辑：UC知道 时间：2024/05/28 14:34:27
比如A1有数据001019955544467436653221,过滤后B1为019546732.而非012345679.谢谢

按下ALT+F11,菜单:插入-模块,然后复制下面代码

Public Function go(Text As String) As String
Dim Temp As String
For i = 1 To Len(Text)
Temp = Mid(Text, i, 1)
If InStr(go, Temp) = 0 Then go = go & Temp
Next
End Function

B1输入公式

=go(A1)

结果是“019546732”