字符串1112，求相同数的位置是123的代码

0wchz · 发表于 2025-4-15 19:56

Sub ct()
a = "1112"
For j = 1 To Len(a) - 1
If Mid(a, j, 1) = Mid(a, j + 1, 1) Then ctw = ctw & j ''And InStr(ctw, j) <= 0
Next j
MsgBox "ctw=" & ctw

End Sub
如何使得ctw=123,呀

shiruiqiang · 发表于 2025-4-15 20:03

本帖最后由 shiruiqiang 于 2025-4-15 20:05 编辑

0wchz · 发表于 2025-4-15 20:06

你这个没意义，不能用于判断

0wchz · 发表于 2025-4-15 20:13

如果a=“2223”呢，所以不可以用

ykcbf1100 · 发表于 2025-4-15 20:16

楼主既然没上附件，那我就上个图片吧

代码测试通过。。。

shiruiqiang · 发表于 2025-4-15 20:17

本帖最后由 shiruiqiang 于 2025-4-15 20:18 编辑

0wchz · 发表于 2025-4-15 20:30

6楼，如果a="1122"那ctw应该=1234，可你还是123,不对呀

0wchz · 发表于 2025-4-15 20:32

5楼大侠代码，没有意义

quqiyuan · 发表于 2025-4-15 20:57

参与一下，仅供参考。。。

quqiyuan · 发表于 2025-4-15 20:58

代码如下。。。

Sub ct()
a = "1122"
Set d = CreateObject("scripting.dictionary")
For j = 1 To Len(a)
      If Not d.exists(Mid(a, j, 1)) Then Set d(Mid(a, j, 1)) = CreateObject("scripting.dictionary")
      d(Mid(a, j, 1))(j) = ""
Next j
For Each Key In d.keys
      If d(Key).Count > 1 Then
         ctw = ctw & Join(d(Key).keys, "")
      End If
Next
Set d = Nothing
MsgBox "ctw=" & ctw
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 字符串1112，求相同数的位置是123的代码