【2026年8月最新】VBAのLike演算子完全ガイド｜ワイルドカード・エスケープ・否定パターンの使い方

📚 用語解説

Like演算子：VBAの組み込み演算子の1つ。「文字列 Like パターン文字列」という構文で、左辺の文字列が右辺のパターンに一致するかをTrue/Falseで返す。パターン側にワイルドカード文字（* ? # [charlist]）を組み合わせて、あいまいな条件のマッチングを行う。

' Like演算子の基本構文
Sub LikeBasicExample()
    Dim result As Boolean

    result = "見積書_20260801.xlsx" Like "見積書_*"
    MsgBox result   ' True（"見積書_"で始まる）

    result = "C1234" Like "C####"
    MsgBox result   ' True（Cの後に数字4桁）

    result = "Apple" Like "A??le"
    MsgBox result   ' True（A + 任意2文字 + le）
End Sub

📚 用語解説

パターンマッチング：ある文字列が、あらかじめ定義した「型（パターン）」に当てはまるかどうかを判定する処理全般を指す用語。Like演算子のワイルドカード方式や、正規表現（RegExp）方式など、複数の実現方法がある。

📚 用語解説

Option Compare Text / バイナリ比較：VBAモジュールの文字列比較モードを指定する宣言。既定は「バイナリ比較（Option Compare Binary）」で大文字小文字を区別する。モジュール冒頭にOption Compare Textと書くと「テキスト比較」となり、Like演算子や"="での文字列比較が大文字小文字を無視するようになる。

Like演算子の判定結果が「想定と違う」と感じたら、まずモジュール先頭にOption Compare Textの宣言があるかどうかを確認してください。他のモジュールからコピーしたコードに紛れ込んでいるケースが典型的な原因です。

' ワイルドカード4種類の使い分け例
Sub WildcardTypes()
    ' * : 任意の文字数（0文字以上）に一致
    Debug.Print "invoice_2026.pdf" Like "invoice_*"        ' True

    ' ? : ちょうど1文字に一致
    Debug.Print "A1Z" Like "A?Z"                             ' True
    Debug.Print "ABCZ" Like "A?Z"                            ' False（2文字あるので不一致）

    ' # : ちょうど1桁の数字に一致
    Debug.Print "A1Z" Like "A#Z"                             ' True
    Debug.Print "AXZ" Like "A#Z"                             ' False（数字ではない）

    ' [charlist] : リスト内のいずれか1文字に一致
    Debug.Print "商品A" Like "商品[ABC]"                     ' True
    Debug.Print "商品D" Like "商品[ABC]"                     ' False
End Sub

📚 用語解説

文字リスト（charlist）：Like演算子のワイルドカード[ ]の中に書く、マッチ対象とする文字の集合。個別の文字を並べる書き方（[ABC]）と、文字コード順の範囲を示すハイフン区切りの書き方（[A-Z]）の両方に対応する。範囲は昇順（若いコード→大きいコード）で書く必要があり、[Z-A]のような降順指定はエラーになる。

' 文字リスト・範囲指定の例
Sub CharListExamples()
    ' 個別の文字リスト
    Debug.Print "商品A" Like "商品[ABC]"          ' True

    ' 範囲指定（アルファベット大文字）
    Debug.Print "Zebra" Like "[A-Z]*"              ' True（先頭が大文字アルファベット）

    ' 範囲指定（数字）
    Debug.Print "5個入り" Like "[0-9]個入り"       ' True

    ' 範囲と個別文字の組み合わせ
    Debug.Print "X99" Like "[A-Za-z0-9][0-9][0-9]" ' True（英数字1文字+数字2桁）

    ' 降順の範囲指定はエラーになる（実行時エラー）
    ' Debug.Print "A" Like "[Z-A]"                 ' エラー：不正な範囲
End Sub

[ぁ-ん]のような全角文字の範囲指定は、環境（文字コード）によって挙動が変わる可能性があります。日本語の文字種を判定したい場合は、範囲指定に頼らず、AscW関数で文字コードを取得して数値で比較する方が安全です。

📚 用語解説

否定パターン [!charlist]：Like演算子の文字リストにおいて、角括弧の先頭に感嘆符（!）を付けた記法。charlist内に列挙した文字のいずれにも一致しない1文字にマッチする。例えば[!0-9]は「数字以外の1文字」を意味する。

