Excel VBAで「正規表現」を制す：複雑な文字列操作を一行で終わらせる技術
現場でExcelを扱う際、`InStr`や`Mid`、`Replace`を幾重にも重ねた「スパゲッティ文字列処理」に時間を溶かしてはいないだろうか？
「郵便番号からハイフンを抜く」「メールアドレスの妥当性をチェックする」「複雑なログから特定のIDだけを抜き出す」。これらを愚直な関数で書けば書くほど、バグの温床が増え、後任者がメンテナンス不能なコードが出来上がる。
業務自動化を志すエンジニアにとって、正規表現（Regular Expressions）は必須の武器だ。今回は、VBAで標準搭載されている`VBScript.RegExp`を、実務で「即戦力」として使い倒すための極限の設計論を伝授する。
—
1. なぜ「RegExpオブジェクト」を直接触るのが危険なのか
VBAで正規表現を使う際、多くの初学者は毎回`CreateObject(“VBScript.RegExp”)`を呼ぶ。だが、大規模なループ処理の中でこれを繰り返せば、メモリの割り当てと解放が頻発し、パフォーマンスは劇的に低下する。
真のアーキテクトが目指すべきは、「一度生成したインスタンスを再利用し、型を定義して管理する」ことだ。以下のコードは、単に動くだけでなく、大規模データ処理にも耐えうる設計を意識している。
—
2. 現場で即戦力となる正規表現ライブラリ（Class設計）
正規表現をバラバラに書くな。クラスモジュールに共通処理として集約し、保守性を担保せよ。
‘ 標準モジュールではなく、クラスモジュール（例: clsRegexUtility）に記述することを推奨
Option Explicit
Private objRegExp As Object
Private Sub Class_Initialize()
‘ インスタンス化のコストを抑えるため、初期化時に一度だけ生成
Set objRegExp = CreateObject(“VBScript.RegExp”)
End Sub
‘ 文字列の抽出（マッチング）用関数
Public Function GetMatches(ByVal targetText As String, ByVal pattern As String) As Object
With objRegExp
.Pattern = pattern
.Global = True ‘ 全ての一致を検索
.IgnoreCase = True ‘ 大文字小文字を無視
.MultiLine = False
Set GetMatches = .Execute(targetText)
End With
End Function
‘ 文字列の置換用関数
Public Function ReplaceText(ByVal targetText As String, ByVal pattern As String, ByVal replaceStr As String) As String
With objRegExp
.Pattern = pattern
.Global = True
ReplaceText = .Replace(targetText, replaceStr)
End With
End Function
—
3. 実践：データベース連携時の「データクレンジング」
外部システムからCSVをインポートした際、電話番号やIDにゴミデータが混入していることは多い。このコードをそのままコピペして、実務のデータ処理フローに組み込んでほしい。
Sub CleanDataExample()
Dim regex As New clsRegexUtility
Dim rawData As String: rawData = “Tel: 090-1234-5678, ID: A123-B456”
‘ 1. ハイフンをすべて削除する（置換）
Dim cleanTel As String
cleanTel = regex.ReplaceText(rawData, “-“, “”)
‘ 2. “ID: “以降の英数字を抽出する（マッチング）
Dim matches As Object
Set matches = regex.GetMatches(rawData, “ID:\s?([A-Z0-9-]+)”)
If matches.Count > 0 Then
Debug.Print “抽出ID: ” & matches(0).SubMatches(0)
End If
End Sub
—
4. アーキテクトからの忠告：3つの鉄則
正規表現は強力だが、劇薬でもある。以下の3点を守れないなら、コードに手を出すべきではない。
1. 「複雑すぎるパターン」は罪である
10行にも及ぶ複雑な正規表現を書くな。後から誰も読めない。どうしても複雑になるなら、処理をステップ分けするか、コメントで「何を取得しようとしているのか」を明記せよ。
2. パフォーマンスを意識せよ
数万行のセルをループして正規表現を回す場合、`MatchCollection`の結果を毎回配列に格納するなど、メモリ効率を考慮せよ。VBAはC++ではない。無駄なオブジェクト生成は命取りだ。
3. 「逃げ」のパターンマッチングを許すな
`.` （ワイルドカード）を多用して「とりあえず全部取れるからOK」とするのは最悪だ。対象のデータが持つ「構造」を限定し、より厳密なマッチングパターン（`\d{3}-\d{4}` など）を定義せよ。それがバグを防ぐ唯一の道だ。
—
まとめ
Excel VBAで正規表現を使うことは、もはや「高級テクニック」ではない。「標準装備」だ。
`VBScript.RegExp`を正しくカプセル化し、再利用可能なパーツとして管理すれば、君のVBAコードは一気にプロフェッショナルな品質へと変貌する。今日から、「文字列処理で悩む時間」を「アーキテクチャを磨く時間」へと変換してほしい。
君の作るツールが、誰かの業務時間を劇的に減らすことを期待している。健闘を祈る。
