エクセルVBAで正規表現で置換したい

Question

エクセルのセル全体を対象に、正規表現で置換がしたいです。

（1）先頭に　'　をつける
（2）最後に　'　をつける
（3）東京を　東京都　にしたい

※理解がしやすいので（1）（2）（3）同時でなく、それぞれの処理が知りたいです。

VBA初級者です。
sakuraエディタの正規表現を少し使った事がある程度です。
先頭は　^
最後は　$
くらいは理解しているレベルです。

↓サンプルコードを拾ってきたのですが
パターンに指定する内容と、その後のコードがわかりません。

Sub macro1()
'RegExpオブジェクトの作成
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")

'正規表現の指定
With reg
    .Pattern = "[0-9]"      'パターンを指定
    .IgnoreCase = False     '大文字と小文字を区別するか(False)、しないか(True)
    .Global = True          '文字列全体を検索するか(True)、しないか(False)
End With

End Sub

よろしくお願いいたします。

Comments

[otn]

その置換なら、正規表現を使う必要性は全くありませんが、置換そのものが目的じゃなくて、正規表現を使う練習が目的と言うことでしょうか？

[退会済みユーザー]

失礼しました。
確かに
（3）東京　→　東京都は、正規表現必要なかったです。

（1）（2）な正規表現でないと置換できないかと思い質問しました。
練習もかねて正規表現での方法を教えていただきたいです。

[退会済みユーザー]

失礼しました。
確かに
（3）東京　→　東京都は、正規表現必要なかったです。

（1）（2）は正規表現でないと置換できないかと思い質問しました。
練習もかねて正規表現での方法を教えていただきたいです。

Answer 1

練習もかねて正規表現での方法を教えていただきたいです。

正規表現の練習なら、もう少し正規表現の意味のある題材を選んだ方が良いと思います。

普通の方法：

Cells(1, 1) = "''" & Replace(Cells(1, 1), "東京", "東京都") & "'"

セルの先頭の'は、データに入らないので、''にしてあります。

正規表現を使った方法：（変数宣言略）

Set reg = CreateObject("VBScript.RegExp")
s = Cells(1, 1)
reg.Pattern = "^"
s = reg.Replace(s, "''")
reg.Pattern = "$"
s = reg.Replace(s, "'")
reg.Pattern = "東京"
s = reg.Replace(s, "東京都")
Cells(1, 1) = s

Comments

[退会済みユーザー]

求めていた通りのご回答でした。
ありがとうございます。

[otn]

同じ置換をたくさんの対象にするなら、正規表現毎に別々のRegexpオブジェクトを作るのでしょうね。