[已解决]很简单的一段代码，就是得不到正确结果，高手帮忙~~

非池中

sub sss()
dim aaa,n as string
aaa="ye(0，1001)"
n="1001"
msgbox replace(aaa,n,"""& n &""")
end sub


我想得到结果 ： ye(0，"1001")
也就是把括号内的数字部分加上引号，replace函数应该怎么用？？？？

谢谢~~~

最佳答案

月排行榜 / 总排行榜

爱疯

2015-3-20 11:25

Sub sss()
    Dim aaa, n As String
    aaa = "ye(0,1001)"
    n = "1001"
    MsgBox Replace(aaa, n, """" & n & """")
End Sub

跳转到最佳答案楼层

爱疯

Sub sss()
    Dim aaa, n As String
    aaa = "ye(0,1001)"
    n = "1001"
    MsgBox Replace(aaa, n, """" & n & """")
End Sub

非池中

爱疯 发表于 2015-3-20 11:25
Sub sss()
    Dim aaa, n As String
    aaa = "ye(0,1001)"

非常好，能问问为什么是四个”吗？

爱疯

非池中 发表于 2015-3-20 11:27
非常好，能问问为什么是四个”吗？

Sub sss()
    Dim aaa, n As String
    aaa = "ye(0,1001)"
    n = "1001"
    MsgBox Replace(aaa, n, """" & n & """")
End Sub

如果要在双引号中来表示双引号，那么1个双引号得用2个双引号来表达。
红色部分，代表1个双引号