Excel VBA-删除部分字符串

Question

我想删除部分字符串.例如
mystring="site, site text, sales "

我想从mystring中删除' site '.我要求的输出是"网站文字,销售"

我用这行代码:

s1 = Replace(mystring, "site", "")

但我得到了 "text, sales"

我不知道该怎么做,我真的很感谢你的帮助!

Answer 1

replace("site, site text, sales ","site, ","",1,1)

您还可以将起始位置作为参数发送,然后发送要替换的次数...(默认值为-1)

Answer 2

这里有很多不同的选择：

只需在要替换的搜索字符串中添加逗号Trim并使用逗号即可消除空格：

s1 = Trim(Replace(mystring, "site,", ""))

指定要替换字符串的次数（第一个“1”是开始，第二个是替换次数）

s1 = Trim(Replace(mystring, "site,", "",1,1))

或者困难/糟糕的方法，在第一次出现后将字符串分解成两部分，然后重新组合以获得结果......

TempStart = Left(mystring, InStr(1, mystring, "site") + Len(mystring) + 1)
TempEnd = Replace(mystring, TempStart, "")
TempStart = Replace(TempStart, "site", "")
mystring = CStr(TempStart & TempEnd)