すみかっこまるごと削除するマクロの例 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 = “【.*】”
.IgnoreCase = True
.Global = True
End With
On Error Resume Next
For Each myRng In Selection
txt = myRng.Value
txt = reg.Replace(txt, “”)
myRng.Value = txt
Next myRng
Application.ScreenUpdating = True
End Sub
・・・・・・・・・・・・・・・・・
利用しているExcel：
Microsoft® Excel® for Microsoft 365 MSO
(バージョン 2311 ビルド 16.0.17029.20028) 64 ビット

動画編集アプリ：
Microsoft　Clipchamp

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

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