行を挿入するマクロ

質問

エクセルマクロ（VBA）で

　A　1
　B　2
　C　2
　D　1

上記の場合、数字の数だけ行を挿入したいのですが、うまく出来ません。
Aの下に1行。Bの下に2行。Cの下に2行。Dの下に1行という感じです。

教えていただければありがたいです。よろしくお願いいたします。

回答No.1

merlionXX · ベストアンサー

まぎらわしいのですが数値の左側のA～Dというのは文字列等のデータですね？列名ではありませんね？

以下の前提でやってみました。
数値はB列にあるものとします。
B列の数値より下はすべて空白とします。

Sub test()
Dim rl As Long, i As Long
Dim n As Integer

rl = Range("B65536").End(xlUp).Row

For i = rl To 1 Step -1
x = Cells(i, "B").Value
For n = 1 To x
Rows(i + 1).Insert Shift:=xlDown
Next n
Next i
End Sub

お礼

出来ました。ありがとうございました。