【VBAリファレンス】第5回置換機能でできない文字の置き換え 1/4 – 正規表現を用いた高度な文字列操作の極意

ExcelVBA

2026.09.23

概要：Excelの標準機能の限界を超えて

Excelの「置換（Ctrl + H）」機能は、日常業務において非常に強力なツールです。しかし、ベテランの実務者であれば一度は直面したことがあるでしょう。「特定のパターンを持つ文字列だけを置換したい」「改行コードや特殊な制御文字を柔軟に扱いたい」「複雑な条件に基づいた動的な置換を行いたい」といった要求に対し、標準の置換機能はあまりに無力です。

本連載の第5回では、VBAを活用して標準機能では実現不可能な「高度な文字列置換」を実装する手法を解説します。特に今回（1/4）は、文字列操作の最強の武器である「正規表現（Regular Expressions）」の基礎から、VBAでいかにしてこれを取り込むかという技術的基盤に焦点を当てます。

詳細解説：VBScript.RegExpオブジェクトの導入

VBAで正規表現を利用するためには、「Microsoft VBScript Regular Expressions 5.5」というライブラリを参照設定する必要があります。しかし、配布を前提としたツールを作成する場合、あえて「レイトバインディング（CreateObject関数）」を利用することで、参照設定の煩わしさを排除するのがプロの作法です。

正規表現の最大の強みは、単なる固定文字列の一致ではなく、「パターンの定義」にあります。例えば、「電話番号の形式（090-XXXX-XXXX）を探す」「メールアドレスの構文を検証する」「カッコ内の数値のみを抽出する」といった操作は、標準の置換機能では到底不可能です。

正規表現を扱う上での重要なプロパティとメソッドは以下の通りです。

1. Pattern：検索対象となる正規表現パターンを文字列として定義します。
2. Global：検索対象を最初の1つに限定するか、すべてを対象にするかを指定します（Trueならすべて置換）。
3. IgnoreCase：大文字と小文字を区別するかどうかを指定します。
4. Replaceメソッド：定義したパターンに合致する箇所を、別の文字列に置換します。

サンプルコード：正規表現による柔軟な置換

まずは、標準機能では難しい「特定の記号に挟まれた文字列の置換」を例に、正規表現を用いたVBAコードを紹介します。


' 正規表現を用いた置換のサンプル
' 指定されたセル範囲内から「(数値)」の形式を「[数値]」に変換する
Sub AdvancedReplaceWithRegex()
    Dim regEx As Object
    Dim rng As Range
    Dim cell As Range
    
    ' オブジェクトの作成
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 検索パターンの設定（カッコ内の数値にマッチさせる）
    With regEx
        .Pattern = "\((\d+)\)"
        .Global = True
        .IgnoreCase = True
    End With
    
    ' 対象範囲の設定
    Set rng = Selection
    
    ' 各セルに対して置換を実行
    For Each cell In rng
        If regEx.Test(cell.Value) Then
            ' $1はパターン内の(\d+)を指す
            cell.Value = regEx.Replace(cell.Value, "[$1]")
        End If
    Next cell
    
    MsgBox "置換が完了しました。"
End Sub

このコードの肝は、`.Pattern = “$(\d+)$”`という記述です。`\(`はリテラルのカッコを指し、`(\d+)`は「1文字以上の数字」をグループとしてキャプチャします。置換後の文字列として指定した`[$1]`は、キャプチャしたグループの内容を保持したまま、カッコの種類だけを変換するという高度な処理を行っています。

実務アドバイス：保守性とパフォーマンスのバランス

正規表現は強力ですが、万能ではありません。実務で導入する際には以下の3点に留意してください。

第一に「パターンの可読性」です。複雑すぎる正規表現は、後からコードを見た時に何をしているのか理解不能になりがちです。パターンは適宜コメントに残すか、定数として管理し、後任者にも意図が伝わるように設計してください。

第二に「パフォーマンス」です。数万行のデータに対してループ内で逐一正規表現オブジェクトを生成・破棄するのは非効率です。ループの外でオブジェクトを生成し、中ではプロパティの更新のみを行うか、あるいは配列（Variant型）にデータを格納してから一括処理する手法を検討しましょう。

第三に「エスケープ処理」です。Excel上の文字列には、意図しない改行コードやスペースが混入していることが多々あります。正規表現で「改行（\nや\r）」を含めたマッチングを行いたい場合は、VBA側でvbCrLfなどを適切に扱う必要があります。

まとめ：次回の展望

今回は「第5回置換機能でできない文字の置き換え 1/4」として、正規表現の基礎とVBAでの実装方法を解説しました。標準の置換機能では、せいぜい文字を文字で置き換えることしかできませんが、正規表現を習得すれば「構造」を認識して操作することが可能になります。

次回（2/4）では、今回学んだ正規表現をさらに深掘りし、「複数パターンの同時置換」や「置換処理におけるコールバック関数の活用（MatchCollectionの操作）」といった、より高度なトピックに踏み込みます。この技術をマスターすれば、貴方のExcel自動化ツールは、単なる事務処理ソフトから、データ変換・整形エンジンの域へと進化するはずです。

プロフェッショナルなVBAエンジニアを目指すのであれば、今日紹介した「CreateObject(“VBScript.RegExp”)」を自身のツールキットに確実に組み込んでおいてください。正規表現を知っているか否かで、業務効率化の幅は劇的に変わるのです。