【2026年7月最新】VBAの正規表現（RegExp）完全ガイド｜文字列抽出・置換・マッチングをコード例付きで解説

この記事の内容

1. 01正規表現とは何か・VBAで使う理由
2. 02RegExpオブジェクトの作成と基本設定
3. 03正規表現の主要メタ文字一覧
4. 04Testメソッドでマッチング確認（True/False判定）
5. 05Executeメソッドでマッチング結果を取得
6. 06Replaceメソッドで文字列置換
7. 07実用パターン集（メール・電話・郵便番号・URL）
8. 08Globalプロパティと全マッチ処理
9. 09業務での実践パターン（バリデーション・不要文字除去）
10. 10Claude Codeとの組み合わせ
11. FAQよくある質問

📚 用語解説

正規表現（Regular Expression）：文字列のパターンを記号で表現するための言語仕様。「どんな文字が」「何個」「どの位置に」来るかをメタ文字（.・*・+・?・[]・^・$・{}・|・()等）で記述します。VBAではCreateObject("VBScript.RegExp")でRegExpオブジェクトを生成し、Patternプロパティにパターン文字列を設定して使います。

📚 用語解説

RegExpオブジェクト：VBAで正規表現を扱うためのオブジェクト。CreateObject("VBScript.RegExp")で生成します。主なプロパティはPattern（パターン文字列）・IgnoreCase（大文字小文字を無視）・Global（全マッチを取得）。主なメソッドはTest（マッチ判定）・Execute（マッチ結果取得）・Replace（置換）。

' ============================================================
' RegExpオブジェクトの作成（2つの方法）
' ============================================================

' 【方法1】CreateObject（参照設定不要・配布マクロに推奨）
Sub Method1_CreateObject()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' プロパティ設定
    re.Pattern = "\d+"         ' 1桁以上の数字にマッチするパターン
    re.IgnoreCase = True         ' 大文字・小文字を区別しない
    re.Global = True             ' 文字列中の全マッチを取得（False=最初の1件のみ）

    Dim result As Boolean
    result = re.Test("Hello 123 World")  ' → True（数字がある）
    MsgBox result  ' True

    Set re = Nothing  ' 明示的に解放
End Sub

' 【方法2】参照設定あり（早期バインディング・IntelliSense有効）
' ツール > 参照設定 > Microsoft VBScript Regular Expressions 5.5 にチェックを入れる
Sub Method2_EarlyBinding()
    Dim re As New RegExp  ' 参照設定が必要

    re.Pattern = "\d+"
    re.IgnoreCase = False
    re.Global = True

    MsgBox re.Test("abc 456 def")  ' True
    Set re = Nothing
End Sub

📚 用語解説

Patternプロパティ：RegExpオブジェクトに設定する正規表現パターン文字列。VBAの文字列内では円記号（\）のエスケープが必要なため、\d（数字）は"\\d"と書きます。ただしVBAのStringでは単なる\は"\d"のように1つのバックスラッシュとして扱われます（C言語等の二重エスケープは不要）。実際のコードで\dと書くとPattern文字列は\dになります。

VBAの文字列リテラルでは、\（バックスラッシュ）は特別なエスケープ文字ではありません。そのため "\d" と書くとPattern文字列は \d（バックスラッシュ+d）になり、正規表現の「数字」メタ文字として正しく機能します。Pythonのように "\\"と2重に書く必要はありません。

' プロパティ設定の実例
Sub RegExpProperties()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' VBAでは "\d" でパターン文字列は \d（数字メタ文字）になる
    re.Pattern = "\d{3}-\d{4}"  ' パターン: 数字3桁-数字4桁（市外局番なし電話番号）
    re.IgnoreCase = False           ' 電話番号は大文字小文字の区別不要だが明示
    re.Global = True                ' 複数マッチを全て取得

    ' IgnoreCase の効果を確認
    re.Pattern = "[a-z]+"   ' 小文字アルファベット
    re.IgnoreCase = False
    MsgBox re.Test("HELLO")  ' False（大文字は一致しない）

    re.IgnoreCase = True
    MsgBox re.Test("HELLO")  ' True（大文字小文字を無視してa-zに一致）

    Set re = Nothing
