想把字符串重复数字变一个数字，怎么做谢谢

0wchz

Sub t4()
s = "6677"
For j = Len(s) To 2 Step -1
If Mid(s, j, 1) = Mid(s, j - 1, 1) Then s = Replace(s, Mid(s, j, 1), "")
Next j
MsgBox "s=" & s

End Sub
''把6677,6776变成67

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim i&, dic As Object, strTxt$, strKey$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    strTxt = "6677"
    For i = 2 To Len(strTxt)
        strKey = Mid(strTxt, i, 1)
        dic(strKey) = Empty
    Next i
   
    MsgBox Join(dic.keys, "")
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

西瓜籽

1. Sub test()
   
2.     Dim s As String, d, k, so
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     s = "667712215405405403338889"
   
5.     For i = 1 To Len(s)
   
6.         d(Mid(s, i, 1)) = d(Mid(s, i, 1)) + 1
   
7.     Next
   
8.     For Each k In d.keys
   
9.         so = so & k
   
10.     Next
    
11.     MsgBox "结果为：" & so
    
12.     Set d = Nothing
    
13. End Sub

复制代码

quqiyuan

quqiyuan

Sub test()
    Set d = CreateObject("scripting.dictionary")
    s = "6677"
    For i = 1 To Len(s)
        d(Mid(s, i, 1)) = ""
    Next
    MsgBox "s=" & Join(d.keys, "")
    Set d = Nothing
End Sub

ykcbf1100

参与一下，ArrayList法

1. Sub t4()
   
2.     Set List = CreateObject("System.Collections.ArrayList")
   
3.     s = "6677"
   
4.     For i = 1 To Len(s)
   
5.         k = Mid(s, i, 1)
   
6.         If Not List.Contains(k) Then List.Add k
   
7.     Next
   
8.     List.Sort
   
9.     MsgBox "s=" & Join(List.toArray)
   
10. End Sub

复制代码

今铭昔

hcm19522

C2{=IF(ISERR(FIND(0,B2)),"",0)&TEXT(SUM(IFERROR(LARGE(IF(ISNUMBER(FIND(ROW($1:$9),B2)),ROW($1:$9)),ROW($1:$9))*10^(ROW($1:$9)-1),)),"0;;")