函数VBA：InStr

描述

VBA INSTR 函数返回与字符串中第一个找到的值的位置相对应的整数（如果未找到匹配则返回 0）。

语法指令

InStr（起始位置、文本、搜索值）

或者

InStr（起始位置、文本、搜索值、大小写）

示例 VBA InStr

使用 InStr 函数确定单词“excel”的位置（从站点名称的字符 1 开始搜索）：

Sub InStrExample1()  
      
    sitename = "www.moonexcel.com.ua"  
    
    '“excel”一词在 sitename 中的位置
    position = InStr(1, sitename, "excel")  
      
    MsgBox position '退货：9
    
End Sub

使用 InStr 函数查找单词“EXCEL”的位置（这次向第四个参数添加值“1”以忽略大小写）：

Sub InStrExample2()  
      
    sitename = "www.moonexcel.com.ua"  
      
    'sitename 中单词“EXCEL”的位置（不区分大小写）
    position = InStr(1, sitename, "EXCEL", 1)  
      
    MsgBox position '退货：9
      
End Sub  

检查文本是否包含值

InStr 函数还可用于确定站点名称是否包含搜索字符串：

Sub InStrExample3()
    
    sitename = "www.moonexcel.com.ua"
    
    If InStr(1, sitename, "excel") > 0 Then
       MsgBox "所以！"
    End If
    
End Sub

在此示例中，如果找到该位置，该函数将返回一个大于 0 的数字并显示一个对话框。