ボタンを押しても何も起きない、いつもの「コンテンツの有効化」ボタンすら見当たらない。締め切りは目前なのに、いきなり手が止まって焦りますよね。

しかも厄介なのは、原因が1つではないことです。症状は、ざっと分けても次の4つ。

• 赤バーが出るケース
• 黄バーが出るケース
• そもそもブロックを解除したはずなのに動かないケース
• Web版だから構造的に動かないケース

どれに当たるかで正しい対処法はまったく違い、間違った対処をしても時間を浪費するだけ。

この記事では、まず冒頭のチェックリストであなたの症状を4パターンに切り分け、それぞれの正しい解決法へ最短でご案内します。特に競合記事がほとんど触れていない「解除したのに動かない5大原因」と「実行時エラー番号別の初動チェック」を、診断表で具体的に解説します。

読み終わるころには、もらった.xlsmを自力で動かせるようになっているはず。

対応バージョン: デスクトップ版 Excel（Windows）/ Microsoft 365・Office 2021・2019・2016。ファイルのプロパティによるブロック解除（MOTW）はバージョン 2203（2022年4月）以降の挙動です。Excel Web版（Office on the web）ではマクロ機能自体が提供されていません。

なお、本記事では「マクロ」と「VBA」をほぼ同じ意味で使っています。厳密な違いが気になる方はExcel VBAとマクロの違いを先に読むと用語の整理がつきますが、今回は「動かないマクロを動かす」ことだけに集中して進めます。

まず確認｜あなたの症状はどれ？（症状別チェックリスト）

マクロが動かない原因を切り分けるには、まず「画面に何が表示されているか」を見るのが一番の近道です。次の4パターンのうち、あなたの状況に一番近いものを選んで、該当セクションへ進んでください。

原因ごとに対処がまったく違うので、ここで自分のケースを正しく判断することが、遠回りしないための最重要ステップになります。

ポイントは「コンテンツの有効化」ボタンの有無です。ボタンが見当たらない赤バーは2022年以降の新しいブロック（MOTW）で、ボタンがある黄バーは従来からある通知です。

この2つは仕組みが違うため、解除方法も別物になります。混同して「黄バーの手順」を赤バーに試しても解決しないので注意してください。

「バーは出ていないのに動かない」「ボタンを押すとエラー番号が表示される」という方は、パターンCと最後の「実行時エラー」セクションが本命です。

【パターンA・B】バーが出る → ブロック解除とコンテンツの有効化

まず確認したいのが、ファイルを開いたときに出る警告バーの色です。赤バーならインターネット由来のファイルに対するハードブロック、黄バーなら従来からあるマクロ無効の通知で、対処が変わります。

ここはシリーズ第1ステップにあたる部分。要点に絞って、詳しい設定は既存記事へご案内しましょう。

【パターンA】赤バー「マクロの実行がブロックされました」→ プロパティでブロック解除

赤バーは、インターネット経由で入手したファイル（メール添付・ダウンロード・チャット共有など）に付く「MOTW（Mark of the Web）」という印が原因です。Excelはこの印が付いたファイルのマクロを、2022年以降は問答無用でブロックします。

だから「コンテンツの有効化」ボタンが表示されないというわけです。

解除の基本手順は次のとおりです。ファイルを一度閉じてから操作してください。

1. エクスプローラーで該当の.xlsmファイルを右クリックし、「プロパティ」を開く
2. 「全般」タブの一番下にある「セキュリティ: このファイルは他のコンピューターから取得したものです。」の右、「許可する」（または「ブロックの解除」）にチェックを入れる
3. 「OK」を押す
4. ファイルを開き直す

これで赤バーが消えてマクロが使えるようになります。「許可する」のチェックボックスは、MOTWが付いているファイルにしか表示されません。チェックボックスが見当たらない場合は、すでに印が付いていない＝別の原因なので、パターンCへ進んでください。

この第1ステップの詳細な手順（PowerShellでの一括解除、信頼できる場所の設定、OneDrive/SharePoint経由のファイルの扱いなど）は、シリーズ第1ステップ記事Excelマクロが有効にならない原因と信頼設定の直し方【状況別】で丁寧に解説しています。本記事はその先の「解除したのに動かない」を主軸にするため、ここでは要点のみにとどめます。

【パターンB】黄バー「コンテンツの有効化」→ 有効化と信頼できる場所

黄色いバーで「セキュリティの警告 マクロが無効にされました」と出て、右側に「コンテンツの有効化」ボタンがある場合は、赤バーより対処はシンプルです。

これはMOTWによるハードブロックではなく、トラストセンターのデフォルト設定「通知を含むVBAマクロを無効にする」による、従来からある安全確認の通知です。

信頼できる送り主からのファイルであることを確認したうえで、次のように操作します。

1. 黄色いバーの「コンテンツの有効化」ボタンをクリックする
2. これでマクロが有効になり、その場で実行できる

ただし、同じファイルを開くたびに毎回このボタンを押すのは面倒ですよね。社内で繰り返し使う信頼済みのファイルなら、決まったフォルダを「信頼できる場所（Trusted Locations）」に登録しておくと、以後は確認なしでマクロが有効になります。

信頼できる場所に保存されたファイルは、MOTWの赤バーすら回避できます。

信頼できる場所の登録手順や、トラストセンターでの細かい設定は、こちらもExcelマクロが有効にならない原因と信頼設定の直し方【状況別】に詳しくまとめてあります。「毎回確認が出るのを止めたい」方はあわせてご覧ください。

なお、信頼できる場所はとても強力な設定です。出所のわからないファイルをそのフォルダに放り込むと、危険なマクロも無確認で実行されてしまうので、本当に信頼できるファイルだけに使ってください。

【パターンC】ブロック解除済みなのに動かない｜5大原因を診断

ここからが本記事の核心です。「プロパティで許可した」「コンテンツの有効化も押した」——それなのにボタンを押しても反応がない、マクロのメニューが空っぽ、というケースは意外と多いもの。

競合記事の多くは「ブロック解除」で話を終えてしまいますが、実際の現場で詰まるのはこの「解除後」だったりします。

原因は大きく5つに分けられます。まずは下の診断フロー表で、自分の症状に近い行を探してください。そのあと各原因の対処を順に解説します。

原因①　拡張子が.xlsx のままになっている

最も見落とされがちなのがこれです。マクロを含むファイルは「Excelマクロ有能ブック（.xlsm）」でなければなりません。通常の「Excelブック（.xlsx）」は、セキュリティ上の理由からVBAマクロをそもそも保存できない形式です。

