置換文字を連番で振りたい

質問

お世話になります。

Excel VBAで作成しております。

エクセルのセルに、[GAZOU]という文字があったら、G1,G2,G3と、連番で置換する
マクロを作成したいと思っております。
※一つ目の[GAZOU]はG1,二つ目の[GAZOU]はG2という風に

しかしながら、
一つのセルに[GAZOU]は、一つだけとは限らない状態です。

※例えば、下記のような形です。
A1セル：あいうえお[GAZOU]かきくけこ[GAZOU]
A2セル：さしすせそ
A3セル:[GAZOU]
A4セル:[GAZOU]たちつてと[GAZOU]

検索対象の文字は、「A列」という条件で結構ですので、
実現方法をご存知の方教えて頂けないでしょうか？

何卒よろしくお願い致します。

回答No.1

kimic_3 · ベストアンサー

Dim i As Integer
Dim c As Integer
Dim j As Integer

j = 1
For i = 1 To 100

c = InStr(1, Cells(i, 1), "GAZOU")
If c > 0 Then '見つかった
Cells(i, 1) = Replace(Cells(i, 1), "GAZOU", "G" & j, , 1)
j = j + 1
i = i - 1
DoEvents
End If
Next i

こんな感じでしょうか。

お礼

ありがとうございます！！！！！！