【EXCEL】2列目の数字見てそこにある数字と同じ行数を挿入するマクロ

Question

下記のようなエクセルがあります。

ひろし 1
たかし　　1
ひろみ　　0
ゆうこ　　1
かりな　　0
すず　　　0
ひみこ 2
ゆうき 0
たつお　　0

やりたいこと
2列目の数字を見て、0の場合はそのまま
1の場合は1行追加
2の場合は2行追加

IF文でやろうと思ったのですが、IF文には行挿入というものがなく
生まれてはじめてマクロというものに触れたところです。

ネットで拾ってきたものが下記です。
下記は2列目を見て上の値と違ったら1行挿入するマクロです。
これの改造で行けると思うのですが、マクロは初めてのためわかりません。
どなたかご教示いただきたくお願いいたしますします。

Sub test()
Dim 行 As Long
Const 列 = 2

For 行 = Cells(Rows.Count, 列).End(xlUp).Row To 3 Step -1
If Cells(行, 列) <> Cells(行 - 1, 列) Then
Rows(行).Insert
End If
Next 行
End Sub

Answer 1

こんな感じでいけると思います。

Sub test()
    Dim 行 As Long, 行数 As Long
    Const 列 As Long = 2
    
    For 行 = Cells(Rows.Count, 列).End(xlUp).Row To 3 Step -1
        行数 = Cells(行, 列).Value
        If 行数 > 0 Then
            Rows(行 + 1).Resize(行数).Insert
        End If
    Next 行
End Sub

Comments

[tajix_japan]

出来ました
有難うございます。
これで対応できます。
本当にありがとうございました。