View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben
 
Posts: n/a
Default How can you add a blank row, per every other row, on an entire

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

On Thu, 29 Jun 2006 15:34:02 -0700, Laura
wrote:

excel spreadsheet, without having to go row by row?