問題は、.xlsmファイルを開いて編集したあと「上書き保存」ではなく「名前を付けて保存」で.xlsxを選んでしまうケースです。

このときマクロは警告とともに削除され、消えてしまいます。そのファイルを後から開いても、当然マクロは1つも残っていません。

対処は、ファイル名の末尾が.xlsmになっているかを確認することです。

.xlsxになっていたら、そのファイルのマクロは消失済みなので、元のファイルを送ってくれた人に.xlsm形式で再送してもらうしかありません。自分で拡張子だけ.xlsmに書き換えてもマクロは復活しないので注意してください。

原因②　保護ビューが残っている（「編集を有効にする」未実施）

「保護ビュー」は、MOTWのマクロブロックとは別のセキュリティ機能です。インターネット由来のファイルを開くと、画面上部に黄色い帯で「保護ビュー 注意 – インターネットから入手したファイルは～」と表示され、ファイルが閲覧専用状態になります。

この状態ではマクロの実行どころか、セルの編集もできません。帯の中にある「編集を有効にする」ボタンをクリックすると保護ビューが解除され、通常の編集ができるようになります。

赤バーのブロックと保護ビューの両方が出ている場合は、保護ビューの解除（編集を有効にする）→ プロパティでのブロック解除の順で対応するとスムーズです。保護ビューを抜けないと、そもそもマクロの設定にたどり着けないことがあります。

原因③　トラストセンターの設定が「通知なしでVBAマクロを無効にする」

バーも警告も一切出ないのにマクロが動かない場合、トラストセンターのマクロ設定が最も制限的な状態になっている可能性があります。設定は次の場所で確認しましょう。

「ファイル」→「オプション」→「トラストセンター」→「トラストセンターの設定」→「マクロの設定」

ここには4つの選択肢があります。それぞれの意味を正確に把握しておきましょう。

「通知なしでVBAマクロを無効にする」になっていると、警告が一切出ないまま黙ってブロックされるため、「設定したはずなのに動かない」という状況になります。通常は上から2番目の「通知を含むVBAマクロを無効にする」に戻しておくのが、安全性と使い勝手のバランスが取れた標準設定です。

一番下の「有効にする」は危険なマクロも無確認で動いてしまうので、選ばないでください。

原因④　グループポリシーでロックされている（設定がグレーアウト）

会社支給のパソコンでよくあるのがこれです。トラストセンターのマクロ設定を開いても、項目がグレーアウトしていて選び直せない——この場合は、IT部門がグループポリシー（またはMicrosoft Intune・クラウドポリシー）でマクロの動作を会社全体に強制設定しています。

組織として「インターネットからのOfficeファイルでのマクロ実行をブロック」などを一律で適用しているため、個人の設定変更は受け付けません。これは故障ではなく、セキュリティポリシーによる正常な制御です。

対処は、自分でどうにかしようとせず、IT管理者・情報システム部門に「業務でこのマクロ付きファイルを使う必要がある」と相談することです。正規の手続きとして、特定フォルダを信頼できる場所に追加してもらう、署名付きマクロとして配布してもらう、といった対応が考えられます。

設定を無理にいじろうとすると、別のトラブルを招くこともあるので避けましょう。

原因⑤　セキュリティソフトが干渉している

ごくまれですが、サードパーティ製のセキュリティソフトがマクロ付きファイルの動作を監視し、結果としてマクロの実行を妨げたり、ファイルを開く瞬間にExcelが固まる・落ちることがあります。

①〜④をすべて確認しても原因が特定できないときの「最後に疑う候補」として覚えておいてください。切り分けの方法としては、セキュリティソフトの検査対象から一時的にそのファイル（または保存フォルダ）を除外し、症状が消えるかを確認します。

ただし、これはあくまで原因の切り分けが目的です。除外したまま放置するとセキュリティ上のリスクになりますし、設定変更は会社のルールに反する場合もあります。

会社支給端末では、勝手にセキュリティソフトの設定を変えず、IT部門に状況を伝えるのが安全でしょう。

【パターンD】Excel Web版ではマクロは動かない

「ブラウザ上のExcelで開いているのにマクロが動かない」——これは設定の問題ではなく、そもそも構造的に動かないケースです。ここを知らないと、解決しない設定をいくら触っても時間の無駄になります。

Web版でマクロが実行できない構造的な理由

VBAマクロは、もともとWindowsのデスクトップアプリを前提に設計された仕組みです。パソコン上の他のソフトと連携（COM/OLE）して動く構造のため、ブラウザの中で動くExcel for the webにはその土台がありません。

Microsoftの公式なプラットフォーム対応表でも、VBAマクロの対応状況は次のように明記されています。

つまりWeb版では、マクロを「作る」ことも「実行する」ことも「編集する」こともできません。Web版でマクロ付きファイルを開いても、マクロは実行されないまま、ただ表が開くだけです。

デスクトップ版に切り替えてマクロを実行する手順

もらった.xlsmのマクロを動かしたいなら、Windowsのデスクトップ版Excelで開く必要があります。Web版から切り替える流れは次のとおりです。

1. Web版でファイルを開いている状態で、リボンの「編集」付近にある「デスクトップアプリで開く」を選ぶ（OneDrive/SharePoint上のファイルの場合）
2. デスクトップ版Excelが起動し、同じファイルが開く
3. デスクトップ版で、本記事のパターンA〜Cに沿ってブロック解除・設定確認を行う

ファイルが手元にダウンロードできるなら、いったんパソコンに保存してから、エクスプローラーでダブルクリックしてデスクトップ版Excelで開く方法でも構いません。いずれにせよ、マクロを動かす舞台はWindowsのデスクトップ版と覚えておけば迷いません。

Web版の代替手段：Office Scripts について

「どうしてもWeb版だけで自動化したい」という場合は、VBAの代わりに「Office Scripts」という仕組みが用意されています。これはTypeScriptで記述する自動化機能で、Web版でも動き、Power Automateのフローからも呼び出せます。

ただしOffice Scriptsの利用には企業ライセンスや教育ライセンスが必要で、VBAとは別物の知識が要る点には注意してください。

受け取った.xlsmをそのまま動かす今回の目的からは外れるので、ここでは「Web版にはOffice Scriptsという別系統の選択肢がある」とだけ押さえておけば十分です。

実行時エラーが出る場合の初動チェック（エラー番号早見表）

ブロックの解除も設定もクリアして、いざマクロを実行したら、今度は「実行時エラー ‘1004’」のような番号付きのメッセージが出て止まる——これはマクロの「環境」ではなく「中身（VBAコード側）」で何かが起きているサインです。

