Need to insert blank rows

  • Thread starter Thread starter Gaurav
  • Start date Start date
G

Gaurav

Hi,

If we have 5000 rows of data and we need to insert a blank row after every
row, what would be the best way to do it?

Thanks
 
Macro.
Something like this:
Sub InsertRowAlternate()
While ActiveCell <> ""
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Wend
End Sub

The "while" part will run down the page until it finds a blank cell;
this assumes that you have no blanks in the 5000. Otherwise you can
use a for loop, but I wasn't sure if your "5000" was an estimate or an
exact number.
 
Gaurav said:
Hi,

If we have 5000 rows of data and we need to insert a blank row after every
row, what would be the best way to do it?

Thanks
Click to expand...

One option (Save a copy first!):

Assuming there is always data in column A and no blank rows within the 5000, go
to the first completely unused column and enter the following in row 1:

=IF(A1="",ROW()-COUNTA(A:A)+0.5,ROW()-1)

Copy this formula down 10000 rows, select all of your data, including the
headers and the new column, then sort by the new column (with "no header row"
selected).
 
Back
Top