How can I insert a blank row after every row with data with Excel

[Guest]

I need to insert a blank row after every row containing data (to facilitate
reading and adding survey data by hand) in an Excel spreadsheet. Is there any
way to do so automatically by selecting the data then doing some menu option
or keystroke? I can add a blank row with a macro but that is only a bit less
laborious than having to add each blank row by hand. Thank you for your help.
Margaret

 

[Dave Peterson]

If it's only for reading, maybe you could just double the rowheight of each row.

If the rows are all the same height, you can select all the rows (a few ctrl-a
keystrokes), then just change the rowheight:

Format|row|height
(and double the value there)

 

[Gazeta]

I need to insert a blank row after every row containing data (to facilitate
reading and adding survey data by hand) in an Excel spreadsheet. Is there any
way to do so automatically by selecting the data then doing some menu option
or keystroke? I can add a blank row with a macro but that is only a bit less
laborious than having to add each blank row by hand. Thank you for your help.
Margaret

suppose your data is placed in column A
i understod you want to add each row of data empty row
if so use following sub:

Sub insert()
m = Range("a1").CurrentRegion.Rows.Count
For i = m To 2 Step -1
Cells(i, 1).EntireRow.insert
Next
End Sub

is that what you wanted?
mcg