How can you add a blank row, per every other row, on an entire

G

Gord Dibben

You could do it easily with a macro.

Why would you do this?

If for appearance and better readability, just select all rows and double the
height.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
numRows = 1
For r = 2000 To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).EntireRow.Insert
Next r
Application.ScreenUpdating = True
End Sub

Change the 2000 to whatever range you want.


Gord Dibben MS Excel MVP
 
T

Text2Col

Laura said:
excel spreadsheet, without having to go row by row?
Click to expand...

One way would be to:
1) insert a new column next to your data
2) number the columns 1,3,5,7,etc. (use 'Fill' and then 'Series')
3) number some blank lines 2,4,6,8,etc. (use 'Fill' and then 'Series')
4) sort your data by the new column.
5) delete the new column.
 
Top