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
此代码找不到星号字符。
答案 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