Excel VBA InStr

简介

在Excel VBA中，InStr函数用于查找一个字符串在另一个字符串中第一次出现的位置。如果没找到，返回0。

InStr函数的语法如下：

InStr([start, ]string1, string2[, compare])

其中，start为可选参数，表示搜索的起始位置，默认值为1。string1为必选参数，表示被搜索的字符串。string2为必选参数，表示要查找的字符串。compare为可选参数，表示比较的方式（1表示使用二进制比较，2表示使用文本比较）。如果不指定该参数，则默认使用文本比较。

示例

以下是InStr函数的一些示例：

' 查找"John"在字符串str中第一次出现的位置
str = "My name is John."
pos = InStr(str, "John") ' 返回8

' 查找"j"在字符串str中第一次出现的位置（不区分大小写）
pos = InStr(1, str, "j", vbTextCompare) ' 返回14

' 查找字符串str2在字符串str1中第一次出现的位置（从第5个字符开始查找）
str1 = "Hello, World!"
str2 = "World"
pos = InStr(5, str1, str2) ' 返回8

' 查找"ABC"在字符串str中是否存在
str = "Hello, World!"
pos = InStr(str, "ABC") ' 返回0

需要注意的是，在比较大小写时，应该使用vbTextCompare。

总结

InStr函数可以用来查找字符串在另一个字符串中的位置，非常实用。在使用时，需要注意参数的顺序和类型，特别是在使用可选参数时。

代码示例

' 查找"John"在字符串str中第一次出现的位置
str = "My name is John."
pos = InStr(str, "John") ' 返回8