Function 替换功能不工作_Function_Excel_Replace_Vba

Function 替换功能不工作

function excel replace vba

Function 替换功能不工作,function,excel,replace,vba,Function,Excel,Replace,Vba,此替换功能有什么问题？为什么它不起作用 Sub test() MyString = "Armstrong has hamstring injury and his return is questionable" Injury = " Hamstring " NewString = Replace(MyString, Injury, "$InjType$", vbTextCompare) MsgBox (NewString) End Sub 预期答案：阿姆斯特朗受伤$200，他的回归

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

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

预期答案：阿姆斯特朗受伤$200，他的回归值得怀疑

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

请帮忙。提前谢谢

这是

vbTextCompare

参数的错误位置

你可以用

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

或

哦非常感谢你。它起作用了！！我的印象是，由于可选参数无论如何都是可选的，所以它们不需要遵循特定的顺序。再次感谢。

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