' 否定パターンの例
Sub NegationExample()
    ' 数字を含まない文字列かどうか（1文字ずつ判定が必要な場合）
    Debug.Print "abc" Like "[!0-9][!0-9][!0-9]"     ' True（3文字とも数字ではない）
    Debug.Print "a1c" Like "[!0-9][!0-9][!0-9]"     ' False（2文字目が数字）

    ' 先頭が数字で始まっていない文字列か
    Debug.Print "商品コード" Like "[!0-9]*"          ' True（先頭は数字ではない）
    Debug.Print "123コード" Like "[!0-9]*"           ' False（先頭が数字）
End Sub

"abc123" Like "[!0-9]*" は先頭1文字が数字でないかを判定しているだけで、文字列全体に数字が含まれないかは判定していません。実際にこの例は先頭が"a"なのでTrueになりますが、文字列全体には数字が含まれています。「全体に含まれない」条件にはInStrとの組み合わせが必要です。

' 「文字列全体に特定の文字を含まない」を正しく判定する
Function ContainsNoDigit(s As String) As Boolean
    Dim i As Long
    For i = 1 To Len(s)
        If Not (Mid(s, i, 1) Like "#") Then
            ' 数字以外の文字が来ても継続チェック
        Else
            ContainsNoDigit = False
            Exit Function
        End If
    Next i
    ContainsNoDigit = True
End Function

' もしくはInStr系で判定する方がシンプル
Function ContainsNoDigit2(s As String) As Boolean
    Dim i As Long
    For i = 0 To 9
        If InStr(s, CStr(i)) > 0 Then
            ContainsNoDigit2 = False
            Exit Function
        End If
    Next i
    ContainsNoDigit2 = True
End Function

📚 用語解説

エスケープ処理：プログラミングにおいて、特別な意味を持つ記号を「意味を持たないただの文字」として扱わせるための処理。Like演算子では、ワイルドカード記号（* ? #）を角括弧[ ]で囲むことでエスケープし、リテラルな1文字として検索できる。

' ワイルドカード文字自体をエスケープして検索する
Sub EscapeExample()
    ' "*"をリテラル文字として検索したい場合は [*] と書く
    Debug.Print "3*4=12" Like "3[*]4*"        ' True（実際の"*"に一致）

    ' "?"をリテラル文字として検索
    Debug.Print "OK?" Like "OK[?]"            ' True

    ' "#"をリテラル文字として検索
    Debug.Print "No.#5" Like "No.[#]5"        ' True

    ' "]"（閉じ角括弧）は charlist 内でリテラルとして表現する記法が無いため、
    ' 角括弧の外にそのまま書けばリテラルな1文字として扱われる（"]"自体はワイルドカードではない）
    Debug.Print "A]B" Like "A]B"              ' True

    ' "-"（ハイフン）は charlist の先頭か末尾に置くとリテラル扱いになる
    Debug.Print "A-B" Like "A[-]B"            ' True
End Sub

複数の記号を1つの角括弧内にまとめてエスケープすることも可能です。たとえば"[*?#]"と書けば、*・?・#のいずれか1文字にリテラルとして一致します。ファイル名に使えない禁止文字（\ / : * ? " < > |）を検出する処理で活用できます。

📚 用語解説

InStr関数：VBAの標準関数の1つ。InStr(検索対象の文字列, 検索する文字列)の形式で呼び出し、検索する文字列が最初に見つかった位置（見つからなければ0）を返す。「含まれているかどうか」だけを知りたい場合はLike演算子より高速に動作する。

📚 用語解説

RegExp（正規表現）：文字列のパターンを記号（メタ文字）で表現する仕組み。VBAではCreateObject("VBScript.RegExp")で利用する。繰り返し回数の指定（{n,m}）やグループ化（()）、選択（|）などLike演算子にはない高度な表現が可能な一方、記法の習得コストが高い。

' 同じ「先頭一致」を3つの方法で書き比べる
Sub CompareMethods()
    Dim s As String
    s = "invoice_20260801.pdf"

    ' 方法1: Like演算子（最もシンプル）
    Debug.Print s Like "invoice_*"

    ' 方法2: InStr（先頭一致だけならLeftとの組み合わせが必要）
    Debug.Print Left(s, 8) = "invoice_"

    ' 方法3: RegExp（オーバースペック気味だが複雑な条件には強い）
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^invoice_"
    Debug.Print re.Test(s)
End Sub

