VBA函数VBAINSTR详解

一、VBAINSTR概述

VBAINSTR函数是VBA中常用的字符串函数之一，用于在一个字符串中搜索指定的子字符串，并返回第一次出现该字符串的位置。

'VBAINSTR函数的语法形式如下：
InStr([start], string1, string2, compare)
'其中，start是可选参数，表示开始搜索的位置，默认为1；
'string1是需要在其中搜索的字符串；
'string2是要搜索的子字符串；
'compare是可选参数，表示比较模式，可以是vbBinaryCompare（区分大小写）、vbTextCompare（不区分大小写）或vbDatabaseCompare（根据数据库的排序规则比较）

二、VBAINSTR用法

以下是一些常见的使用VBAINSTR函数的场景：

1. 搜索字符串中是否包含某个子字符串

可以使用VBAINSTR函数在字符串中搜索指定的子字符串，并返回第一次出现该字符串的位置。下面是一个搜索“apple”是否包含字符串“p”的示例：

Sub SearchString()
    Dim str As String
    Dim pos As Integer
    str = "apple"
    pos = InStr(str, "p")
    If pos > 0 Then
        Debug.Print "字符串中包含子字符串 “p”"
    Else
        Debug.Print "字符串中不包含子字符串 “p”"
    End If
End Sub

2. 搜索多个字符串中包含某个子字符串的位置

可以使用VBAINSTR函数在多个字符串中搜索指定的子字符串，并返回第一次出现该字符串的位置。下面是一个搜索“apple”和“banana”是否包含字符串“p”的示例：

Sub SearchStrings()
    Dim str1 As String, str2 As String
    Dim pos1 As Integer, pos2 As Integer
    str1 = "apple"
    str2 = "banana"
    pos1 = InStr(str1, "p")
    pos2 = InStr(str2, "p")
    If pos1 > 0 And pos2 > 0 Then
        Debug.Print "两个字符串中都包含子字符串 “p”"
    ElseIf pos1 > 0 Then
        Debug.Print "字符串1中包含子字符串 “p”"
    ElseIf pos2 > 0 Then
        Debug.Print "字符串2中包含子字符串 “p”"
    Else
        Debug.Print "两个字符串都不包含子字符串 “p”"
    End If
End Sub

3. 搜索字符串中最后一个出现某个子字符串的位置

可以使用VBAINSTR函数在字符串中搜索指定的子字符串，并返回最后一次出现该字符串的位置。下面是一个搜索“banana”最后一个出现字符串“an”的示例：

Sub SearchLastString()
    Dim str As String
    Dim pos As Integer
    str = "banana"
    pos = InStrRev(str, "an")
    If pos > 0 Then
        Debug.Print "最后一个 “an” 出现在字符串的第" & pos & "个位置"
    Else
        Debug.Print "字符串中不存在 “an”"
    End If
End Sub

三、VBAINSTR注意事项

VBAINSTR函数虽然功能强大，但是在使用时需要注意以下几点：

1. 区分大小写和不区分大小写

VBAINSTR函数默认是区分大小写的比较模式，如果希望不区分大小写，则需要指定compare参数为vbTextCompare。下面是一个区分大小写和不区分大小写的比较示例：

Sub CompareStrings()
    Dim str1 As String, str2 As String
    Dim pos1 As Integer, pos2 As Integer
    str1 = "Apple"
    str2 = "apple"
    pos1 = InStr(str1, "a")
    pos2 = InStr(str2, "a", vbTextCompare)
    Debug.Print "区分大小写：" & pos1
    Debug.Print "不区分大小写：" & pos2
End Sub

2. 返回值为0的情况

当VBAINSTR函数无法在字符串中找到指定的子字符串时，返回值为0，不要将返回值为0与字符串的第一个字符位置混淆。

Sub FindSubString()
    Dim str As String
    Dim pos As Integer
    str = "apple"
    pos = InStr(str, "c")
    Debug.Print pos '返回值为0，表示字符串中不存在“c”
End Sub

3. 搜索位置包含多个字符

VBAINSTR函数在搜索指定子字符串的位置时，会搜索到该子字符串的第一个字符的位置，而不是整个子字符串的位置。如果需要搜索到整个子字符串的位置，可以通过加上子字符串的长度来计算得到。下面是一个加上长度计算的示例：

Sub SearchPosition()
    Dim str As String
    Dim subStr As String
    Dim pos As Integer
    str = "apple banana"
    subStr = "banana"
    pos = InStr(str, subStr)
    Debug.Print "子字符串 “banana” 出现在字符串的第" & pos & "个位置"
    pos = pos + Len(subStr) - 1
    Debug.Print "子字符串 “banana” 最后一个字符出现在字符串的第" & pos & "个位置"
End Sub

4. 超出字符串长度的搜索

如果指定的开始位置start超出了字符串的长度，则会返回0，可以通过加上字符串的长度来处理指定的开始位置。下面是一个对超出字符串长度的搜索做处理的示例：

Sub SearchPosition()
    Dim str As String
    Dim subStr As String
    Dim pos As Integer
    Dim start As Integer
    str = "apple banana"
    subStr = "banana"
    start = 100 '超出字符串的长度
    If start > Len(str) Then
        start = Len(str) '将开始位置设为字符串的长度
    End If
    pos = InStr(start, str, subStr)
    If pos > 0 Then
        Debug.Print "子字符串 “banana” 出现在字符串的第" & pos & "个位置"
    Else
        Debug.Print "子字符串 “banana” 在字符串中不存在"
    End If
End Sub

四、VBAINSTR总结

VBAINSTR函数是VBA中常用的字符串函数之一，可以在一个字符串中搜索指定的子字符串，并返回第一次出现该字符串的位置。在使用时需要注意比较模式、返回值为0的情况、搜索位置包含多个字符以及超出字符串长度的搜索。