受け取った側で完璧に直すのは難しい場合もありますが、番号を見れば「何を確認すればいいか」の当たりはつきます。よく出る4つの番号について、まず確認すべきポイントを早見表にまとめました。

ひとつ補足しておくと、エラー1004は「汎用エラー」で、いろいろな状況で出る番号です。原因は、たとえば次のようにさまざま。

• シート名が違う
• セル範囲が存在しない
• ワークシートが保護されている
• ファイルパスが間違っている

まずはマクロが触ろうとしているシート名やセル範囲が、いま開いているファイルに実在するかを確認するのが近道です。

もらったファイルが「特定のシート名があることを前提に作られている」のに、自分の環境ではそのシートをリネームしてしまった、というのは典型的なつまずきポイントです。

エラー番号別のより詳しい原因と修正方法、デバッグの進め方はVBAエラー解決ガイドで体系的に解説しています。コードに踏み込んで直したい方は、こちらをあわせてご覧ください。

まとめ｜症状別フローの振り返りと次のステップ

マクロが動かない原因は1つではありませんが、「画面に何が出ているか」で切り分ければ、対処は一本道です。最後に、症状から解決策への対応を1行ずつ振り返っておきましょう。

まず確認すべきは「コンテンツの有効化ボタンの有無」、次に「拡張子が.xlsmか」、それでもダメならトラストセンターの設定、という順番で見ていけば、ほとんどのケースは自力で解決できます。

無事にマクロが動いたなら、次は「自分でも簡単なマクロを直せる・作れる」ようになると、こうしたトラブルにぐっと強くなります。受け取ったファイルを動かすだけでなく、自分で業務を自動化できるようになれば、仕事の効率は大きく変わるはず。

VBAをこれから学んでみたい方は、まずExcel VBAを学ぶ前に押さえたい基礎知識から始めると、全体像がつかめてつまずきにくくなります。

Excelのマクロが有効にならない原因はほぼ決まっていて、設定で恒久的に解決できます。

この記事では、「毎回警告が出る」「ボタン自体が出ない」など状況別に原因を切り分けます。その場しのぎではなく、今後ずっと困らないための信頼設定の手順までを解説します。マクロとVBAの基礎を確認したい方は、先にExcel VBAとマクロの違い｜関係性と活用例を初心者向けに解説に目を通しておくと、本記事の用語がさらに理解しやすくなります。

マクロが無効になる原因はどれ？状況別チェックリスト

まずは「自分のケースがどれに当てはまるか」を特定しましょう。原因が違えば、打つべき手も変わります。

次のチェックリストで、当てはまる症状を確認してください。

• ファイルを開くと黄色いバー（セキュリティ警告）が出て、「コンテンツの有効化」ボタンが表示される
• 赤いバーで「マクロの実行がブロックされました」と出て、有効化ボタンがない
• ファイル → オプション → トラストセンターを開いてもマクロ設定がグレーアウトして変更できない
• 「編集を有効にする」を押した後、もう一度別の警告が出る

それぞれ原因と対処法がまったく異なります。順に解説していきます。

Mark of the Web（MOTW）とは何か

最近のExcelでマクロが急にブロックされるようになった大きな理由が、Mark of the Web（MOTW） と呼ばれる仕組みです。

MOTWは、インターネットや制限付きゾーンから入手したファイルにWindowsが自動で付ける「出所タグ」です。NTFSの代替データストリーム（Zone.Identifier）として記録されます。

メール添付・ブラウザでダウンロード・チャットからの保存——こうした経路で受け取ったファイルには、ほぼ例外なくMOTWが付きます。ExcelはこのタグをもとにFileを「インターネット由来」と判断し、マクロを自動でブロックします。

ファイルの入手経路別・原因マップ

ファイルをどこから入手したかで、MOTWの付き方が変わります。

「同じ社内ファイルでも、メールで届いた版はブロックされ、共有フォルダ版は動く」という現象はこれが原因です。

「コンテンツの有効化」が出ない vs 毎回警告が出る の違い

ここが多くの方を混乱させるポイントです。

• 黄色いバー＋「コンテンツの有効化」ボタンが出る：2022年以前の従来挙動。ボタンを押せばその場で有効化できます
• 赤いバー＋有効化ボタンが出ない：バージョン2203以降の新しいブロック動作。ボタンでは解除できません。ファイルのプロパティから「ブロックの解除」を行う必要があります

「以前は押せたボタンが消えた」と感じる方は、Excelが新仕様に更新されたサインです。慌てずに次の章の手順に進みましょう。

【原因1】毎回セキュリティ警告が出る → コンテンツの有効化

まずは従来型の黄色いバーが出るケースから見ていきます。

セキュリティ警告バナーの見方

ファイルを開いた直後、リボンの下に次のようなバーが表示されます。

セキュリティの警告 マクロが無効にされました。  [コンテンツの有効化]

この状態は「マクロは含まれているが、安全のために一時停止中」を意味します。出所がはっきりしているファイルであれば、ボタンを押して有効化できます。

「コンテンツの有効化」ボタンで一時的に解除する手順

手順はとてもシンプルです。

1. ファイルを開く
2. リボン下の黄色いバーにある 「コンテンツの有効化」 をクリック
3. バーが消え、マクロが動作するようになる

一度この操作をしたファイルは「信頼済みドキュメント」として登録されます。次回以降は警告が出なくなります。

ただし、ファイルの保存場所を移動したり、別の人に渡すと再び警告が出ます。「同じファイルを毎回有効化している」という方は、後述の「信頼できる場所」を設定すると一発で解決します。

保護ビューと二段階解除が必要なケース

「編集を有効にする」というボタンが先に出るケースもあります。これは保護ビュー（Protected View）と呼ばれる別レイヤーのセキュリティです。

この場合は、2段階の操作が必要です。

1. 「編集を有効にする」をクリック（保護ビューを解除）
2. その後表示される「コンテンツの有効化」をクリック（マクロを有効化）

「1回押したのにまだ動かない」と感じたら、バナーが2種類連続で出ていないか確認してみてください。

【原因2】有効化ボタンが出ない → ファイルのブロック解除

「赤いバーで有効化ボタンがない」場合は、こちらの手順です。

バージョン2203以降の新しいブロック動作

Microsoft 365のExcelは、バージョン2203（2022年4月以降）から仕様が大きく変わりました。インターネットゾーンから入手したファイル（MOTWが付いたファイル）に対しては、「コンテンツの有効化」ボタンが表示されなくなりました。

出典：Microsoft Learn「インターネットから入手したマクロのブロック」

