【VB】指定行に文字の追加

質問

Exelのマクロで
ご教授お願いします。

AABB 2012 0219 1111
2222 3333 4444 5555

AABB 2012 0220 1111
2222 3333 4444 5555
6666 7777

AABB 2012 0221 1111
2222

A列にこのような、空欄１行を挟んだデータが数十件あります。これを、

AABB 2012 0219 1111
2222 3333 4444 5555 END

AABB 2012 0220 1111
2222 3333 4444 5555
6666 7777 END

AABB 2012 0221 1111
2222 END

このように、マクロで形はそのままに空欄行の１行前の末尾に”END”を追加するという内容です。
よろしくお願いします。m(__)m

回答No.1

mt2008 · ベストアンサー

こんな感じかな？
空行が続くときは空行に「END」を追加しないようにしました。

Sub Sample()
　　For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
　　　　If (Cells(i, 1) <> "") And (Cells(i + 1, 1) = "") Then Cells(i, 1) = Cells(i, 1).Text & "END"
　　Next i
End Sub

お礼

回答ありがとうございます。
希望通りの結果になりました、大変参考になりました。