Insert Lines
 

I have a worksheet sent to me with over 700 names on it. I need to put 4
extra lines under each name. Is there a way to do this without having to
individually insert those lines as this will take a long time. Thanks.

Insert Lines
 

On Apr 29, 9:29�pm, RENEE wrote:
I have a worksheet sent to me with over 700 names on it. �I need to put 4
extra lines under each name. �Is there a way to do this without having to
individually insert those lines as this will take a long time. �Thanks.

Output as CSV
Open in word processor
replace one new para with 4 new paras
save as .txt file
change extension to csv
open in XL & save as a worksheet.

Alan Lloyd

Insert Lines
 

Check your other post.

RENEE wrote:

I have a worksheet sent to me with over 700 names on it. I need to put 4
extra lines under each name. Is there a way to do this without having to
individually insert those lines as this will take a long time. Thanks.

--

Dave Peterson

Insert Lines
 

Sorry - I lost you at "replace one new para with 4 new paras". I copied
some of the lines into Word, but couldn't figure out what you mean by the
foregoing.

Then, save as .txt file and change the extension from txt to csv? Then copy
to Excel? Or, is it possible to open a word file as an excel file?

Thank you.

" wrote:

On Apr 29, 9:29�pm, RENEE wrote:
I have a worksheet sent to me with over 700 names on it. �I need to put 4
extra lines under each name. �Is there a way to do this without having to
individually insert those lines as this will take a long time. �Thanks.

Output as CSV
Open in word processor
replace one new para with 4 new paras
save as .txt file
change extension to csv
open in XL & save as a worksheet.

Alan Lloyd
.

Insert Lines
 

On 4/29/2010 1:29 PM, RENEE wrote:
I have a worksheet sent to me with over 700 names on it. I need to put 4
extra lines under each name. Is there a way to do this without having to
individually insert those lines as this will take a long time. Thanks.

Record a macro to insert four lines and move down one line, then repeat
it as needed.

Bill

Insert Lines
 

Sorry, that's way beyond me. Could you spell it out in detail. Thanks.
"Billns" wrote:

On 4/29/2010 1:29 PM, RENEE wrote:
I have a worksheet sent to me with over 700 names on it. I need to put 4
extra lines under each name. Is there a way to do this without having to
individually insert those lines as this will take a long time. Thanks.

Record a macro to insert four lines and move down one line, then repeat
it as needed.

Bill
.

Insert Lines
 

Assumes names are in column A

Sub rowsinsertfour()
'don guillett
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, 1) < "" Then _
Cells(i, 1).Resize(4, 1).entirerow.Insert
Next i
End Sub

If you're not familiar with VBA and macros, see David McRitchie's site for
more on "getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

or Ron de De Bruin's site on where to store macros.

http://www.rondebruin.nl/code.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run or edit the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben MS Excel MVP

On Wed, 5 May 2010 14:31:01 -0700, RENEE
wrote:


Sorry, that's way beyond me. Could you spell it out in detail. Thanks.
"Billns" wrote:

On 4/29/2010 1:29 PM, RENEE wrote:
I have a worksheet sent to me with over 700 names on it. I need to put 4
extra lines under each name. Is there a way to do this without having to
individually insert those lines as this will take a long time. Thanks.

Record a macro to insert four lines and move down one line, then repeat
it as needed.

Bill
.

Insert Lines
 

On 5/5/2010 5:07 PM, Gord Dibben wrote:
Assumes names are in column A

Sub rowsinsertfour()
'don guillett
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(i, 1)< "" Then _
Cells(i, 1).Resize(4, 1).entirerow.Insert
Next i
End Sub

If you're not familiar with VBA and macros, see David McRitchie's site for
more on "getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

or Ron de De Bruin's site on where to store macros.

http://www.rondebruin.nl/code.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run or edit the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben MS Excel MVP

On Wed, 5 May 2010 14:31:01 -0700,
wrote:


Sorry, that's way beyond me. Could you spell it out in detail. Thanks.
"Billns" wrote:

On 4/29/2010 1:29 PM, RENEE wrote:
I have a worksheet sent to me with over 700 names on it. I need to put 4
extra lines under each name. Is there a way to do this without having to
individually insert those lines as this will take a long time. Thanks.

Record a macro to insert four lines and move down one line, then repeat
it as needed.

Bill
.


Thanks, Gord, for jumping in with the details...

Bill