給与の下限と上限の間に発生した半角はてなだけを置換するマクロの例 Excel VBA

Sub 給与の下限と上限の間に発生した半角はてなだけを置換するよ()
Application.ScreenUpdating = False

Dim reg
Set reg = CreateObject("VBScript.RegExp") 'オブジェクト作成
Dim myRng As Range
Dim txt As String
Dim i As Long
With reg
.Pattern = "円\?(\d)"
.IgnoreCase = True
.Global = True
End With
On Error Resume Next
For Each myRng In Selection
txt = myRng.Value
txt = reg.Replace(txt, "円～$1")
myRng.Value = txt
Next myRng

Application.ScreenUpdating = True
End Sub

・・・・・・・・・・・・・・・・・
詳しい説明はnoteにあります。よかったらみてください
https://note.com/makotoym/n/n4468df41...
・・・・・・・・・・・・・・・・・
利用しているExcel：
Microsoft® Excel® for Microsoft 365 MSO
(バージョン 2311 ビルド 16.0.17029.20028) 64 ビット

動画編集アプリ：
Microsoft　Clipchamp

注意事項：
このやり方は、動画公開時点での情報です。
今後のExcel機能追加や変更などで、やり方が異なる場合や
関数の仕組みが変更される場合があります。
ご自分の環境にあったやり方で調整してください。

補足：
なるべくYouTubeに公開されていない動画を作ります。
こんなこと教えてほしい等、ご要望がありましたら
お気軽のコメントください。参考にします。