エクセルに関しての質問になります。

質問

エクセルに関しての質問になります。
以下の表があった場合に
その数字分の行の追加を自動で行わせるには
マクロを組むしかないでしょうか？
また、できましたら、そのマクロも教えください。

A社　　製品A　6
B社　　製品B　4
C社　　製品C　2
という表を
A社　　製品A　6
A社　　製品A　6
A社　　製品A　6
A社　　製品A　6
A社　　製品A　6
A社　　製品A　6
B社　　製品B　4
B社　　製品B　4
B社　　製品B　4
B社　　製品B　4
C社　　製品C　2
C社　　製品C　2
という感じにしたいのです。

どうかよろしくお願いします。

回答No.1

keithin · ベストアンサー

ＡＢＣ列にそのようにデータがあるとして。

sub macro1()
　dim r as long
　dim i as long

　for r = range("A65536").end(xlup).row to 1 step -1
　　for i = 1 to val(cells(r, "C").value) - 1
　　　cells(r, "A").entirerow.copy
　　　cells(r + 1, "A").entirerow.insert shift:=xlshiftdown
　　next i
　next r
　application.cutcopymode = false
end sub

とかなんとか。

お礼

さっそくのお答えありがとうございます。
テストしてみたところ、うまくできました。