dolu satır altına istenilen adet kadar boş satır ekleme

[bugsbuny]

İMALAT TİPİ ADET
DİKME (3000 mm) 5
DİKME (2000 mm) 12
YANKOL (2400 mm) 3
YANKOL (1200 mm) 6
CEPHE İSKELE-MANŞON 1
TABAN AYAR MİLİ 20

Arkadaşlar problem şudur; excel de dolu satırların altına istenilen adet kadar boş satır nasıl ekleyebilirim. Yukarıdaki tablo örnek olarak verilmiştir. Adet başlığının altındaki miktar kadar boş satır eklemek istiyorum her bir dolu satırın altına. İlginiz için şimdiden teşekkür ederim.

 

[dellerlim]

Merhaba, boş bir modüle aşağıdaki kodları yapıştırırsanız istediğiniz gibi bir şey olur umarım. Belki daha basit çözümleri de vardır. İyi çalışmalar.

Sub Satir_Ekleme()
On Error Resume Next
For i = 1 To 10
Z = Cells(1, i).Value
    Range(Cells(2, i), Cells(1 + Z, i)).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next i
End Sub