End Sub

📚 用語解説

メタ文字：正規表現の中で特別な意味を持つ記号の総称。.・*・+・?・^・$・[]・{}・|・()・\など。これらをそのままのリテラル文字として検索したい場合は、\（バックスラッシュ）でエスケープします（例：ピリオドを検索 → \. ）。

' メタ文字の使い方サンプル
Sub MetaCharacterExamples()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' ドット（任意の1文字）
    re.Pattern = "a.c"
    MsgBox re.Test("abc")   ' True
    MsgBox re.Test("a1c")   ' True
    MsgBox re.Test("ac")    ' False（ドットは1文字必須）

    ' 量指定子
    re.Pattern = "\d{3}-\d{4}"  ' 電話番号（市外局番なし）
    MsgBox re.Test("090-1234")  ' True
    MsgBox re.Test("090-12")    ' False（4桁必要）

    ' アンカー
    re.Pattern = "^\d+"  ' 先頭が数字
    MsgBox re.Test("123abc")  ' True
    MsgBox re.Test("abc123")  ' False（先頭は英字）

    ' 文字クラス
    re.Pattern = "[a-zA-Z0-9]+"  ' 英数字のみ
    MsgBox re.Test("hello123")  ' True
    MsgBox re.Test("hello!@#")  ' True（英数字が1文字以上ある）

    ' 選択（OR）
    re.Pattern = "^(jpg|jpeg|png|gif)$"
    re.IgnoreCase = True
    MsgBox re.Test("JPG")   ' True（IgnoreCase=Trueのため）
    MsgBox re.Test("bmp")   ' False

    Set re = Nothing
End Sub

