以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问如何排除单元格重复数字并排序  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109844)

--  作者:feiyu988
--  发布时间:2017/11/21 11:33:00
--  [求助]请问如何排除单元格重复数字并排序

例如单元格数值为7522997,怎样才能去掉重复,赋值到另外单元格为2579


--  作者:有点甜
--  发布时间:2017/11/21 12:47:00
--  
Dim str As String = "7522997"
Dim ls As new List(Of String)
For Each s As String In str
    If ls.Contains(s) = False Then
        ls.add(s)
    End If
Next
msgbox(String.Join("|", ls.ToArray))