Insert Blank Rows

Posted by KETANKUMAR KOTHARI on December 13, 2001 11:34 AM

Ho can we insert a blank row between each rows we have.
Fo e.g. we have 25 rows and want to insert a blank row between each row, what is the best way to achieve them.

Posted by Mark W. on December 13, 2001 11:53 AM

1. Number your rows (1 to 25) in an unused column.
2. Paste a copy of these numbers (1 to 25)
directly beneath the copied numbers -- on unused
rows. If necessary insert 25 new rows.
3. Sort (Ascending) on the column contains the
numbers (1 to 25).

Posted by Gary on December 13, 2001 12:00 PM

Using VBA you could do:

Dim i as Integer

For i = 25 To 1 Step -1
ActiveSheet.Rows(i).EntireRow.Insert
Next i