お世話になります。
Excel VBAで作成しております。
エクセルのセルに、[GAZOU]という文字があったら、G1,G2,G3と、連番で置換する
マクロを作成したいと思っております。
※一つ目の[GAZOU]はG1,二つ目の[GAZOU]はG2という風に
しかしながら、
一つのセルに[GAZOU]は、一つだけとは限らない状態です。
※例えば、下記のような形です。
A1セル:あいうえお[GAZOU]かきくけこ[GAZOU]
A2セル:さしすせそ
A3セル:[GAZOU]
A4セル:[GAZOU]たちつてと[GAZOU]
検索対象の文字は、「A列」という条件で結構ですので、
実現方法をご存知の方教えて頂けないでしょうか?
何卒よろしくお願い致します。
No.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
こんな感じでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) セル内の一部に別セルを差し込む 3 2022/09/18 04:39
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- HTML・CSS cssの display: flex;で横並びにならずに困ってます 1 2022/12/04 13:18
- Excel(エクセル) 【Excel】複数列ごとに取得するセルを変更したい 2 2023/03/23 21:04
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力したセル番地をメッセージ...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
VBAでセル同士を比較して色付け
-
【Excel】指定したセルの名前で...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
【VBA】カーソルのある行の1行...
-
指定した条件で行セルを非表示...
-
任意フォルダから画像をすべて...
-
【Excel】セルの背景色、文字色...
-
【Excel VBA】指定行以降をクリ...
-
エクセルマクロでアニメを作る...
-
DataGridViewで右寄せ左寄せが...
-
テキストボックスに入力したデ...
-
重複しない乱数
-
置換文字を連番で振りたい
-
特定の文字を条件に行挿入とそ...
-
ExcelVBA:オートフィルタをかけ...
-
Excel2013,2016 マクロの動作が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報