代わりに「マクロの実行がブロックされました」という赤いバーが出ます。これはバグではなく、正しい仕様です。

ファイルのプロパティから「ブロックの解除」する手順

新仕様の場合は、Excel上ではなくWindowsのファイルプロパティから解除します。

※ 操作画面はデスクトップ版Excel（Windows）のエクスプローラーでご確認ください。

1. Excelを一度閉じる
2. エクスプローラーで対象の .xlsm ファイルを右クリック
3. 「プロパティ」 をクリック
4. 「全般」タブの一番下にある 「セキュリティ」 欄を確認
5. 「ブロックの解除」 チェックボックスにチェックを入れる
6. 「OK」 をクリックして閉じる
7. もう一度Excelで開く

これでMOTWが削除され、通常通りマクロが動作します。

なお、ネットワーク共有フォルダ上のファイルでは、「ブロックの解除」チェックボックスが表示されないことがあります。その場合は一度ローカル（デスクトップ等）にコピーしてから操作するか、後述の「信頼できる場所」を活用してください。

【恒久対策】信頼できる場所を登録してマクロを毎回自動有効化

「毎回手作業でブロック解除するのは面倒」「決まったフォルダ内のファイルは全部許可したい」——そんな方には信頼できる場所の登録が最も効率的です。

トラストセンターの信頼できる場所とは

トラストセンター（Trust Center）はOfficeのセキュリティ設定をまとめた管理画面です。信頼できる場所に登録したフォルダは、「ここに置かれたファイルは確認済みで安全」という扱いになります。

信頼できる場所に保存されたファイルは、MOTWのチェックを無視してマクロが有効な状態で開きます。警告バーすら出ません。

信頼できる場所を追加する手順

たとえば C:WorkMacros フォルダを信頼できる場所として登録する手順です。

※ トラストセンターの設定画面はデスクトップ版Excel（Windows）でご確認ください。

1. Excelを開いて 「ファイル」 → 「オプション」 をクリック
2. 左メニューの 「トラストセンター」 を選択
3. 「トラストセンターの設定」 ボタンをクリック
4. 左メニューの 「信頼できる場所」 を選択
5. 右下の 「新しい場所の追加」 をクリック
6. 「参照」 からフォルダを指定（例: C:WorkMacros）
7. サブフォルダも含めたい場合は 「この場所のサブフォルダーも信頼する」 にチェック
8. 「OK」 を3回押して閉じる

これ以降、このフォルダ内に置いたマクロ入りファイルは、警告なしで自動的にマクロが有効になります。

ただし、ネットワーク上のパス（\servershare のような共有フォルダ）を信頼できる場所に設定することはMicrosoftが推奨していません。社内サーバーの場合は、IT管理者と相談の上で「信頼済みサイトゾーンへの追加」で対応するのが安全です。

信頼設定の3パターン比較 ── どれを選べばいい？

ここまで紹介した3つの方法を、用途・手間・リスクの観点で比較します。

コンテンツ有効化 vs ブロック解除 vs 信頼できる場所（比較表）

選び方の目安は次の通りです。

• 月に数回しか開かないファイル → コンテンツの有効化
• 新仕様で有効化ボタンが消えている → ブロック解除
• 毎日使う業務マクロが複数ある → 信頼できる場所

「専用フォルダを1つ作って信頼できる場所に登録し、業務用マクロはすべてそこに集約する」というのが、最もストレスの少ない運用です。

それでも動かないときの追加チェック5項目

ここまでの設定をしてもマクロが動かない場合、次の5つを順番に確認してください。

1. 拡張子が .xlsx になっていないか確認：.xlsx はマクロを保存できない形式です。.xlsm（マクロ有効ブック）に保存し直す必要があります
2. マクロ設定が「すべて無効（通知なし）」になっていないか確認：トラストセンター → マクロの設定で、推奨は「警告して、VBAマクロを無効にする」です（出典：Microsoft サポート「マクロの設定を変更する」）
3. トラストセンターがグレーアウトしている：会社のグループポリシー（GPO）で一括管理されています。個人では変更できないため、IT管理者に申請してください
4. セキュリティソフトの干渉：一部のウイルス対策ソフトはVBAの動作を独自にブロックします。一時的に除外設定にして動作が変わるか確認します
5. 保護ビューが残っている：「編集を有効にする」を押し忘れていないか、もう一度バナーを確認してください

特に「トラストセンターがグレーアウト」は、個人では解決できない代表例です。早めにIT管理者に相談したほうが時間の節約になります。

まとめ

Excelのマクロが有効にならない問題は、原因さえ特定できればほぼ確実に解決できます。本記事の要点を振り返ります。

• 黄色いバー＋ボタンあり → 「コンテンツの有効化」をクリック
• 赤いバー＋ボタンなし → ファイルのプロパティから「ブロックの解除」
• 毎日使うファイル → 信頼できる場所にフォルダを登録
• グレーアウトで設定変更不可 → IT管理者に相談
• 動かないときは拡張子・マクロ設定・保護ビュー・セキュリティソフトを順に確認

マクロが動くようになったら、次は実際にマクロを書いたり改造したりするステップに進んでみましょう。VBAの学習をどこから始めればよいか分からないという方は、Excel VBAを学ぶ前に押さえたい基礎知識｜開発タブの表示からVBE起動までで開発環境の準備から丁寧に解説しています。

落ち着いて1ステップずつ確認すれば、明日からの業務はもうマクロ警告で止まりません。

TRIMやSUBSTITUTE、LEFTやMIDなどの文字列関数を組み合わせれば、簡単な処理ならなんとかなります。でも「数字3桁＋ハイフン＋数字4桁」のような「形のパターン」を扱おうとすると、とたんに数式が長く複雑になります。書いた本人すら後で読めなくなる、なんてこともありますよね。

そんな複雑な文字列処理を一気にシンプルにしてくれるのが、VBAの正規表現（RegExp）です。「特定の形に一致するか」「一致した部分だけ取り出す」「一致した部分だけ置き換える」といった処理を、短いパターン文字列で表現できます。

この記事では、VBAで正規表現を使う方法を、準備から実務パターンまで丁寧に解説します。コピペで使えるサンプルコード5本と、ブックマークしておくと便利なメタ文字の早見表も用意しました。正規表現に触れたことがない方でも、読み終わるころには自分のマクロに組み込めるようになりますよ。

VBAで正規表現が必要になる場面

正規表現は「文字列の形（パターン）」を表現するための記法です。たとえば「数字が3桁続く」「先頭が0で始まる電話番号」といったルールを、短い記号の並びで書き表せます。

