Satır eklemek iki sarırda bir

[polis-53]

Merhaba arkadaşlar 2 satırda bir 2 satır ekleme makrosu lazım yardım ederseniz sevinbirim.

 

[ExcelF1]

Aşağıdaki kodu deneyebilirsiniz.

A sütunundaki en son veriye kadar, 2. satırdan başlamak üzere 2'şer satır ekleyecektir.

Sub Düğme1_Tıklat()
For a = 2 To [A65536].End(xlUp).Row * 3 Step 3
Rows(a).Insert shift:=xlDown: Rows(a).Insert shift:=xlDow
Next a
End Sub