From: Michael Styles on
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

From: Gord Dibben on
Select a list and run this macro.

Sub InsertALTrows()
'David McRitchie, misc 2001-06-30
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim i As Integer
For i = Selection(Selection.Count).Row To Selection(1).Row + 1 Step -1
Rows(i).entirerow.Insert
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Tue, 26 Jan 2010 16:30:15 -0500, "Michael Styles"
<mlstyles(a)nospam.nospam> wrote:

>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?

From: Don Guillett on
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
dguillett(a)gmail.com
"Michael Styles" <mlstyles(a)nospam.nospam> wrote in message
news:9E95B875-4715-42A8-A7DA-0E341A5961C4(a)microsoft.com...
>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

From: Michael Styles on
Thanks loads, Gord.

"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:e4rul5dd2fgch0q60slmq409i0v2lab512(a)4ax.com...
> Select a list and run this macro.
>
> Sub InsertALTrows()
> 'David McRitchie, misc 2001-06-30
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
> Dim i As Integer
> For i = Selection(Selection.Count).Row To Selection(1).Row + 1 Step -1
> Rows(i).entirerow.Insert
> Next i
> Application.Calculation = xlCalculationAutomatic
> Application.ScreenUpdating = True
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
> On Tue, 26 Jan 2010 16:30:15 -0500, "Michael Styles"
> <mlstyles(a)nospam.nospam> wrote:
>
>>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?
>
From: Michael Styles on
Thanks Don.

"Don Guillett" <dguillett1(a)gmail.com> wrote in message
news:eLfV5ftnKHA.5344(a)TK2MSFTNGP04.phx.gbl...
> 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
> dguillett(a)gmail.com
> "Michael Styles" <mlstyles(a)nospam.nospam> wrote in message
> news:9E95B875-4715-42A8-A7DA-0E341A5961C4(a)microsoft.com...
>>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
>