请修改我的代码，谢谢

0wchz

Sub ceshi()
s = "22"
For j = Len(s) To 1 Step -1
s = Replace(s, Mid(s, j, 1), "o" & Mid(s, j, 1), , 1)
Next j
MsgBox "s=" & s
End Sub

要求把22字符，每个2前加字符“o”,应该=o2o2,可代码结果=oo22,如何成为o2o2,呢谢谢

半百

于箱长

pjiang

被误导了，为什么要FOR？，，，，，，，，，，，，，，，，，

不规则结构

Sub eee()
    Dim s, s1, s2
    s = "你是谁啊特朗普吗" '要插入字符的文本
    s1 = "哈" '要插入的字符
    For i = 1 To Len(s)
        s2 = s2 & s1
        s2 = s2 & Mid(s, i, 1)
    Next
    MsgBox s2

End Sub

wj2368

这个改一下就行了