VBAでは標準の文字列関数も豊富に用意されています。ではなぜ、わざわざ正規表現を使うのでしょうか。それは、文字列関数だけでは「形のパターン」を扱うのが苦手だからです。

ここでは、正規表現が本当に役立つ場面を整理します。逆に言えば、ここで挙げる悩みがなければ無理に使う必要はありません。適材適所で使い分けるのがコツですよ。

TRIM・SUBSTITUTEでは対処できないケースとは

VBAの文字列関数は「決まった位置」や「決まった文字」を扱うのは得意です。たとえば前後の空白を消すならTRIM、特定の文字を別の文字に置き換えるならSUBSTITUTE（Replace関数）で十分です。

ところが、次のようなケースになると一気に難しくなります。

• 「数字が3桁、ハイフン、数字が4桁」のように、文字の「並び方のルール」で判定したい
• セルの中に紛れ込んだ郵便番号や電話番号だけを取り出したい
• 全角の英数字が混ざっているかどうかを検出したい
• 複数種類の記号をまとめて一括削除したい

たとえば「文字列がメールアドレスの形式か」を文字列関数だけで判定するとします。アットマークの有無、ドットの位置、前後の文字種など、無数のIf文が必要になります。考えただけで気が遠くなりますよね。

これを正規表現なら、たった1行のパターンで表現できます。「形のルールで判定・抽出・置換したい」という場面こそ、正規表現の出番なのです。

Like演算子との使い分け基準

VBAには正規表現に似た機能として、Like演算子があります。If 文字列 Like "A*" のように、ワイルドカードを使った曖昧な比較ができる演算子です。

Like演算子は手軽で、参照設定も不要です。「Aで始まる」「数字を1文字含む」程度の単純な判定なら、Like演算子のほうが速く書けます。

ただしLike演算子には限界があります。「数字が3桁以上連続する」のような繰り返し回数の指定や、一致した部分の抽出はできません。複雑なパターンになるほど、正規表現に軍配が上がります。

ざっくりした使い分けの目安は次のとおりです。

Like演算子の詳しい使い方は、VBA Like演算子の使い方｜ワイルドカード5種で文字列を曖昧比較する方法で解説しています。「Likeでは難しいな」と感じたら正規表現へ、と覚えておくとスムーズですよ。

RegExpオブジェクトの準備

VBAの正規表現は、RegExpという専用のオブジェクトを使って動かします。このRegExpは、もともとVBScript用に作られた正規表現エンジンです。Windowsに標準で組み込まれているCOMコンポーネントなので、Excel VBAから呼び出して使えます。

RegExpオブジェクトを用意する方法は2つあります。1つは「参照設定」をする方法（早期バインディング）、もう1つはCreateObject関数で呼び出す方法（遅延バインディング）です。

どちらでも同じことができますが、メリットが異なります。まずは両方の手順を見て、最後に使い分けの基準を整理しますね。なお、この記事のコードはExcel 2019・2021・Microsoft 365のいずれでも動作します。

参照設定あり（早期バインディング）の手順

参照設定をしておくと、コードの記述が少しスッキリし、入力補助（IntelliSense）も効くようになります。手順は次のとおりです。

まずVBE（Visual Basic Editor）を開きます。ExcelでAlt + F11キーを押すか、開発タブの「Visual Basic」ボタンから開けます。開発タブが表示されていない場合は、ファイル → オプション → リボンのユーザー設定で「開発」にチェックを入れてください。

VBEが開いたら、メニューの「ツール」→「参照設定」を選びます。一覧から「Microsoft VBScript Regular Expressions 5.5」を探してチェックを入れ、OKを押します。これで準備完了です。

!_images/excel-vba-regexp-howto/01_screenshot_vbe-reference-setting.png

参照設定をした場合、RegExpオブジェクトは次のように宣言します。

Sub RegExp早期バインディング例()
    Dim re As New RegExp '参照設定でRegExp型が使えるようになる
    re.Pattern = "d{3}"  'パターン: 数字が3桁連続
    re.Global = True       '一致する全箇所を対象にする

    MsgBox re.Test("商品コード123")  '「123」を含むのでTrueが返る
End Sub

Dim re As New RegExp のように型名を直接書ける点が、参照設定のメリットです。入力中に候補が出るので、プロパティ名のタイプミスも防げますよ。

CreateObjectあり（遅延バインディング）の手順

もう1つの方法が、CreateObject関数を使う遅延バインディングです。参照設定が不要なので、マクロを他の人に配布するときに便利です。

宣言と作成は次のように書きます。

Sub RegExp遅延バインディング例()
    Dim re As Object '型は汎用のObjectで宣言する
    Set re = CreateObject("VBScript.RegExp") 'RegExpを実行時に生成

    re.Pattern = "d{3}" 'パターン: 数字が3桁連続
    re.Global = True      '一致する全箇所を対象にする

    MsgBox re.Test("商品コード123")  '「123」を含むのでTrueが返る
End Sub

ポイントは2つです。1つ目は、変数を As Object で宣言すること。2つ目は、Set re = CreateObject("VBScript.RegExp") でオブジェクトを生成することです。

参照設定をしていない環境でもそのまま動くので、社内の複数のパソコンでマクロを共有する場合はこちらが安心です。「あれ、参照設定し忘れた」というトラブルが起きませんよ。

早期 vs 遅延 どちらを選ぶか比較表

早期バインディングと遅延バインディングは、それぞれ得意な場面が違います。次の比較表で整理しました。

Microsoftは、可能な限り早期バインディングを使うことを公式に推奨しています。自分専用のマクロや、速度を重視したい処理では早期バインディングが向いています。

一方で、配布先の環境がわからない場合や、複数バージョンのExcel間で使い回したい場合は、遅延バインディングが安全です。「自分用は早期、配布用は遅延」と覚えておくと迷いませんよ。

なお、この記事のサンプルコードは、どちらの方式でもそのまま動くように書いていきます。

RegExpの3つのプロパティと3つのメソッド

RegExpオブジェクトは、3つのプロパティと3つのメソッドさえ押さえれば使いこなせます。覚えることが少ないのは、うれしいポイントですよね。

プロパティは「どう探すか」の設定で、Pattern・Global・IgnoreCaseの3つです。メソッドは「何をするか」の動作で、Test・Replace・Executeの3つです。

ここからは、それぞれを順番に見ていきます。この6つを理解すれば、後半の実務パターンもすんなり読めるようになりますよ。

Pattern・IgnoreCase・Globalの設定方法

