以前「
VBAで文字の置き換えをする。」というエントリーを投稿しましたが、以前使ったRe
place 関数では正規表現は扱えないかったため今回は正規表現に対応した文字の置き換え方法を紹介します。
例）
<a name="1"> → <a name="hoge">
<a name="2"> → <a name="hoge">
<a name="3"> → <a name="hoge">
～
<a name="9999"> → <a name="hoge">
上記のように桁数の決まっていない数字を変換する場合
Sub 置き換え()
Dim RE, A1 As Range
Set RE = CreateObject("VBScript.RegExp")
RE.Pattern = "<a name=""[0-9]+"">"
For Each A1 In Selection
A1.Value = RE.Replace(A1.Value, "hoge")
Next
Set RE = Nothing
End Sub
|
RegExp オブジェクトを使います。
桁数の決まっていない数字は正規表現で[0-9]+と表現します。
PR
