正規表現の基本：Excel VBAでアドレスや郵便番号を確認

はじめに

はじめに

「決まった形式のデータだけを検索したい」「入力ミスを自動で検出したい」「大量のテキストから必要な情報だけを抽出したい」と考えたことはありませんか。このような場面で役立つのが正規表現（Regular Expression）です。

正規表現はプログラミングだけの技術ではありません。Excel VBAやテキストエディタ、Linuxコマンド、ログ解析ツールなど、さまざまな環境で利用されています。一度基本的な考え方を理解すると、多くの場面で応用できる便利な知識です。

この記事では、正規表現の仕組みから代表的な記号、実務でよくある利用例、Excel VBAで活用する方法まで、初心者にも分かりやすく解説します。

正規表現とは

正規表現とは、文字列そのものではなく「文字列のルール」を表現するための記述方法です。

例えば、「郵便番号」という文字を探すのではなく、「数字3桁・ハイフン・数字4桁」という規則に一致する文字列を検索できます。同じ考え方でメールアドレスや電話番号、商品コードなども判定できるため、入力チェックやデータ抽出によく利用されています。

通常の文字列検索では完全一致しか見つけられませんが、正規表現を利用すると「この形式なら一致する」という柔軟な検索が可能になります。そのため、大量データを扱うシステムでは欠かせない技術の一つとなっています。

正規表現が利用される場面

正規表現は、意識しなくても日常的に利用されている技術です。

例えば、Webサイトの会員登録でメールアドレスの入力形式を確認したり、ECサイトで郵便番号の入力ミスを検出したりする処理には正規表現が利用されることがあります。また、開発現場ではログファイルからエラーだけを抽出したり、大量のCSVデータを整形したりするときにも活躍します。

プログラミング言語だけでなく、Visual Studio Codeなどのテキストエディタ、Linuxのgrepコマンド、Excel VBAなど、多くのツールで共通して利用できる点も正規表現の大きな特徴です。一度覚えれば、利用する環境が変わっても基本的な考え方はそのまま活用できます。

最低限覚えておきたい正規表現の記号

正規表現には多くの記号がありますが、初心者が最初からすべて覚える必要はありません。実務では、よく使う記号だけでも十分対応できる場面が多くあります。

記号	意味	例
.	任意の1文字	a.c → abc、axc
*	0回以上の繰り返し	ab*c
+	1回以上の繰り返し	ab+c
?	0回または1回	colou?r
\d	数字1文字	5
\w	英数字・アンダースコア	abc123
\s	空白文字	スペース・タブ
^	文字列の先頭	^ABC
$	文字列の末尾	ABC$
[]	いずれか1文字	[ABC]
{n}	ちょうどn回繰り返す	\d{4}

これらの記号を組み合わせることで、多くの入力チェックや検索条件を表現できます。最初は実際に使いながら覚えるほうが理解しやすく、無理に暗記する必要はありません。

実務でよく使われる正規表現

実務では、複雑な正規表現を書くよりも、読みやすく保守しやすいパターンが好まれます。

例えばメールアドレスの入力チェックには、次のような正規表現がよく利用されます。

^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$

これは一般的なメールアドレスの形式を判定するためのパターンです。ただし、RFCで定義されているすべてのメールアドレスを判定できるわけではありません。実務では「入力ミスを減らす」という目的で利用されるケースがほとんどです。

日本の郵便番号を確認する場合は、次のようになります。

^\d{3}-\d{4}$

電話番号の形式を簡易的に確認する場合には、次のような記述が利用できます。

^\d{2,4}-\d{2,4}-\d{4}$

また、CSVデータやコピーした文章には余分なスペースが含まれることがあります。そのような場合は、

\s+

を利用することで、連続した空白をまとめて検索できます。

このように、正規表現は入力チェックだけでなく、データ整理や前処理にも幅広く活用されています。

Excel VBAで正規表現を利用する方法

Excelのワークシート関数では正規表現を直接利用できませんが、VBAではVBScript.RegExpを利用することで検索や判定を行えます。

例えば、メールアドレスの形式を確認する場合は次のようなコードになります。

Sub ValidateEmails()

    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")

    regex.Pattern = "^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$"
    regex.IgnoreCase = True

    Dim cell As Range

    For Each cell In Range("A1:A100")

        If Not regex.Test(cell.Value) Then
            cell.Interior.Color = RGB(255, 0, 0)
        End If

    Next cell

End Sub

このマクロでは、A列のデータを順番に確認し、メールアドレスの形式に一致しないセルを赤色で表示します。

例えば、顧客情報やアンケート結果など数百件から数千件のデータを確認する場合、人が目視でチェックすると時間がかかるだけでなく見落としも発生します。正規表現を利用すれば一定のルールで自動判定できるため、作業時間の短縮と品質向上の両方が期待できます。