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

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)



margaret1115 wrote:

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

U¿ytkownik "margaret1115" napisa³ w
wiadomo¶ci ...
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