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