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

お世話になります。

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 回答日時： 2013/12/18 11:48

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

こんな感じでしょうか。

この回答へのお礼

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

お礼日時：2013/12/18 12:05