Add Horizontol Rows Every X Row

[PeezInside]

Hi,

I want to ask the following question:

This is my Excel:How can i add a empty row every fourth row, or every third row etc....
I have maybe 1000 rows filled with text but i have to add a empty row to fill in a new text.

1. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
2. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
3. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
4. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
5. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
6. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
7. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
8. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
9. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
10. Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
etc...

Hope to hear from you!

Naftalie

[LeoTaxi]

a few examples, insert empty row from column A to Z

Please Login or Register  to view this content.

Kind regards
Leo

[PeezInside]

Hi Leo thanks for your reply. I can use this as a VBA?

[PeezInside]

Hi Leo thanks for your reply. I can use this as a VBA? But what if i want 2 empty cells from row 3 on, how can i adjust the following code: I tried to change it to > 2 empty but it didnt work

Sub Emptyrow() ' data starts at row 1, every 3 rows 1 empty

Dim test As String, lr As Long
test = ActiveSheet.Name
lr = Sheets(test).Range("A" & Rows.Count).End(xlUp).Row
For x = 4 To lr * 3 Step 3
Range("A" & x, "Z" & x).Insert shift:=xlDown
x = x + 1
Next
End Sub

[LeoTaxi]

for 2 empty rows chance
this

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.