正規表現の中でメタ文字そのもの（.・*・+・?・[・]・(・)・{・}・^・$・|・\）をリテラルとして検索したい場合は、前にバックスラッシュを付けてエスケープします。例：ピリオドを検索したい → Pattern = "\." / 括弧(を検索 → Pattern = "\(" / バックスラッシュを検索 → Pattern = "\\"（VBAでは"\\\\"と書く）。

📚 用語解説

Testメソッド：RegExpオブジェクトのメソッド。引数の文字列がPatternに一致すればTrue、一致しなければFalseを返します。構文：re.Test(文字列)。Globalプロパティの設定は結果に影響しません（Testは一致の有無だけを確認するため）。バリデーションや条件分岐に最適。Executeより軽量。

' Testメソッドの基本的な使い方
Sub TestMethodExamples()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' ===== 例1: メールアドレスの形式確認 =====
    re.Pattern = "^[\w.+-]+@[\w-]+\.[a-zA-Z]{2,}$"
    re.IgnoreCase = True
    MsgBox re.Test("user@example.com")    ' True（正しい形式）
    MsgBox re.Test("user@example")        ' False（ドメイン末尾なし）
    MsgBox re.Test("@example.com")        ' False（ユーザー名なし）
    MsgBox re.Test("user@@example.com")   ' False（@が2つ）

    ' ===== 例2: 郵便番号の形式確認（NNN-NNNN形式）=====
    re.Pattern = "^\d{3}-\d{4}$"
    re.IgnoreCase = False
    MsgBox re.Test("100-0001")   ' True
    MsgBox re.Test("1000001")    ' False（ハイフンなし）
    MsgBox re.Test("100-00010")  ' False（数字が多い）

    ' ===== 例3: 日本語文字を含む確認 =====
    re.Pattern = "[\u3040-\u309F]"  ' ひらがな
    MsgBox re.Test("こんにちは")   ' True
    MsgBox re.Test("Hello")        ' False

    Set re = Nothing
End Sub

' シートのセル範囲に対してTestで一括バリデーション
Sub ValidateCellRange()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' 電話番号の形式チェック（市外局番込み: 0XX-XXXX-XXXX 形式）
    re.Pattern = "^0\d{1,4}-\d{1,4}-\d{4}$"
    re.Global = False

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim r As Long
    For r = 2 To lastRow
        Dim cellVal As String
        cellVal = Trim(CStr(ws.Cells(r, 1).Value))

        If re.Test(cellVal) Then
            ws.Cells(r, 2).Value = "OK"
            ws.Cells(r, 2).Interior.Color = RGB(198, 239, 206)  ' 薄緑
        Else
            ws.Cells(r, 2).Value = "NG（形式不正）"
            ws.Cells(r, 2).Interior.Color = RGB(255, 199, 206)  ' 薄赤
        End If
    Next r

    Set re = Nothing
    MsgBox "バリデーション完了（" & lastRow - 1 & "件処理）"
End Sub

📚 用語解説

Matchesコレクション・Matchオブジェクト：Executeメソッドの戻り値。コレクションの各要素（Matchオブジェクト）は以下のプロパティを持ちます。Value：マッチした文字列 / FirstIndex：マッチ開始位置（0始まり） / Length：マッチした文字列の長さ。Matches.Count でマッチ件数を取得できます。

' Executeメソッドの基本的な使い方
Sub ExecuteMethodExamples()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' ===== 例1: 文字列中の全数字を取得 =====
    re.Pattern = "\d+"
    re.Global = True  ' 全マッチを取得

    Dim matches As Object
    Set matches = re.Execute("購入数: 123, 返品: 45, 在庫: 6789")

    MsgBox "マッチ件数: " & matches.Count  ' 3

    Dim i As Integer
    For i = 0 To matches.Count - 1
        Dim m As Object
        Set m = matches(i)
        MsgBox "Value=" & m.Value & _
               " FirstIndex=" & m.FirstIndex & _
               " Length=" & m.Length
        ' → Value=123 FirstIndex=5 Length=3
        ' → Value=45 FirstIndex=12 Length=2
        ' → Value=6789 FirstIndex=18 Length=4
    Next i

    Set re = Nothing
End Sub

' シートのセルからパターンに一致する値を抽出してリストアップ
Sub ExtractMatchesToList()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' 電話番号のパターン（複数形式対応）
    re.Pattern = "0\d{1,4}-\d{1,4}-\d{4}"
    re.Global = True

    Dim wsSource As Worksheet
    Dim wsResult As Worksheet
    Set wsSource = ActiveSheet

    ' 結果出力シートの準備
    On Error Resume Next
    Set wsResult = ThisWorkbook.Sheets("抽出結果")
    On Error GoTo 0
    If wsResult Is Nothing Then
        Set wsResult = ThisWorkbook.Sheets.Add(After:=wsSource)
        wsResult.Name = "抽出結果"
    End If
    wsResult.Cells.Clear
    wsResult.Cells(1, 1).Value = "元セル"
    wsResult.Cells(1, 2).Value = "抽出値"
    wsResult.Cells(1, 3).Value = "開始位置"

    Dim outputRow As Long
    outputRow = 2

    Dim lastRow As Long
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row

    Dim r As Long
    For r = 2 To lastRow
        Dim cellText As String
        cellText = CStr(wsSource.Cells(r, 1).Value)

        Dim matches As Object
        Set matches = re.Execute(cellText)

        If matches.Count > 0 Then
            Dim m As Object
            For Each m In matches
                wsResult.Cells(outputRow, 1).Value = "A" & r  ' 元セル参照
                wsResult.Cells(outputRow, 2).Value = m.Value   ' 抽出した電話番号
                wsResult.Cells(outputRow, 3).Value = m.FirstIndex  ' 開始位置
                outputRow = outputRow + 1
            Next m
        End If
    Next r

    Set re = Nothing
    MsgBox "抽出完了: " & outputRow - 2 & "件を「抽出結果」シートに出力しました"
End Sub

Matchオブジェクトの FirstIndex は 0 から始まります（0始まりインデックス）。一方、VBAのMid関数の開始位置は1から始まります。FirstIndexを使ってMidで文字を取り出す場合は、Mid(str, m.FirstIndex + 1, m.Length) のように+1が必要です。

' Replaceメソッドの基本的な使い方
Sub ReplaceMethodExamples()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' ===== 例1: 全ての数字を「X」に置換 =====
    re.Pattern = "\d"
    re.Global = True  ' 全マッチを置換

    Dim result As String
    result = re.Replace("電話: 03-1234-5678、FAX: 03-8765-4321", "X")
    MsgBox result  ' "電話: XX-XXXX-XXXX、FAX: XX-XXXX-XXXX"

    ' ===== 例2: 余分な空白を1つに圧縮 =====
    re.Pattern = "\s+"  ' 1つ以上の空白（スペース・タブ等）
    result = re.Replace("Hello   World  こんにちは", " ")
    MsgBox result  ' "Hello World こんにちは"

    ' ===== 例3: HTMLタグを除去 =====
    re.Pattern = "<[^>]+>"  ' <...> の形式
    result = re.Replace("<b>太字テキスト</b>と<span style='color:red'>赤文字</span>", "")
    MsgBox result  ' "太字テキストと赤文字"

    ' ===== 例4: 電話番号のハイフンを除去 =====
    re.Pattern = "-"
    result = re.Replace("090-1234-5678", "")
    MsgBox result  ' "09012345678"

    Set re = Nothing
End Sub

📚 用語解説

IgnoreCaseプロパティ：RegExpオブジェクトのプロパティ。Trueにすると正規表現マッチングで大文字・小文字を区別しません。デフォルトはFalse（区別する）。メールアドレス検証やURLマッチングなど「大文字小文字どちらでも同じ意味を持つ」場面でTrueに設定します。一方、コードや識別子の検証など大文字小文字が意味を持つ場面ではFalse（デフォルト）のままにします。

' 後方参照（$1・$2）を使った置換
Sub ReplaceWithBackreference()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True

    ' ===== 例1: 日付形式を変換（YYYY/MM/DD → YYYY-MM-DD）=====
    re.Pattern = "(\d{4})/(\d{2})/(\d{2})"
    ' $1=年, $2=月, $3=日
    Dim result As String
    result = re.Replace("2026/07/19の会議と2026/08/01の締切", "$1-$2-$3")
    MsgBox result  ' "2026-07-19の会議と2026-08-01の締切"

    ' ===== 例2: 電話番号フォーマット統一（ハイフン形式に統一）=====
    ' 0X0XXXXXXXX（ハイフンなし）→ 0X0-XXXX-XXXX
    re.Pattern = "(0\d{2})(\d{4})(\d{4})"
    result = re.Replace("連絡先: 09012345678 / 08087654321", "$1-$2-$3")
    MsgBox result  ' "連絡先: 090-1234-5678 / 080-8765-4321"

    ' ===== 例3: 名前の前後の空白トリム =====
    re.Pattern = "^\s+|\s+$"  ' 先頭または末尾の空白
    result = re.Replace("   山田太郎   ", "")
    MsgBox result  ' "山田太郎"

    Set re = Nothing
End Sub

' メールアドレスの検証と抽出
Sub EmailPatterns()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.IgnoreCase = True

    ' ===== パターン1: メールアドレス検証（シンプル版）=====
    ' ユーザー名@ドメイン.TLD の形式
    re.Pattern = "^[\w.+-]+@[\w-]+(\.[\w-]+)*\.[a-z]{2,}$"
    re.Global = False

    MsgBox re.Test("user@example.com")         ' True
    MsgBox re.Test("user.name+tag@example.jp") ' True
    MsgBox re.Test("user@sub.example.co.jp")   ' True
    MsgBox re.Test("user@example")             ' False（TLDなし）
    MsgBox re.Test("@example.com")             ' False（ユーザー名なし）

    ' ===== パターン2: テキストからメールアドレスを全件抽出 =====
    re.Pattern = "[\w.+-]+@[\w-]+(\.[\w-]+)*\.[a-z]{2,}"
    re.Global = True

    Dim text As String
    text = "担当: yamada@example.com、サブ: sato@sub.example.co.jp まで連絡"

    Dim matches As Object
    Set matches = re.Execute(text)

    Dim emails As String
    emails = ""
    Dim m As Object
    For Each m In matches
        emails = emails & m.Value & vbCrLf
    Next m
    MsgBox "抽出されたメールアドレス:" & vbCrLf & emails

    Set re = Nothing
End Sub

' 電話番号の検証・抽出・正規化
Sub PhonePatterns()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Global = True

    ' ===== パターン1: 電話番号検証（固定・携帯・フリーダイヤル）=====
    ' 固定電話: 0X-XXXX-XXXX / 0XX-XXX-XXXX / 0XXX-XX-XXXX
    ' 携帯: 0X0-XXXX-XXXX
    ' フリーダイヤル: 0120-XXX-XXX / 0800-XXX-XXXX
    re.Pattern = "^(0\d{1,4}-\d{1,4}-\d{4}|0120-\d{3}-\d{3}|0800-\d{3}-\d{4})$"
    re.Global = False

    MsgBox re.Test("03-1234-5678")     ' True（東京固定）
    MsgBox re.Test("090-1234-5678")    ' True（携帯）
    MsgBox re.Test("0120-123-456")     ' True（フリーダイヤル）
    MsgBox re.Test("09012345678")      ' False（ハイフンなし）

    ' ===== パターン2: ハイフンありなし両対応で抽出 =====
    re.Pattern = "0\d{1,4}-?\d{1,4}-?\d{4}"
    re.Global = True

    Dim text As String
    text = "電話: 0312345678、FAX: 03-8765-4321、携帯: 09012345678"

    Dim matches As Object
    Set matches = re.Execute(text)
    Dim m As Object
    For Each m In matches
        MsgBox "電話番号発見: " & m.Value
    Next m

    ' ===== パターン3: ハイフンなしを統一フォーマットに変換 =====
    ' 携帯番号 3-4-4 形式に統一
    Dim re2 As Object
    Set re2 = CreateObject("VBScript.RegExp")
    re2.Pattern = "(0[789]0)(\d{4})(\d{4})"
    re2.Global = True

    Dim result As String
    result = re2.Replace("連絡先 09012345678 / 08087654321", "$1-$2-$3")
    MsgBox result  ' "連絡先 090-1234-5678 / 080-8765-4321"

    Set re = Nothing
    Set re2 = Nothing
End Sub

' 郵便番号の検証・抽出・フォーマット統一
Sub PostalCodePatterns()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' ===== パターン1: 郵便番号検証（〒NNN-NNNN / NNN-NNNN 両対応）=====
    re.Pattern = "^(〒|\u00a5)?\d{3}-\d{4}$"
    re.Global = False

    MsgBox re.Test("100-0001")   ' True
    MsgBox re.Test("〒100-0001") ' True
    MsgBox re.Test("1000001")    ' False（ハイフンなし）
    MsgBox re.Test("100-001")    ' False（桁数不足）

    ' ===== パターン2: テキストから郵便番号を抽出 =====
    re.Pattern = "(〒)?\d{3}-\d{4}"
    re.Global = True

    Dim matches As Object
    Set matches = re.Execute("〒100-0001 千代田区と〒530-0001 大阪市北区")

    Dim m As Object
    For Each m In matches
        MsgBox "郵便番号: " & m.Value
    Next m

    ' ===== パターン3: ハイフンなし7桁→ハイフンあり形式に変換 =====
    Dim re2 As Object
    Set re2 = CreateObject("VBScript.RegExp")
    re2.Pattern = "(\d{3})(\d{4})"
    re2.Global = True
    Dim result As String
    result = re2.Replace("1000001 5300001", "$1-$2")
    MsgBox result  ' "100-0001 530-0001"

    Set re = Nothing
    Set re2 = Nothing
End Sub

' URLの検証と抽出
Sub UrlPatterns()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.IgnoreCase = True

    ' ===== パターン1: URL検証（http/https） =====
    re.Pattern = "^https?://[\w\-\.]+\.[a-z]{2,}(/[\w\-\./\?=&%#]*)?$"
    re.Global = False

    MsgBox re.Test("https://www.example.com")            ' True
    MsgBox re.Test("http://sub.example.co.jp/path?q=1") ' True
    MsgBox re.Test("ftp://example.com")                  ' False（httpsのみ）
    MsgBox re.Test("www.example.com")                    ' False（スキームなし）

    ' ===== パターン2: テキスト中のURLを全件抽出 =====
    re.Pattern = "https?://[\w\-\.]+\.[a-z]{2,}(/[\w\-\./\?=&%#]*)?"
    re.Global = True

    Dim text As String
    text = "会社HP: https://genai-ai.co.jp/ / サービス: https://aikanri.genai-ai.co.jp/"

    Dim matches As Object
    Set matches = re.Execute(text)

    Dim m As Object
    For Each m In matches
        MsgBox "URL: " & m.Value
    Next m

    Set re = Nothing
End Sub

📚 用語解説

Globalプロパティ（全マッチ検索）：RegExpオブジェクトのプロパティ。Trueにすると文字列全体を検索して全てのマッチを返します（ExecuteはMatchesコレクションに全件、Replaceは全マッチを置換）。Falseにすると最初のマッチのみを対象にします。Testメソッドはどちらでも動作は同じ（一致の有無だけ確認）。

' Global=True / False の違いを確認
Sub GlobalPropertyDemonstration()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "\d+"

    ' === Global=False（デフォルト）===
    re.Global = False
    Dim matchesFalse As Object
    Set matchesFalse = re.Execute("abc 123 def 456 ghi 789")
    MsgBox "Global=False: " & matchesFalse.Count & "件"  ' 1件（"123"のみ）

    Dim resultFalse As String
    resultFalse = re.Replace("abc 123 def 456 ghi 789", "NUM")
    MsgBox "Global=False Replace: " & resultFalse  ' "abc NUM def 456 ghi 789"（最初だけ）

    ' === Global=True ===
    re.Global = True
    Dim matchesTrue As Object
    Set matchesTrue = re.Execute("abc 123 def 456 ghi 789")
    MsgBox "Global=True: " & matchesTrue.Count & "件"  ' 3件（"123"・"456"・"789"）

    Dim resultTrue As String
    resultTrue = re.Replace("abc 123 def 456 ghi 789", "NUM")
    MsgBox "Global=True Replace: " & resultTrue  ' "abc NUM def NUM ghi NUM"（全て）

    Set re = Nothing
End Sub

' 正規表現の全マッチを配列で返す汎用関数
Function RegExpExtractAll(text As String, pattern As String, _
                          Optional ignoreCase As Boolean = False) As Variant
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = pattern
    re.IgnoreCase = ignoreCase
    re.Global = True

    Dim matches As Object
    Set matches = re.Execute(text)

    If matches.Count = 0 Then
        RegExpExtractAll = Array()  ' 空配列
        Exit Function
    End If

    Dim results() As String
    ReDim results(0 To matches.Count - 1)

    Dim i As Integer
    For i = 0 To matches.Count - 1
        results(i) = matches(i).Value
    Next i

    RegExpExtractAll = results
    Set re = Nothing
End Function

' 使い方
Sub UseExtractAll()
    Dim text As String
    text = "会員番号: M-00123, M-00456, M-00789 の3名"

    Dim results As Variant
    results = RegExpExtractAll(text, "M-\d{5}")

    If UBound(results) >= 0 Then
        Dim i As Integer
        For i = 0 To UBound(results)
            MsgBox "会員番号 " & (i + 1) & ": " & results(i)
        Next i
    Else
        MsgBox "マッチなし"
    End If
End Sub

' 顧客データのバリデーション一括チェック
Sub CustomerDataValidation()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' バリデーション用RegExpを作成
    Dim reEmail As Object, rePhone As Object, rePostal As Object
    Set reEmail = CreateObject("VBScript.RegExp")
    Set rePhone = CreateObject("VBScript.RegExp")
    Set rePostal = CreateObject("VBScript.RegExp")

    reEmail.Pattern = "^[\w.+-]+@[\w-]+(\.[\w-]+)*\.[a-z]{2,}$"
    reEmail.IgnoreCase = True
    reEmail.Global = False

    rePhone.Pattern = "^0\d{1,4}-\d{1,4}-\d{4}$"
    rePhone.Global = False

    rePostal.Pattern = "^\d{3}-\d{4}$"
    rePostal.Global = False

    ' ヘッダー行の設定（A=氏名 B=メール C=電話 D=郵便番号 E=ステータス）
    ws.Cells(1, 5).Value = "検証結果"

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim ngCount As Long
    ngCount = 0

    Dim r As Long
    For r = 2 To lastRow
        Dim errors As String
        errors = ""

        ' メールアドレスチェック
        Dim emailVal As String
        emailVal = Trim(CStr(ws.Cells(r, 2).Value))
        If emailVal <> "" And Not reEmail.Test(emailVal) Then
            errors = errors & "メール形式NG / "
        End If

        ' 電話番号チェック
        Dim phoneVal As String
        phoneVal = Trim(CStr(ws.Cells(r, 3).Value))
        If phoneVal <> "" And Not rePhone.Test(phoneVal) Then
            errors = errors & "電話形式NG / "
        End If

        ' 郵便番号チェック
        Dim postalVal As String
        postalVal = Trim(CStr(ws.Cells(r, 4).Value))
        If postalVal <> "" And Not rePostal.Test(postalVal) Then
            errors = errors & "郵便番号NG / "
        End If

        If errors <> "" Then
            ws.Cells(r, 5).Value = Left(errors, Len(errors) - 3)  ' 末尾の " / " を除去
            ws.Rows(r).Interior.Color = RGB(255, 235, 156)  ' 薄黄色でハイライト
            ngCount = ngCount + 1
        Else
            ws.Cells(r, 5).Value = "OK"
            ws.Cells(r, 5).Interior.Color = RGB(198, 239, 206)  ' 薄緑
        End If
    Next r

    Set reEmail = Nothing
    Set rePhone = Nothing
    Set rePostal = Nothing

    MsgBox "バリデーション完了" & vbCrLf & _
           "総件数: " & lastRow - 1 & "件" & vbCrLf & _
           "NGあり: " & ngCount & "件"
End Sub

' データクレンジング: 不要文字の一括除去
Sub DataCleansing()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim reSpaces As Object     ' 余分な空白
    Dim reSymbols As Object    ' 不要な記号
    Dim reZenNum As Object     ' 全角数字→半角変換（参考）

    Set reSpaces = CreateObject("VBScript.RegExp")
    Set reSymbols = CreateObject("VBScript.RegExp")

    ' 余分な空白（先頭・末尾・連続空白）
    reSpaces.Pattern = "^\s+|\s+$|\s{2,}"
    reSpaces.Global = True

    ' 不要な記号（括弧・スラッシュ・その他）
    reSymbols.Pattern = "[（）()【】「」『』\[\]《》・]"
    reSymbols.Global = True

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim r As Long
    For r = 2 To lastRow
        Dim original As String
        original = CStr(ws.Cells(r, 1).Value)

        ' Step1: 余分な空白を除去・圧縮
        Dim cleaned As String
        cleaned = reSpaces.Replace(original, " ")
        cleaned = Trim(cleaned)

        ' Step2: 不要記号を除去
        ' cleaned = reSymbols.Replace(cleaned, "")

        ws.Cells(r, 2).Value = cleaned  ' B列にクレンジング後の値を出力
    Next r

    Set reSpaces = Nothing
    Set reSymbols = Nothing
    MsgBox "クレンジング完了: " & lastRow - 1 & "件"
End Sub

' 「売上: 123,456円」のような文字列から数値のみ抽出して合計
Sub ExtractNumbersAndSum()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "[\d,]+"  ' 数字とカンマ
    re.Global = True

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim total As Double
    total = 0

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim r As Long
    For r = 2 To lastRow
        Dim cellText As String
        cellText = CStr(ws.Cells(r, 1).Value)

        Dim matches As Object
        Set matches = re.Execute(cellText)

        If matches.Count > 0 Then
            ' 最初にマッチした数値（カンマ除去して数値変換）
            Dim numStr As String
            numStr = matches(0).Value
            numStr = Replace(numStr, ",", "")  ' カンマ除去

            If IsNumeric(numStr) Then
                Dim num As Double
                num = CDbl(numStr)
                ws.Cells(r, 2).Value = num  ' B列に数値を出力
                total = total + num
            End If
        End If
    Next r

    ws.Cells(lastRow + 1, 2).Value = total
    ws.Cells(lastRow + 1, 1).Value = "合計"

    Set re = Nothing
    MsgBox "数値抽出完了。合計: " & Format(total, "#,##0") & "円"
End Sub

' 住所文字列から都道府県部分を抽出する
Function ExtractPrefecture(address As String) As String
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    ' 都道府県パターン（東京都/大阪府/京都府/北海道 + 残りの県）
    re.Pattern = "^(東京都|大阪府|京都府|北海道|\S+?[都道府県])"
    re.Global = False

    Dim matches As Object
    Set matches = re.Execute(address)

    If matches.Count > 0 Then
        ExtractPrefecture = matches(0).Value
    Else
        ExtractPrefecture = ""  ' 都道府県が判定できない場合
    End If

    Set re = Nothing
End Function

' 使い方
Sub TestExtractPrefecture()
    MsgBox ExtractPrefecture("東京都千代田区丸の内1-1-1")  ' "東京都"
    MsgBox ExtractPrefecture("大阪府大阪市北区梅田1-2-3")  ' "大阪府"
    MsgBox ExtractPrefecture("北海道札幌市中央区1条西1丁目")  ' "北海道"
    MsgBox ExtractPrefecture("神奈川県横浜市西区みなとみらい1-1")  ' "神奈川県"
    MsgBox ExtractPrefecture("埼玉県さいたま市大宮区123-4")  ' "埼玉県"
End Sub

' Claude Codeへの依頼例と典型的な回答パターン

' ===== 依頼例1 =====
' 「社員番号 AB-1234 形式（英大文字2文字+ハイフン+4桁数字）を検証して」

' Claude Codeが生成するコード例:
Function IsValidEmployeeId(empId As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^[A-Z]{2}-\d{4}$"  ' 大文字2文字+ハイフン+4桁数字
    re.IgnoreCase = False              ' 大文字のみ受け付ける
    IsValidEmployeeId = re.Test(empId)
    Set re = Nothing
End Function

' 使い方
Sub TestEmployeeId()
    MsgBox IsValidEmployeeId("AB-1234")   ' True
    MsgBox IsValidEmployeeId("ab-1234")   ' False（小文字NG）
    MsgBox IsValidEmployeeId("ABC-1234")  ' False（3文字NG）
    MsgBox IsValidEmployeeId("AB-123")    ' False（3桁NG）
End Sub

' ===== 依頼例2 =====
' 「IPアドレス（IPv4）の形式を検証するVBAコードを書いて」

Function IsValidIPv4(ip As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    ' 0-255の数値が4組ドット区切り
    re.Pattern = "^((25[0-5]|2[0-4]\d|[01]?\d\d?)\.){3}(25[0-5]|2[0-4]\d|[01]?\d\d?)$"
    IsValidIPv4 = re.Test(ip)
    Set re = Nothing
End Function

Sub TestIPv4()
    MsgBox IsValidIPv4("192.168.1.1")    ' True
    MsgBox IsValidIPv4("255.255.255.0")  ' True
    MsgBox IsValidIPv4("256.0.0.1")      ' False（256は無効）
    MsgBox IsValidIPv4("192.168.1")      ' False（4オクテット必要）
End Sub

NEXT STEP

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