まずは3つのプロパティです。RegExpオブジェクトを作ったあと、探す前に設定しておきます。

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

    re.Pattern = "[a-z]+"  '探したいパターンを指定する（必須）
    re.IgnoreCase = True    '大文字小文字を区別しない（既定はFalse）
    re.Global = True        '一致する全箇所を対象にする（既定はFalse）

    MsgBox re.Test("Hello") 'IgnoreCase=TrueなのでTrueが返る
End Sub

3つのプロパティの役割をまとめます。

• Pattern：探す正規表現のパターンを文字列で指定します。これがないと始まりません。
• IgnoreCase：Trueにすると、大文字と小文字を区別せず一致を判定します。既定値はFalseです。
• Global：Trueにすると、一致する箇所をすべて対象にします。既定値のFalseだと、最初の1件だけが対象です。

特に注意したいのがGlobalです。既定はFalseなので、置換や抽出で「全部のはずなのに1件しか処理されない」というときは、たいていGlobalの設定漏れですよ。

Test：パターン一致チェック

Testメソッドは、文字列がパターンに一致する箇所を含むかどうかを判定します。戻り値はTrueまたはFalseのブール値です。

Sub Testメソッドの例()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "d+" '数字が1文字以上続く

    MsgBox re.Test("注文番号A100") 'True（100が一致する）
    MsgBox re.Test("注文番号なし")  'False（数字がない）
End Sub

「一致するものが含まれていればTrue」という単純な動きです。入力チェックやバリデーションにぴったりですね。

文字列全体が完全に一致するかを判定したいときは、パターンの先頭に ^、末尾に $ を付けます。^ は文字列の先頭、$ は末尾を表すアンカーです。この使い方は実務パターンのメールアドレス検証で詳しく見ていきます。

このTestメソッドは、Microsoft 365のワークシート関数REGEXTESTと同じ役割を果たします。数式で完結させたいか、マクロで処理したいかで使い分けるとよいですよ。

Replace：パターン一致部分の置換

Replaceメソッドは、パターンに一致した部分を別の文字列に置き換えて返します。Replace(対象文字列, 置換後の文字列) の形で呼び出します。

Sub Replaceメソッドの例()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "s+" '空白文字（スペース・タブなど）が1文字以上
    re.Global = True    '全箇所を対象にする

    Dim result As String
    result = re.Replace("山田　太郎  さん", "") '空白をすべて削除
    MsgBox result '「山田太郎さん」が返る
End Sub

この例では、半角の空白をまとめて削除しています。s は半角スペースやタブなどの空白文字を表すので、種類を気にせず一括で消せるのが便利です。なお全角スペースの扱いには注意が必要で、これは後述の早見表でくわしく補足します。

置換後の文字列に空文字（""）を指定すると、一致部分の「削除」になります。不要な記号の一括削除でよく使うテクニックですよ。なお、一致部分を残したまま前後に文字を足したい場合は、キャプチャグループと後方参照（$1 など）を使います。

ワークシート関数のREGEXREPLACEも同じ置換処理を担当します。大量データをループ処理するならVBA、セル単位で完結させるなら関数、という選び方がおすすめです。

Execute：マッチ結果のコレクション取得

Executeメソッドは、一致した箇所の情報をまとめたコレクション（MatchCollection）を返します。「一致したものを取り出したい（抽出したい）」ときに使います。

Sub Executeメソッドの例()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "d+" '数字が1文字以上続く
    re.Global = True    '全箇所を取り出す

    Dim matches As Object, m As Object
    Set matches = re.Execute("価格は1200円、送料は500円")

    Dim msg As String
    For Each m In matches
        msg = msg & m.Value & vbCrLf '一致した文字列を取り出す
    Next m
    MsgBox msg '「1200」と「500」が改行区切りで表示される
End Sub

Executeが返すMatchCollectionは、For Eachで1件ずつ取り出せます。matches.Count で一致件数も取得できます。

取り出したMatchオブジェクトには、主に3つのプロパティがあります。

• Value：一致した文字列そのもの
• FirstIndex：一致が始まった位置（0から数える）
• Length：一致した文字列の長さ

抽出処理は、ワークシート関数のREGEXEXTRACTに対応します。複数件をまとめてループ処理したいときは、VBAのExecuteが力を発揮しますよ。

よく使うメタ文字と正規表現パターン早見表

正規表現は、記号（メタ文字）を組み合わせてパターンを作ります。最初は呪文のように見えますが、よく使う記号は限られています。

このセクションは早見表としてまとめました。コードを書いていて「あの記号なんだっけ」となったとき、ここに戻ってくれば大丈夫です。ブックマークしておくと便利ですよ。

メタ文字一覧（記号・意味・使用例）

VBScript RegExpの正規表現は、Perl由来のフレーバーです。基本的なメタ文字は他の言語とほぼ共通です。よく使うものを一覧にしました。

ここで1つ大事な注意点があります。w や d は、半角の英数字にしか一致しません。日本語（ひらがな・カタカナ・漢字）や全角の英数字には一致しないのです。

日本語を扱いたいときは、文字コードの範囲を直接指定します。たとえばひらがなは [ぁ-ゖ]、カタカナは [ァ-ヺ] のように書きます。全角英数字の扱いは、後半の実務パターンで具体的に解説しますよ。

実務でよく使うパターン集8選

実務でそのまま使えるパターンを8つ厳選しました。Patternプロパティに貼り付けて使えます。コピペ用にどうぞ。

最後の空白パターンにある 　 は全角スペースです。VBScript RegExpの s は半角スペースやタブを対象とし、全角スペース（U+3000）には一致しません。全角も確実に対象にしたいときは、このように全角スペースを文字クラスへ明示的に含めると安心ですよ。

それでは、これらのパターンを使った実務コードを次のセクションで見ていきましょう。

実務パターン5選：コピペで使えるサンプルコード

ここからは、実務でそのまま使える5つのパターンを、完成コードとして紹介します。すべてコピペして動かせるように書いています。

5つのパターンは次のとおりです。

1. メールアドレス形式チェック
2. 電話番号ハイフン統一
3. 郵便番号抽出
4. 全角英数字→半角変換
5. 不要な記号一括削除

それぞれ「どんな場面で使うか」と「コードの中で何が起きているか」を添えています。自分の業務に合わせてパターンを書き換えれば、応用も簡単ですよ。

なお、これらのコードを保存するときは、必ずマクロ有効ブック（.xlsm）形式で保存してください。通常の.xlsx形式ではマクロが保存されず、次に開いたときに消えてしまいます。

①メールアドレス形式チェック

入力された文字列が、メールアドレスの形式として正しいかを判定するコードです。フォーム入力や名簿のチェックで活躍します。

