Hello

[Ingolf]

Please help me with a minor problem for you.
I have in sheet1 200 rows with lots of questions and I need to insert (1 to 8) blank rows between every row.

Ex.

AAAAAA
BBBBBBB
CCCCCC
DDDDDD and I want something like :


AAAAAA

BBBBBBB

CCCCCC

DDDDDD

Thank you

 

[GK039]

Open your VB Editor (Alt+F11) and copy - paste the following. (assuming your data begins at A1)

Sub insertline()
Dim i As Integer
Dim lrow As Integer


lrow = Range("a1").End(xlDown).Row

For i = lrow To 1 Step -1
Range("a" & i).EntireRow.Insert
Next i

End Sub

and then Run the procedure

George

Please help me with a minor problem for you.
I have in sheet1 200 rows with lots of questions and I need to insert (1 to 8) blank rows between every row.

Ex.

AAAAAA
BBBBBBB
CCCCCC
DDDDDD and I want something like :


AAAAAA

BBBBBBB

CCCCCC

DDDDDD

Thank you

 

[Ingolf]

Thank you very much George.

 

[GK039]

You' re welcome

Also, use this version. It's better as you will avoid the screen flashing while the procedure runs:

Sub insertline()
Dim i As Integer
Dim lrow As Integer

Application.ScreenUpdating = False

lrow = Range("a1").End(xlDown).Row

For i = lrow To 1 Step -1
Range("a" & i).EntireRow.Insert
Next i

Application.ScreenUpdating = True

End Sub

Thank you very much George.

 

[Ingolf]

Millions thanks...