Excelで正規表現を使うためのユーザー定義関数サンプル

ExcelやVBAの標準機能では正規表現が使用できません。VBScript.RegExpを使えば可能とのことで、Excelのユーザー定義関数にした処理をしてみたので備忘メモ。 EXCELのワークシート関数としても使用できます。

そもそもの背景は、Power Query（パワークエリ）で正規表現を利用したかった。調べてみると、Web.Pageの機能を使ってJavaScriptの正規表現でする方法がありました。「なるほど、と思う使い方でとても参考になったのですが、私の設定方法が悪いのか、処理速度が遅かったのでVBAですることにしました。

内容：

アウトプットイメージ
作成したユーザー定義関数は、次のとおり。

アウトプットイメージ

今回実施したかったことは、次のような文字列の中から、指定した場所に該当する数値を抽出すること。

正規:50 (専40) 非正規:30 (専20)

例えば、この２番目に位置する40の数値を抽出

Excelでのイメージは次のとおり。
Excelのユーザー定義関数の活用イメージ

セル参照、もしくは直接の入力で、一致番号に該当する場所の数値抽出ができた。

なお、ユーザー定義関数の使用時の画面は次の通り。
Excelのユーザー定義関数の使用時の画面イメージ

作成したユーザー定義関数は、次のとおり。

～
Function 正規表現で文字列抽出(パターン As String, 検索対象文字列 As String, Optional 一致番号 As Integer = 1)
    
    Dim Matches As Object      ' 変数を作成します。
    Set regEx = CreateObject("VBScript.RegExp") ' 正規表現を作成します。
    
    regEx.Pattern = パターン         ' パターンを設定します。
    regEx.IgnoreCase = True         ' 大文字と小文字を区別しないように設定します。
    regEx.Global = True         ' True 複数回マッチ、FALSEは1回のみ
    
    Set Matches = regEx.Execute(検索対象文字列)   ' 検索を実行します。
    
    正規表現で文字列抽出 = Matches(一致番号 - 1).Value ' 検索を実行します。Itemは0からスタートなので1引く
    
End Function
～