Sub メールアドレス形式チェック()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    'メールアドレスの形式パターン（完全一致のため^と$で囲む）
    re.Pattern = "^[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+.[A-Za-z]{2,}$"
    re.IgnoreCase = True '大文字小文字を区別しない

    Dim 対象 As String
    対象 = Range("A1").Value 'A1セルの値をチェック対象にする

    If re.Test(対象) Then
        Range("B1").Value = "OK" '形式が正しい
    Else
        Range("B1").Value = "形式エラー" '形式が不正
    End If
End Sub

パターンを前から読み解いてみます。^[A-Za-z0-9._%+-]+ はアットマークの前の部分で、英数字や一部記号が1文字以上。@ でアットマーク。[A-Za-z0-9.-]+ がドメイン名。.[A-Za-z]{2,}$ で、最後にドットと2文字以上のアルファベットが来て終わる、という意味です。

^ と $ で囲むことで「文字列全体がこの形か」を判定しています。これがないと、余計な文字が混じっていても一致してしまうので注意してくださいね。

なお、このパターンは厳密なRFC準拠ではありません。ただ、実務上のチェックとしては十分な精度がありますよ。

②電話番号ハイフン統一

ハイフンが入っていたり省略されていたりとバラバラな電話番号を、判定するコードです。まずは「正しいハイフン区切りになっているか」をチェックします。

Sub 電話番号フォーマットチェック()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    '0始まり、ハイフン区切りの電話番号パターン
    re.Pattern = "^0d{1,4}-d{1,4}-d{4}$"

    Dim i As Long
    Dim 最終行 As Long
    最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'A列の最終行を取得

    For i = 1 To 最終行
        If re.Test(Cells(i, 1).Value) Then
            Cells(i, 2).Value = "OK" '形式が正しい
        Else
            Cells(i, 2).Value = "要確認" 'ハイフンの位置が不正
        End If
    Next i
End Sub

パターンの ^0d{1,4} は、0で始まり数字が1〜4桁続く市外局番の部分です。-d{1,4} が市内局番、-d{4}$ が末尾の4桁を表します。固定電話と携帯電話の両方をカバーできる、ゆるめのパターンです。

ハイフンを除去して数字だけに統一したい場合は、Replaceメソッドを使います。次のように1行で書けますよ。

Sub 電話番号からハイフン削除()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "-" 'ハイフンを対象にする
    re.Global = True  '全箇所を削除する

    Range("C1").Value = re.Replace(Range("A1").Value, "")
    '例: 03-1234-5678 → 0312345678
End Sub

ちなみに、このパターンは「+81」で始まる国際電話番号の形式には対応していません。国内の番号を前提としていますので、海外の連絡先を扱うときは別途調整してくださいね。

③郵便番号抽出

住所が1つのセルにまとめて入力されていて、その中から郵便番号だけを取り出したいケースです。Executeメソッドで抽出します。

Sub 郵便番号を抽出()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    re.Pattern = "d{3}-d{4}" '数字3桁-数字4桁
    re.Global = True            '複数あれば全部取り出す

    Dim matches As Object
    Set matches = re.Execute(Range("A1").Value) 'A1から抽出

    If matches.Count > 0 Then
        Range("B1").Value = matches(0).Value '最初に見つかった郵便番号
    Else
        Range("B1").Value = "見つかりません"
    End If
End Sub

d{3}-d{4} というパターンで、「数字3桁・ハイフン・数字4桁」という郵便番号の形を表しています。matches(0).Value で、最初に見つかった郵便番号を取り出しています。

matches.Count で一致件数を確認してから処理しているのがポイントです。1件も見つからないときに matches(0) へアクセスするとエラーになるので、この件数チェックでガードしています。

複数の郵便番号が含まれる文字列なら、For Eachループですべて取り出せます。Executeは抽出処理の万能選手ですよ。

④全角英数字→半角変換

全角で入力された「ＡＢＣ１２３」のような英数字を、半角の「ABC123」に変換するコードです。RegExpとStrConv関数を組み合わせます。

ここで大事なのは、RegExp単体では全角から半角への「変換」はできない、という点です。RegExpは「全角英数字の場所を見つける」役割、実際の変換はVBA標準のStrConv関数が担当します。役割分担で乗り切ります。

Sub 全角英数字を半角に変換()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    re.Pattern = "[Ａ-Ｚａ-ｚ０-９]+" '全角の英大文字・英小文字・数字
    re.Global = True                  '全箇所を対象にする

    Dim 元 As String
    元 = Range("A1").Value

    Dim matches As Object, m As Object
    Set matches = re.Execute(元)

    Dim 結果 As String
    結果 = 元
    For Each m In matches
        '見つけた全角部分をStrConvで半角に変換し、置き換える
        結果 = Replace(結果, m.Value, StrConv(m.Value, vbNarrow))
    Next m

    Range("B1").Value = 結果 '例: ＡＢＣ１２３ → ABC123
End Sub

処理の流れを整理します。まずExecuteで全角英数字のかたまりを見つけます。次に、見つけた1つひとつを StrConv(m.Value, vbNarrow) で半角に変換します。そして、VBA標準のReplace関数で元の全角部分を半角に置き換えています。

vbNarrow は「全角を半角に変換する」というStrConvの定数です。逆に半角を全角にしたいときは vbWide を使います。

文字列の中の英数字だけを半角に揃えたいときに重宝します。日本語の住所や氏名はそのまま残して、英数字だけ整える、といった処理にぴったりですよ。

⑤不要な記号一括削除

文字列に紛れ込んだ全角記号などを、まとめて削除するコードです。コピペで持ち込んだデータに余計な装飾記号が付いている、なんてときに使えます。

Sub 不要な記号を一括削除()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    '削除したい全角記号を明示的に列挙する（誤削除を防ぐため）
    re.Pattern = "[★☆※→←【】「」（）・]+"
    re.Global = True 'すべての一致箇所を削除する

    Range("B1").Value = re.Replace(Range("A1").Value, "")
    '例: 【重要】★お知らせ → 重要お知らせ
End Sub

re.Replace(対象, "") のように置換後を空文字にすることで、一致した記号をすべて削除しています。GlobalをTrueにしているので、何個あっても一度で消えます。

ここでのポイントは、削除したい記号を [★☆※→…] のように1つずつ明示的に列挙していることです。[！-／] のような広い範囲指定もできますが、範囲指定は思わぬ文字まで巻き込んで消してしまうリスクがあります。

大切なデータを扱うときほど、「消したい記号だけを並べる」やり方が安全です。少し手間でも、誤削除を防げると考えれば安いものですよ。

