<から>までを一括で消すマクロを作りたい

Question

htmlのタグなどを消すマクロを作成しています。
<br><font><p></p><div>など

<　から　> までを消す時に正規表現の【<.*?>】を使えば一括で消えると思うのですが消えません。

例えば、B2にhtmlのコードを置き、タグを消して文言だけにしたものをC2に置くマクロをザッと記載してみたのですが、
下記ではうまくいきませんでした。

Range("C2") = Replace(Range("B2"), " <.*?>", "")

これで良いと思うのですが、何が原因でしょうか？

Answer 1

(docs.microsoft.com)VBA - Replace 関数では正規表現やワイルドカードは使用できませんが、
(docs.microsoft.com)Range.Replace メソッド (Excel)では、Whatにはワイルドカードが使用できます。
以下でどうでしょう。（[マクロの記録]で置き換え操作の結果からCellsをRange("C2")に変更したものです。）

Range("C2").Replace What:="<*>", Replacement:="", _LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Answer 2

Excel VBAに用意されているReplace関数は、文字列を文字列に置き換える専用で、正規表現に非対応です。

正規表現での置換を行いたい場合、CreateObject("VBScript.RegExp")で正規表現オブジェクトを取得して、そこから行うことになります（参考）。

Comments

[退会済みユーザー]

Dim reg, str2, strPattern As String, r As Range
Set reg = CreateObject("VBScript.RegExp")

With reg
.Pattern = "<.*?>"

str2 = reg.Replace(Range("B2"), "")
Range("C2") = str2

End With

上記のように作成してみましたが、これでは一番最初のタグしか消えませんでした。
htmlのコードなので、<p>や<div>などたくさんあるので、<>の全てのタグが一括で消えるようにしたいのですが。

[tatsu99]

.Pattern = "<.*?>"を
.Pattern = "<.*>"
にしてはどうでしょうか。
？をつけると最短マッチになってしまいます。今回は、最長マッチかと。
https://k-sugi.sakura.ne.jp/it_synthesis/windows/vb/2127/

[Y.H.]

最長にするとhtml丸ごとなくなりませんか？
<div><p>ほげ</p></div><div><p>ふが</p></div>
たぶん、結果として「ほげふが」が欲しいのかと。

[tatsu99]

html丸ごと消したいのかと思っていました。
でも「B2にhtmlのコードを置き、タグを消して文言だけにしたものをC2に置くマクロをザッと記載してみたのですが、」・・・ということから、「ほげふが」がほしいようですね。最長一致は、取り下げます。
失礼しました。

[tatsu99]

With reg
.Pattern = "<.*?>"
.Global = True
str2 = reg.Replace(Range("B2"), "")
Range("C2") = str2
End With
ーーーーーーーーーーーーーーーーーーー
上記のようにしてください。
.Global = True
を追加します。
これでどうでしょうか。