vba InStr用法

VBA InStr函数用于在一个字符串中查找另一个字符串的位置。其语法为：

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

其中，start是可选的参数，表示从哪个字符开始查找，如果不指定，则默认从第一个字符开始查找。string1是要查找的字符串，string2是要在其中查找的字符串。compare也是可选的参数，表示比较字符串时使用的类型，可以是vbBinaryCompare（区分大小写）、vbTextCompare（不区分大小写）或vbDatabaseCompare（使用当前区域设置）。

例如，以下代码将查找字符串"Hello"在变量str中的位置：

Dim str As String
str = "Hello, World!"
Dim pos As Integer
pos = InStr(str, "Hello")

在上述代码中，pos将被赋值为1，因为字符串"Hello"在变量str的第一个字符位置开始。如果要从第7个字符位置开始查找，则可以将start参数设置为7：

Dim str As String
str = "Hello, World!"
Dim pos As Integer
pos = InStr(7, str, "Hello")

在上述代码中，pos将被赋值为0，因为字符串"Hello"不在变量str的第7个字符位置之后。如果要不区分大小写进行查找，则可以将compare参数设置为vbTextCompare：

Dim str As String
str = "Hello, World!"
Dim pos As Integer
pos = InStr(1, str, "hello", vbTextCompare)

在上述代码中，pos将被赋值为1，因为字符串"hello"在变量str的第一个字符位置开始，并且不区分大小写。