替换功能不起作用

时间:2014-05-25 13:51:59

标签: function excel-vba replace vba excel

此替换功能有什么问题?为什么不起作用?

 Sub test()
 MyString = "Armstrong has hamstring injury and his return is questionable"
 Injury = " Hamstring "
 NewString = Replace(MyString, Injury, "$InjType$", vbTextCompare)
 MsgBox (NewString)
 End Sub

预期答案:阿姆斯特朗有$ InjType $伤害并且他的回归值得怀疑

获得的答案:阿姆斯特朗腿筋受伤,他的回归值得怀疑

请帮忙。提前致谢。

1 个答案:

答案 0 :(得分:2)

这是vbTextCompare参数的错误位置。

您可以使用

NewString = Replace(MyString, Injury, "$InjType$", compare:=vbTextCompare)

NewString = Replace(MyString, Injury, "$InjType$", , , vbTextCompare)