Thread
:
Inserting a blank row between rows of data
View Single Post
#
3
Posted to microsoft.public.excel.worksheet.functions,microsoft.public.excel
Don Guillett[_2_]
external usenet poster
Posts: 1,522
Inserting a blank row between rows of data
Sub insertrows()
dim i as long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Michael Styles" wrote in message
...
I have three Excel 2007 lists, around 200 rows each. I've now found I need
to insert a blank row after each list entry. Is there any easy way to do
this? I'm pretty decent with Excel, but don't know VBA. I thought of
recording a macro, but didn't know how to edit it so that I wouldn't have
to repeat the same action 200 times for the first list. Can anyone help?
--
Michael Styles
Microsoft Certified Trainer
Microsoft Certified Professional
Reply With Quote
Don Guillett[_2_]
View Public Profile
Find all posts by Don Guillett[_2_]