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的情況、搜索位置包含多個字符以及超出字符串長度的搜索。