ExcelVBA セルや変数に特定の文字列が含まれているか判定する3つの方法

Excel VBA  セルの値や変数の中に、特定の文字列が含まれているか判定する方法。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 文字列が含まれているか判定｜シーン

Excel VBA 文字列が含まれているか判定方法

Excel VBA 文字列が含まれているか判定｜サンプルコード

InStr関数を使う（特定の文字を含むか判定する）

Option Explicit

Sub CheckString_InStr()
    Dim text As String
    text = "今日は晴れです"
    
    ' "晴れ" を含むか判定
    If InStr(1, text, "晴れ") > 0 Then
        MsgBox "「晴れ」が含まれています！"
    Else
        MsgBox "「晴れ」は含まれていません。"
    End If
End Sub

Option Explicit

Sub CheckString_Like()
    Dim text As String
    text = "Excel VBA入門"

    ' "Excel" を含むか判定
    If text Like "*Excel*" Then
        MsgBox "「Excel」が含まれています！"
    Else
        MsgBox "「Excel」は含まれていません。"
    End If
End Sub

正規表現（RegExp）を使う方法（より高度な検索（大文字小文字区別、複数条件））

Option Explicit

Sub CheckString_RegExp()
    Dim text As String
    Dim regEx As Object
    text = "注文番号: A12345"

    ' 正規表現オブジェクトの作成
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "A\d{5}" ' "A"の後に数字5桁
    regEx.IgnoreCase = False ' 大文字小文字を区別する
    regEx.Global = False ' 最初にマッチした1つだけ判定

    ' 判定
    If regEx.Test(text) Then
        MsgBox "パターンに一致しました！"
    Else
        MsgBox "パターンに一致しません。"
    End If

    ' オブジェクトの解放
    Set regEx = Nothing
End Sub

Excel VBA 文字列が含まれているか判定｜まとめ