MrExcel Publishing
Your One Stop for Excel Tips & Solutions

insert a blank row after every row


Posted by mitch on August 13, 2001 3:00 PM

I am getting real tired of "alt-i r" enter enter "alt-1 r" etc... How can I add a black row after after every existing row. For example this...
1
2
3
4

Would then look like this...
1

2

3

4

and so on.
Thanks,
Mitch


Posted by faster on August 13, 2001 3:05 PM


Try This:

Sub InsertBlank()
Range("A1").Select

Do While Selection <> ""
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
Selection.Offset(1, 0).Select
Loop

Range("A1").Select

End Sub

Posted by Russell Hauf on August 13, 2001 3:10 PM

Here's a quick macro that should work:

Sub InsertRows()

Dim intLastRow as Integer
Dim intRow as Integer

intLastRow = InputBox("What is the last row of your section?")

For intRow = intLastRow to 2 Step - 1

Rows(intRow).Select
Selection.Insert Shift:=xlDown

Next intRow

End Sub


Hope this helps,

Russell