如何使用InStr函数在字符串中找到星号?

时间:2016-09-07 06:57:41

标签: vba excel-vba excel

Microsoft文档指定使用"~*"在字符串中搜索"*""~*""[*]"不起作用。

正在搜索的字符串表达式: “Balıkyağı,balıkunu,yaşmyyve,kuru meyve,sucukfastırma,nebatiyağ,sütvesütmamulleriimalatındakullanılaniktisadikıymetlerveözelraçgereçler*”

If InStr(1, WS.Cells(intRow, 6).Value, "~*", vbTextCompare) > 0 then
    'Additional code here
End If

此代码找不到星号字符。

2 个答案:

答案 0 :(得分:6)

*摆脱Sub testss() Dim str As String str = "test*name" '/ Returns 0 MsgBox InStr(1, str, "~*", vbTextCompare) '/ Returns 5 MsgBox InStr(1, str, "*", vbTextCompare) End Sub 你不需要任何特别的东西。

express-unless

答案 1 :(得分:3)

~*用于查找*Range.Find中的Range.Replace(在Excel的“查找和替换”对话框中也是如此)。

您也可以使用InStrRev从字符串末尾开始按相反顺序搜索。

Like operator也可以与[*]一起使用来检查字符串是否以*结尾:

If WS.Cells(intRow, 6) Like "*[*]" Then