Duplicate all of the rows in a worksheet

[eagertolearn]

Hi,

Can someone help me?

I have a worksheet that is comprised of 1200 rows of information. How
can I duplicate every row of information so that each row now has a
duplicate of itself immediately after itself

eg. (original data)

John Smith
Tina Jones
Linda Basil

(new data)

John Smith
John Smith
Tina Jones
Tine Jones
Linda Basil
Linda Basil

Thank you.

 

[JP]

One way is to simply highlight the entire data block, copy and paste
below the original data, then sort by the name column.

HTH,
JP

 

[eagertolearn]

One way is to simply highlight the entire data block, copy and paste
below the original data, then sort by the name column.

HTH,
JP

Ah, yes! So simple indeed! I appreciate your quick response.

~eagertolearn~ ;-)

 

[Teethless mama]

Try this:

=OFFSET($A$1,INT((ROWS($1:1)-1))/2,0)

 

[eagertolearn]

Try this:

=OFFSET($A$1,INT((ROWS($1:1)-1))/2,0)

Excuse my ignorance, Teethless, but exactly where do I put the
formula? Is there any particular cell?

 

[ryguy7272]

Use this:
Sub CopyFiveTimes()

Dim i
Dim j

For i = 1 To 5 'Sheet2.UsedRange.Rows.Count
For j = 1 To 5
Sheets("Sheet1").Range("B" & (j + (i - 1) * 2)) = Sheets("Sheet1").Range("A"
& i).Value
Next
Next

End Sub

Read this:
http://www.anthony-vba.kefra.com/vba/vbabasic1.htm#Creating_Your_First_Macro

Regards,
Ryan---