Inserting Alternate Rows

[rommelq]

I have several number of rows filled with data. I decided to insert a blank row after each filled row. But it would take time for me to insert one blank row and do it again for and after each filled row. How can I do it with with just a few clicks?

 

[anno]

rommelq


assuming your data's in column a, in b1 enter a '1' and autofill down to the end of your data (right click on the fill handle on the lower right hand corner of the cell, drag down as far as required and release, selecting 'fill series' from the drop down menu) select and copy this range directly below the first range you have created (ie. autofill b1-b100, copy b1-b100 to b101. select columns a and b, and sort by column b.
delete data in column b.
hth

 

[Qroozn]

I created this macro.
It will start at a1 and insert a row above it. Please replace a1 with the first cell you want a blank row placed above. And always save your document before peforming a macro!
It will create alternative rows through an entier spreadsheet
Hope you can work eith it

Sub insertrows()
Application.ScreenUpdating = False
Range("a1").Select
For Each rw In ActiveSheet.Rows
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Activate
Next rw
Application.ScreenUpdating = True
End Sub
This message was edited by Qroozn on 2002-08-28 18:32

 

[rommelq]

anno, qroozn

thanks for your help. i appreciate it.