' フォルダ内の特定パターンのファイルだけをリストアップする
Sub ListMatchingFiles()
    Dim folderPath As String, fileName As String
    folderPath = "C:\Reports\"
    fileName = Dir(folderPath)

    Do While fileName <> ""
        ' "見積書_"で始まり、拡張子が.xlsxのファイルだけ処理
        If fileName Like "見積書_*.xlsx" Then
            Debug.Print fileName & " を処理対象に追加"
        End If
        fileName = Dir()
    Loop
End Sub

' セルの入力値が想定フォーマットかどうかをチェックする
Function IsValidProductCode(code As String) As Boolean
    ' 例: 商品コードは "英大文字1文字+数字4桁" の形式
    IsValidProductCode = code Like "[A-Z]####"
End Function

Sub ValidateSheetData()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim i As Long
    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        If Not IsValidProductCode(ws.Cells(i, 1).Value) Then
            ws.Cells(i, 1).Interior.Color = RGB(255, 200, 200)  ' 不正データを赤色に
        End If
    Next i
End Sub

' 複数の部署コードパターンで案件を仕分ける
Sub ClassifyByDeptCode(deptCode As String)
    Select Case True
        Case deptCode Like "SL-*"
            Debug.Print "営業部の案件"
        Case deptCode Like "AC-*"
            Debug.Print "経理部の案件"
        Case deptCode Like "DV-*"
            Debug.Print "開発部の案件"
        Case Else
            Debug.Print "未分類"
    End Select
End Sub

Like演算子で"*@*.*"のようなパターンを書けば大まかなメールアドレス形式は判定できますが、厳密なRFC準拠のメールアドレス検証には向きません。業務上「明らかにおかしい入力を弾く」程度の用途にとどめ、正式な検証が必要な場合はRegExpや外部の検証サービスとの併用を検討してください。

上記は弊社の肌感ベースの数値であり、業種・業態・担当者のスキルによって削減時間は変動します。「完全自動化」ではなく、人間のレビュー・微調整を伴う運用である点にもご留意ください。

' 大文字小文字を無視したい場合
Sub CaseInsensitiveLike()
    ' 方法1: モジュール冒頭に Option Compare Text を宣言する
    ' （モジュール全体の比較モードが変わる点に注意）

    ' 方法2: UCase/LCaseで両辺を揃えてから比較する（局所的で安全）
    Dim s As String
    s = "Report_Final"
    Debug.Print UCase(s) Like UCase("report_*")   ' True
End Sub

📚 用語解説

Claude Code：Anthropic社が提供するAIエージェントツール。チャット形式で「〇〇をやって」と指示するだけで、ファイルの内容を読み取り、コードの作成・修正・実行までを自律的に行う。ターミナル版だけでなく、ターミナル操作が不要なデスクトップ版も提供されており、非エンジニアでも日本語の指示だけで業務を任せられる。

' Claude Codeへの依頼イメージ（実際はチャットで日本語のまま指示するだけ）
' 依頼例：
' 「この商品コード一覧（A0001〜Z9999形式）から、
'   形式に合わないデータだけをハイライトするVBAマクロを書いて。
'   大文字小文字は区別しなくていいです」

' Claude Codeが生成するコード例（形式チェック＋ハイライト）
Sub HighlightInvalidCodes()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim i As Long, lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        Dim code As String
        code = UCase(ws.Cells(i, 1).Value)  ' 大文字小文字を区別しない指定に対応
        If Not (code Like "[A-Z]####") Then
            ws.Cells(i, 1).Interior.Color = RGB(255, 200, 200)
        Else
            ws.Cells(i, 1).Interior.ColorIndex = xlNone
        End If
    Next i
    MsgBox "チェック完了：" & lastRow - 1 & "件を確認しました"
End Sub

いきなり複数のマクロをまとめて任せようとせず、「このデータのこの列を、この条件でチェックしたい」という具体的な1つの処理から試すのがおすすめです。サンプルデータをそのまま貼り付けて依頼すると、抽象的な説明だけより精度の高いコードが得られます。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？

AI活用を自社で回せるようになりたい方へ

AI鬼管理

Claude Code・Cowork導入支援から業務設計・社内浸透まで実践ベースで伴走。「自社で回せる組織」を90日で作る経営者向けトレーニング。

AI鬼管理を詳しく見る →

業務を丸ごと任せたい方へ

AIBPO by AI鬼管理

請求処理・データ入力・問い合わせ対応などの定型業務を、AI×人の品質管理体制で丸ごと代行。いまのコストの75%目安で、日々は成果物を承認するだけ。

AIBPOを詳しく見る →