VBA 搜索字符串位置

在 VBA 中，我们经常需要在字符串中查找特定子字符串的位置。VBA 提供了多种方法来执行此操作。本文将介绍几种常用的方法，并提供相应的代码示例。

方法一：使用 InStr 函数

InStr 函数用于返回一个字符串在另一个字符串中的位置。它的语法如下：

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

• start（可选）：指定在 string1 中开始搜索的位置，默认为 1。
• string1：要进行搜索的字符串。
• string2：要搜索的子字符串。
• compare（可选）：指定比较方式，可以是下列值之一：
  • vbBinaryCompare（默认值）：进行二进制比较。
  • vbTextCompare：进行文本比较，区分大小写。

以下是一个示例代码片段，演示了如何使用 InStr 函数来搜索子字符串 "VBA" 在字符串 "Hello VBA World!" 中的位置，并将结果存储在变量中：

Dim position As Integer
position = InStr(1, "Hello VBA World!", "VBA", vbTextCompare)

在这个示例中，变量 position 的值将为 7，因为子字符串 "VBA" 在字符串 "Hello VBA World!" 中的第 7 个位置开始。

方法二：使用 InStrRev 函数

InStrRev 函数与 InStr 函数类似，但它从字符串的末尾开始搜索。它的语法如下：

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

• string1：要进行搜索的字符串。
• string2：要搜索的子字符串。
• start（可选）：指定从 string1 的哪个位置开始向前搜索，默认为 -1（从末尾开始）。
• compare（可选）：指定比较方式，同 InStr 函数。

以下是一个示例代码片段，演示了如何使用 InStrRev 函数来搜索子字符串 "VBA" 在字符串 "Hello VBA World!" 中的位置，并将结果存储在变量中：

Dim position As Integer
position = InStrRev("Hello VBA World!", "VBA", -1, vbTextCompare)

在这个示例中，变量 position 的值同样为 7。

方法三：使用 InArray 函数

InArray 函数通过将字符串转换为数组，并使用 VBA 的 Array 函数来搜索子字符串。它的语法如下：

Function InArray(arr() As String, find As String) As Long
    Dim i As Integer
    For i = LBound(arr) To UBound(arr)
        If arr(i) = find Then
            InArray = i
            Exit Function
        End If
    Next i
    InArray = -1
End Function

使用 InArray 函数时，首先需要将字符串转换为字符数组，然后再调用该函数来搜索子字符串。

以下是一个示例代码片段，演示了如何使用 InArray 函数来搜索子字符串 "VBA" 在字符串 "Hello VBA World!" 中的位置，并将结果存储在变量中：

Dim position As Integer
Dim str As String
Dim arr() As String

str = "Hello VBA World!"
arr = Split(str, " ")

position = InArray(arr, "VBA")

在这个示例中，变量 position 的值同样为 2，因为子字符串 "VBA" 在字符串 "Hello VBA World!" 中的第 2 个位置（经过空格拆分后）。

以上就是在 VBA 中搜索字符串位置的几种常用方法。根据实际情况选择合适的方法来满足你的需求。