Her Dolu satırın altına 2 adet boş satır ekleme

[ben28]

Merhaba, altta gözüktüğü üzere C Sütunu ( Stok Kodu ) alanında belirtilen her kodun altına 2 adet boş satır eklemek istiyorum yardımcı olurmusunuz

 

[Mdemir63]

Selamlar

Aşağıda ki kodu deneyiniz

Sub IkiBosSatirEkle()
    Dim sonSatir As Long
    Dim i As Long
    
    sonSatir = Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = sonSatir To 2 Step -1
        If Not IsEmpty(Cells(i, 3)) Then
            Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown
        End If
    Next i
End Sub