Excelマクロ 特定の条件下で文字の自動入力

以下の動作を行うコードを調べています。
①　範囲（行12～1299）内で
②　列Bに”あ”と入力されたセルから
③　次（列Bで②より下）の”い”と入力されたセルまでの行内の
　　　（※②と③の間には空白（””）のセルがある行が何行かある）
④　列Iに”う”（別の値が入っている）と置き換えて入力する

ご説明が難しかったため、手順①～④に分けておりますがすべて一括で動くコードがあれば教えてください。
説明足らずなところがあると思いますので、その際はご質問ください。
お手数をおかけしますが、何卒宜しくお願い致します。

No.3 回答者： fujillin 回答日時： 2022/01/23 15:08

こんにちは

「あ」、「い」が複数存在する場合は、最初に見つかったセルの範囲を対象とします。
該当する範囲が存在しない場合には何もしません。

Sub Q12771229()
Dim r, t1, t2
Const あ = "あ"
Const い = "い"
Const う = "う"

Set r = Range("B12:B1299")

Set t1 = r.Find(あ, r(r.Count), xlValues, xlWhole)
If t1 Is Nothing Then Exit Sub
Set t2 = Range(t1, r(r.Count)).Find(い, t1, xlValues, xlWhole)
If t2 Is Nothing Then Exit Sub

For Each r In Range(t1, t2)
If r.Value = "" Then r.Offset(, 7).Value = う
Next r
End Sub

この回答へのお礼

ご回答ありがとうございました。
問題なく動きました。

お礼日時：2022/01/23 20:46

No.2 回答者： zongai 回答日時： 2022/01/23 14:31

こんなのでいいのかな？

Sub aui()
　　Dim i As Long
　　For i = 12 To 1299
　　　　If Cells(i, 2) = "あ" Then
　　　　　　Do Until Cells(i + 1, 2) = "い"
　　　　　　　　Cells(i + 1, 9) = "う"
　　　　　　　　i = i + 1
　　　　　　Loop
　　　　　　Exit Sub
　　　　End If
　　Next
End Sub

この回答へのお礼

ご回答ありがとうございます。
このコードでも問題なく動きました。
今回作成して頂いたコードは今後の参考や業務においてご活用させてい頂きます。

お礼日時：2022/01/23 20:50

No.1 回答者： satoumasaru 回答日時： 2022/01/23 14:23

一度ご自身でマクロをつくられて、その上で動かなければ質問されるようにされた方が良いですよ。

コード自身はそんなに難しいことはないと思いますが……

この回答へのお礼

的確なご助言をいただき、ありがとうございます。
私自身マクロのコードについて勉強中でございます。
できるだけ自身の作成したコードを載せて、ご質問をいただく所存です。
お手数をおかけしますが、今後ともご指導ご鞭撻のほどよろしくお願いいたします。

お礼日時：2022/01/23 20:56