VBA : RegChg : 正規表現置換ワークシート関数

ぶっちゃけ、何年ぶりの更新よ！？

他マクロからの呼び出しやワークシート関数として使える。

ソース文字列（orセル）の中でマッチした正規表現パターンを、置換文字列に置き換える。部分文字列も使えるし、大文字小文字Case指定も出来る。

使い方

=RegChg(<検索対象>,<正規表現パターン>,<"置換パターン>,[IgnoreCase:true/false])

第四パラメタは省略可でディフォルト値はtrue。IgnoreCaseとなる

ex.
=RegChg("TestType of File1,"T","tt")
=RegChg("TestType of File1,"T","tt",true)
   戻り値は""ttesttttype of File1"

=RegChg("TestType of File1"Test(.*)File([0-9]+)","$1$2")
   戻り値は""Type of 1"

Macroのつぼ

WSH等で使われるComモジュールのRegExpをEｘcelから呼び出している。

マクロ作るのメンドーで、ワークシート関数でナントカしたいヤシ、そのまま使ってくれ。アドイン(.xla)で作った方がイイと思う。

指定セル範囲を直接置換する機能も公開予定だ。

Function RegChg(strTarget As String, strPat As String, para As String, Optional Ignore As Boolean = True) As String Dim Match, Matches Dim ret As String Set RE = CreateObject("VBScript.RegExp") With RE .Pattern = strPat .IgnoreCase = Ignore .Global = True End With RegChg = RE.Replace(strTarget, para) Set RE = Nothing End Function