Araya satır ilave etme

[soykan]

A sütununda verilerim var 1000 adet kadar Her bir satır arasına bir satır boşluk ilave etmek istiyorum.
Yani datalarımda 1 satır dolu altına 1 satır boş ilave yapsın istiyorum Makro ile nasıl yapabilirim?

 

[Huseyinkis]

A sütununda verilerim var 1000 adet kadar Her bir satır arasına bir satır boşluk ilave etmek istiyorum.
Yani datalarımda 1 satır dolu altına 1 satır boş ilave yapsın istiyorum Makro ile nasıl yapabilirim?

Sub Makro1()

For i = 2 To 2000

Rows(i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
i = i + 1
Next i
End Sub


amotor bir yardım ama inşalah isini gorur

 

[halit3]

A sütununda verilerim var 1000 adet kadar Her bir satır arasına bir satır boşluk ilave etmek istiyorum.
Yani datalarımda 1 satır dolu altına 1 satır boş ilave yapsın istiyorum Makro ile nasıl yapabilirim?

alternatif olarak bunları denermisiniz.

Sub Satirekle1()
Application.ScreenUpdating = False
For i = [a65536].End(3).Row To 2 Step -1
Rows(i).Insert Shift:=xlDown
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub

Sub Satirekle2()
Application.ScreenUpdating = False
For i = 1000 To 2 Step -1
Rows(i).Insert Shift:=xlDown
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam...."
End Sub