データが切り替わる項目ごとに空白行を挿入し、文字を入れたい

Question

前提・実現したいこと

5月中旬から仕事でVBAを触ることになり、teratailやVBA本などで調べつつ勉強している超初心者です。

teratailは初めての利用となります。早速質問させていただきます。

下記のようなデータがあった場合に、

B列の「りんご」「みかん」など連続データ項目ごとに行挿入し(分かりやすいように黄色にしました)、空になったA列のセルに数字の「5」を入れたいです。

上記画像のようなイメージです。

試したこと

Sub Sample()
   Range("A1:A30").SpecialCells(xlCellTypeBlanks) = "5"
End Sub

このようにすることで、範囲指定したセルの空欄に「5」が入力できることは分かりましたが、実際のファイルはどのセルまでデータが入力されているかわかりません。
ループ処理などを使い、A列を

また、B列を見てデータを取り出していき、空白があれば改行していくという部分はまだ作成できておりません。

みなさまからすればあまりに初歩的なことかもしれません。

どなたかご教授いただけますと幸いです。

よろしくお願いいたします。

Answer 1

こんな感じでしょうか。
普通に上からループすると行挿入でややこしくなりそうなので、あえて下からループしています。

Sub sample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim lastRow
    lastRow = ws.Cells(Rows.Count, 2).End(xlUp).Row
    
    Dim i
    For i = lastRow To 2 Step -1
        If ws.Cells(i, 2) <> "" And ws.Cells(i, 2) <> ws.Cells(i - 1, 2) Then
            ws.Rows(i).Insert
            ws.Cells(i, 1) = 5
        End If
    Next
End Sub

Comments

[karuko]

jinoji様

大変助かりました。ありがとうございました！！！！！