Replace処理を何回行ったのか知りたい。

Question

Replaceで文字の置き換え処理を行いました。
B列を全て見て、
特定の文字＝bufを削除するという機能を作ったのでが・・・

最後に【bufを〇個消しました。】という実行が完了したメッセージボックスを出すようにしたいです。

ただ置き換え処理（Replace）が何回行われたか・・・しらべるにはどのような式を使えば良いのでしょうか？

 Cells(i, 2) = Replace(Cells(i, 2),buf,"")
 MsgBox bufを〇個消しました。

Answer 1

置換前と置換後の文字数の差を置換語句の長さで割れば、置換した数になります。

コード例

    Dim buf As String, i As Long
    buf = "ABC"
    i = 13

    Dim strData As String, DataLen As Long
    strData = Cells(i, 2).Value
    DataLen = Len(strData)
    strData = Replace(strData, buf, "")
    Cells(i, 2).Value = strData
    
    Dim cnt As Long
    cnt = (DataLen - Len(strData)) \ Len(buf)
    MsgBox buf & "を" & cnt & "個消しました。"

Answer 2

split()とUbound()で求められるかな？

replaceNum = ubound(split(Cells(i, 2),buf))
replaceNum = Iif(replaceNum<0,0,replaceNum) '-1が返る場合があるので0にする。

Cells(i, 2) = Replace(Cells(i, 2),buf,"")
MsgBox "bufを"&Str(replaceNum)&"個消しました。"

Answer 3

Replace()関数を使うのではなく、
ループ処理とInStr()を駆使してカウントするとか。
探す、見つかれば文字列編集してカウントアップ、の繰り返し。