作者：乔山办公网日期：
返回目录：excel表格制作
用instr函数，比如你百要检查字符度串 "你好avpofasodfjd;safj" 中是不问是有字母答专"fas" 可以使用以下代码属
Sub test()
Dim a$
a = "你好avpofasodfjd;safj"
If InStr(a, "fas") Then
MsgBox "包含字母'fas'"
Else
MsgBox "不包含字母'fas'"
End If
End Sub
”为例，具体代码如下。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
sub finstr() '这个可以检测sheet1里面有数据的区域里是百否包含你要查找的字符,如果有会度依次提示
dim rng as range
dim findstr as string
findstr="某字符" '这个某字符你替换成你需要的字符即可回
For Each rng In Sheet1.UsedRange'注意这里的检测sheet1里面的数据区域 如果是其它sheet需改答
If rng LIKE "*" & findstr & "*" Then
msgbox "单元格" & rng.address & "包含" & findstr
End If
Next
end sub