【VBAリファレンス】Excel VBAで文字列から数字を完全除去する：正規表現を用いた高速かつエレガントな実装手法

ExcelVBA

2026.08.28

概要：文字列操作における「数値除去」の重要性

Excel VBAを用いた業務自動化において、文字列データから「数字だけを取り除く」という操作は非常に頻繁に発生します。例えば、システムから出力されたCSVデータに含まれる型番から連番を除去したい場合、住所録から番地情報を省いて町名だけを抽出したい場合、あるいはアンケート回答から金額データだけを消去したい場合など、その用途は多岐にわたります。

初心者がやりがちなのは、Left関数やMid関数を組み合わせて、すべての文字をループ処理で判定し、数字以外なら別の文字列変数に格納する……という手法です。しかし、この方法はコードが冗長になるだけでなく、対象データが数万行に及ぶ場合、極めて低速で実務に耐えうるものではありません。

本記事では、VBAで最も効率的かつプロフェッショナルな手法である「正規表現（Regular Expressions）」を用いた文字列操作について、その理論から実務への適用方法まで、余すところなく解説します。

詳細解説：なぜ正規表現（RegExp）を使うべきか

正規表現とは、文字列のパターンを記述するための強力な記法です。VBAには標準で「Microsoft VBScript Regular Expressions 5.5」というライブラリが用意されており、これを使うことで、複雑な条件分岐を一撃で解決できます。

「数字を削除する」という課題に対し、正規表現では「\d」というメタ文字を使用します。「\d」は0から9までの数字すべてを意味します。また、連続する数字を一度に扱うために「+」という量指定子を組み合わせ、「\d+」と記述することで、「1つ以上の連続する数字」を検索対象に設定できます。

このパターンに対し、VBAのReplaceメソッドを実行することで、対象となる数字の塊を空文字に置き換える（＝削除する）ことが可能になります。この処理はOSのエンジンレベルで最適化されているため、VBAのForループで1文字ずつ判定する手法と比較して、圧倒的な処理速度を誇ります。

サンプルコード：実務でそのまま使えるVBA関数

以下のコードは、指定した文字列から数字を削除して返す汎用関数です。標準モジュールに貼り付けてご利用ください。なお、実行には「Microsoft VBScript Regular Expressions 5.5」への参照設定が必要です（VBEの[ツール] > [参照設定]から選択してください）。


' 参照設定なしでも動作する「レイトバインディング」形式で実装
Function RemoveNumbers(ByVal targetString As String) As String
    Dim regExp As Object
    
    ' 正規表現オブジェクトの作成
    Set regExp = CreateObject("VBScript.RegExp")
    
    With regExp
        .Global = True          ' 全ての該当箇所を対象にする
        .IgnoreCase = True      ' 大文字小文字を区別しない
        .Pattern = "\d+"        ' \dは数字、+は1回以上の繰り返しを意味する
    End With
    
    ' 数字を空文字に置換
    RemoveNumbers = regExp.Replace(targetString, "")
    
    Set regExp = Nothing
End Function

' 活用例：セル範囲を一括変換するプロシージャ
Sub ClearNumbersFromSelection()
    Dim cell As Range
    For Each cell In Selection
        If Not IsEmpty(cell.Value) Then
            cell.Value = RemoveNumbers(CStr(cell.Value))
        End If
    Next cell
End Sub

実務アドバイス：パフォーマンスと例外処理の極意

実務でこのコードを運用する際、以下の3点に注意することで、さらに信頼性の高いツールとなります。

1. オブジェクトの生成コストを意識する
もし数万行のデータを処理する場合、ループのたびに「CreateObject」を呼び出すと、その生成コストが無視できなくなります。その場合は、プロシージャの先頭でオブジェクトを作成し、ループの外側で使い回すように設計を工夫してください。

2. 全角数字への対応
日本のビジネス現場特有の問題として、「全角数字」が含まれるケースがあります。正規表現の「\d」は半角数字のみを対象とする場合があります。全角数字も除去したい場合は、パターンを「[0-9０-９]+」と拡張することで、全角・半角混在環境でも漏れなく対応可能です。

3. エラーハンドリング
セルに数式やエラー値（#N/Aなど）が含まれている場合、CStr関数で変換する際に型不一致エラーが発生することがあります。必ず「If IsError(cell.Value) Then」などの判定を入れ、予期せぬエラーでマクロが停止しないよう堅牢な作りを心がけましょう。

まとめ：VBAエンジニアとしてのステップアップ

文字列操作における「数字の削除」は、単なる置換作業ではありません。いかにコードを短く、いかに高速に処理するかという「エンジニアとしての思考」が問われる場面です。

VBAにおいて正規表現を使いこなせるようになると、文字列処理の幅は飛躍的に広がります。今回紹介した「\d+」を「[A-Za-z]+（英字）」や「[^!-~]+（非ASCII文字）」に変えるだけで、抽出や置換の対象は無限に広がります。

ぜひ、このテクニックを自身のツールボックスに加え、日々のExcel業務をよりスマートでストレスのないものへと進化させてください。VBAの可能性は、あなたが書く一歩のコードから、さらに大きく広がっていきます。