VBA 使用SELECT CASE 语句 判断字符串是否包含某个字符串

在VBA中，可以使用SELECT CASE语句来判断字符串是否包含某个字符串。下面是一个示例：

Dim str As String
str = "Hello World"

Select Case True
    Case InStr(str, "Hello") > 0
        MsgBox "字符串包含Hello"
    Case InStr(str, "World") > 0
        MsgBox "字符串包含World"
    Case Else
        MsgBox "字符串不包含指定的字符串"
End Select

在上面的示例中，我们使用了InStr函数来判断字符串是否包含指定的字符串。如果返回的值大于0，则表示包含该字符串，否则不包含。