[已解决]EXCEL高手用VBA实现字符串替换

vbyou127

VBA输入一个字符串,如果其中有子串"BOY",将之替换为"CHILD";显示替换后的字符串

最佳答案

月排行榜 / 总排行榜

wanao2008

2016-2-20 19:09

借用“天地有雪”的代码
Sub ttt()
    Dim S$, str
    S = "gggBOYss"
    str = Split(S, "BOY")
    S = str(0) & "CHILD" & str(1)
    MsgBox S
End Sub
按需自己改

跳转到最佳答案楼层

天地有雪

replace([a1],"BOY","CHILD")
蒙的

vbyou127

天地有雪 发表于 2016-2-10 19:04
replace([a1],"BOY","CHILD")
蒙的

不用replace，可以怎么做

天地有雪

这样吧~好...的做法啊~~要不就用正则吧~

1. Sub ttt()
   
2.     Dim S$, startzifu$, endzifu$, str&
   
3.     S = "gggBOYss"
   
4.     str = InStr(S, "BOY")
   
5.     startzifu = Mid(S, 1, str - 1)
   
6.     endzifu = Mid(S, str + 3)
   
7.     S = startzifu & "CHILD" & endzifu
   
8.     Debug.Print S
   
9. End Sub

复制代码

wanao2008

借用“天地有雪”的代码
Sub ttt()
    Dim S$, str
    S = "gggBOYss"
    str = Split(S, "BOY")
    S = str(0) & "CHILD" & str(1)
    MsgBox S
End Sub
按需自己改

vbyou127

天地有雪 发表于 2016-2-20 18:45
这样吧~好...的做法啊~~要不就用正则吧~

用正则怎么做

wanao2008

vbyou127 发表于 2016-2-21 10:45
用正则怎么做

用正则也是用Replace方法，你说不想用Replace方法，所以不用正则也罢，
再说正则非常难理解。