vba查找指定字符串并返回位置

在 VBA 中，您可以使用 InStr 函数来查找指定字符串并返回其在另一个字符串中的位置。该函数的语法如下：

InStr([start,] string1, string2[, compare])
其中，start 是可选的起始搜索位置，string1 是要搜索的字符串，string2 是要查找的字符串，compare 是可选的用于指定搜索的比较方法。
如果找到了指定的字符串，InStr 函数将返回该字符串在字符串1中的位置。如果未找到字符串，则返回零。
以下是一个示例，演示如何使用 InStr 函数查找一个字符串在另一个字符串中的位置：
Sub FindString()
    Dim MyString As String
    Dim SearchString As String
    Dim Position As Integer
    MyString = "Hello, World!"
    SearchString = "World"
    Position = InStr(1, MyString, SearchString)
    If Position > 0 Then
        MsgBox "字符串 """ & SearchString & """ 在字符串 """ & MyString & """ 中的位置是 " & Position
        MsgBox "没有找到字符串 """ & SearchString & """"
    End If
End Sub
在上面的代码中，我们首先定义了两个字符串变量 MyString 和 SearchString，分别用于存储要搜索的字符串和要查找的字符串。然后我们使用 InStr 函数在 MyString 中搜索 SearchString，并将结果存储在变量 Position 中。最后，我们使用 If 语句检查 Position 是否大于零，如果是，则显示查找到的字符串的位置。如果未找到，则显示相应的消息。
希望这个示例可以帮助您理解如何在 VBA 中查找指定字符串并返回其位置。