エラー処理：不正パターン入力時の対策

正規表現は便利ですが、パターンの書き方を間違えると実行時エラーになります。特に、パターンをユーザー入力やセルの値から動的に組み立てる場合は要注意です。

たとえば閉じカッコのない (d+ のような不正なパターンをセットするとします。TestやExecuteの実行時にエラーが発生して、マクロが止まってしまいます。

こうした事故を防ぐために、エラー処理を組み込んでおきましょう。マクロを安全に動かすための、最後のひと工夫です。

On Error GoToでRegExpエラーを捕捉する

VBAでエラーを捕捉する基本は、On Error GoToステートメントです。エラーが起きたら指定したラベルへジャンプし、メッセージを出して安全に処理を終えられます。

Sub エラー処理つきパターン判定()
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    On Error GoTo エラー処理 'エラー発生時はラベルへジャンプ

    re.Pattern = Range("A1").Value 'セルからパターンを取得（不正かもしれない）
    Dim 結果 As Boolean
    結果 = re.Test(Range("B1").Value) '判定を実行

    MsgBox "判定結果: " & 結果
    Exit Sub '正常終了（エラー処理を通らないようExit）

エラー処理:
    MsgBox "パターンが不正です: " & Err.Description '原因を表示
End Sub

On Error GoTo エラー処理 を宣言しておくと、その後でエラーが起きた瞬間に「エラー処理:」ラベルへ飛びます。Err.Description には、エラーの内容が文字列で入っているので、原因の確認に役立ちます。

注意したいのが、正常終了の直前に置いた Exit Sub です。これがないと、エラーがなくてもそのままエラー処理ラベルの中身まで実行してしまいます。「成功したのにエラーメッセージが出る」という妙な動きを防ぐための、お約束のひと言ですよ。

On Errorの3つの形式（GoToラベル・Resume Next・GoTo 0）の使い分けは、VBAのエラーハンドリング完全ガイド｜On Error GoToとResume Nextの使い分けで詳しく解説しています。あわせて読むと理解が深まりますよ。

パターン検証関数を作っておくと安全

同じエラー処理を何度も書くのは面倒ですよね。そこで、「このパターンは有効か」を判定する関数を1つ作っておくと、使い回せて便利です。

'パターンが有効ならTrue、不正ならFalseを返す関数
Function パターンは有効か(ByVal pat As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")

    On Error GoTo 不正 'エラーが出たら不正ラベルへ
    re.Pattern = pat
    re.Test "テスト" '実際に試して動くか確認する

    パターンは有効か = True '問題なければTrue
    Exit Function

不正:
    パターンは有効か = False 'エラーが出たらFalse
End Function

この関数を使えば、本処理の前に If パターンは有効か(パターン文字列) Then のように安全確認ができます。不正なパターンが来ても、マクロが止まらず分岐で対処できるわけです。

ユーザーが自由にパターンを入力できるツールを作るときは、この検証関数が頼りになります。「まず安全確認、それから本処理」の流れを習慣にしておくと安心ですよ。

ワークシート関数との使い分け

ここまでVBAの正規表現を見てきましたが、実はMicrosoft 365には正規表現を使えるワークシート関数もあります。REGEXTEST・REGEXREPLACE・REGEXEXTRACTの3つです。

「じゃあ関数とVBA、どっちを使えばいいの」と迷いますよね。それぞれ得意な場面が違うので、ここで整理しておきます。

結論から言うと、セル単位で完結する処理は関数、繰り返しや条件分岐を含む処理はVBA、という分け方が基本です。

REGEXTEST・REGEXREPLACE・REGEXEXTRACTとの違い

ワークシート関数の3つは、VBAのRegExpメソッドとほぼ対応しています。対応関係を表にまとめました。

ワークシート関数の大きな利点は、数式を入れるだけで使える手軽さです。プログラミングの知識がなくても、セルに =REGEXTEST(A1,"d+") と書くだけで判定できます。

ただし、ワークシート関数はMicrosoft 365専用です。Excel 2019や2021では使えません。一方、VBAのRegExpはどのバージョンでも動くという強みがあります。

それぞれの関数の詳しい使い方は、REGEXTEST関数・REGEXREPLACE関数・REGEXEXTRACT関数の各記事を参考にしてくださいね。

VBA RegExpを選ぶべきシーン

では、どんなときにVBAの正規表現を選ぶべきでしょうか。次のような場面ではVBAが向いています。

• 数百行・数千行をまとめて一括処理したいとき（ループ処理が速い）
• 「一致したらこのシートへ転記」のように条件分岐を伴うとき
• 全角→半角変換のように、StrConvなど他の関数と組み合わせたいとき
• Microsoft 365以外（Excel 2019・2021）の環境で正規表現を使いたいとき
• ボタン一発で実行する定型業務に組み込みたいとき

逆に、1つのセルの判定や置換で済むなら、わざわざマクロを書く必要はありません。ワークシート関数のほうが手早く片付きます。

ちなみに、Googleスプレッドシートにも正規表現を使える関数があります。スプレッドシートでの置換はスプレッドシートのREGEXREPLACE関数で解説していますので、Sheetsを使う方はそちらもどうぞ。

ツールに応じて使い分ければ、文字列処理の悩みはほとんど解決できますよ。

まとめ

VBAの正規表現（RegExp）について、準備から実務パターンまで解説してきました。最後に要点を振り返ります。

• 正規表現は「形のパターン」での判定・抽出・置換が得意で、TRIMやSUBSTITUTEでは難しい処理を一気にシンプルにできる
• RegExpオブジェクトは「参照設定（早期バインディング）」か「CreateObject（遅延バインディング）」で用意する。自分用は早期、配布用は遅延が目安
• 覚えるのは3つのプロパティ（Pattern・Global・IgnoreCase）と3つのメソッド（Test・Replace・Execute）だけ
• 日本語や全角文字は w や d に一致しないので、文字コード範囲で指定する
• 不正なパターンに備えて、On Error GoToや検証関数でエラー処理を入れておくと安全
• セル単位の処理はワークシート関数、ループや条件分岐を伴う処理はVBAと使い分ける

正規表現は最初こそ記号の羅列に見えますが、よく使うパターンは限られています。この記事の早見表とサンプルコード5本を手元に置いておけば、実務の文字列処理でつまずくことはぐっと減りますよ。

まずは身近なデータで、メールアドレスチェックや郵便番号抽出から試してみてください。一度コツをつかめば、これまで手作業でやっていた面倒なクレンジングが、ボタン一発で片付くようになりますよ。