- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：置換文字を連番で振りたい）
Excel VBAで文字列を連番で置換する方法について
このQ&Aのポイント
- Excel VBAを使用して、[GAZOU]という文字列を連番で置換する方法について教えてください。
- 特定の条件（A列に含まれる文字列）を満たすセル内の[GAZOU]を連番で置換するマクロを作成したいです。
- ただし、一つのセルに複数の[GAZOU]がある場合もあるので、それに対応する方法も教えてください。
- dosiroutodesuyo
- お礼率23% (28/119)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
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 こんな感じでしょうか。
お礼
ありがとうございます！！！！！！