1

我需要更改例如以下字符串153,154,155,156

至153**,**154**,**155**,**156

所以,到**,**

我怎么能在 VBA 中做到这一点？

4

3 回答 3

4

Replace()在 MSDN 上

Sub ReplaceInStr()

    Dim str As String
    str = "153,154,155,156"
    str = Replace(str, ",", "**,**")
    MsgBox str

End Sub
于 2013-06-13T13:16:09.940 回答
4

不是更好，而是不同：

Sub SplitJoin()

    Debug.Print Join(Split("153,154,155,156", ","), "**,**")

End Sub
于 2013-06-13T16:01:27.367 回答
3

尝试这个：

Dim s as String
s = "153,154,155,156"
s = Replace(s, ",", "**,**")
于 2013-06-13T13:18:03.320 回答