Excel 怎么用Vba检查一个字符串中是否包含特定的字母

2025-03-18 11:27:43

推荐回答（2个）

回答1：

Sub 宏1()
Dim SearchString, SearchChar, MyPos
SearchString = "XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。
' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
If InStr(4, SearchString, SearchChar, 1) <> 0 Then
result = "有"
Else
result = "无"
End If
End Sub

回答2：

试试这个代码
Sub test()
For i = 1 To 5
Cells(i, 2) = IIf(Cells(i, 1) Like "*Z*-*", "错", "对")
Next
End Sub