How to Duplicate Cells

[BigNate]

Hello,

I want to duplicate Cells 4 times each. I currently have the following:

A	B
First Name 1	Last Name 1
First Name 2	Last Name 2
First Name 3	Last Name 3

<tbody>
</tbody>

I want to have each name show 4 consecutive times. So Cells A1:A4 should have "First Name 1" and Cells B1:B4 should have "Last Name 1" Then in Cells A5, it should be "First Name 2" and so on and so forth.

Can someone please help me out with this?

Thanks,
Nate

 

[chicagocomputerclasses]

<table cellpadding="4px" border="1" cellspacing="1">
<tr><td bgcolor="#DFE3E8"></td><td align="center" width="100.8" bgcolor="#DFE3E8">A</td><td width="97.2" align="center" bgcolor="#DFE3E8">B</td><td width="76.8" align="center" bgcolor="#DFE3E8">C</td><td width="405.6" align="center" bgcolor="#DFE3E8">D</td><td align="center" width="376.8" bgcolor="#DFE3E8">E</td></tr>
<tr><td bgcolor="#DFE3E8">1</td><td bgcolor="#FFFFFF">First Name 1</td><td bgcolor="#FFFFFF">Last Name 1</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">=INDEX($A$1:$A$3,INT((ROWS($A$1:A1)-1)/4)+1)</td><td bgcolor="#FFFFFF">=INDEX($B$1:$B$3,INT((ROWS($A$1:A1)-1)/4)+1)</td></tr>
<tr><td bgcolor="#DFE3E8">2</td><td bgcolor="#FFFFFF">First Name 2</td><td bgcolor="#FFFFFF">Last Name 2</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 1</td><td bgcolor="#FFFFFF">Last Name 1</td></tr>
<tr><td bgcolor="#DFE3E8">3</td><td bgcolor="#FFFFFF">First Name 3</td><td bgcolor="#FFFFFF">Last Name 3</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 1</td><td bgcolor="#FFFFFF">Last Name 1</td></tr>
<tr><td bgcolor="#DFE3E8">4</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 1</td><td bgcolor="#FFFFFF">Last Name 1</td></tr>
<tr><td bgcolor="#DFE3E8">5</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 2</td><td bgcolor="#FFFFFF">Last Name 2</td></tr>
<tr><td bgcolor="#DFE3E8">6</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 2</td><td bgcolor="#FFFFFF">Last Name 2</td></tr>
<tr><td bgcolor="#DFE3E8">7</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 2</td><td bgcolor="#FFFFFF">Last Name 2</td></tr>
<tr><td bgcolor="#DFE3E8">8</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 2</td><td bgcolor="#FFFFFF">Last Name 2</td></tr>
<tr><td bgcolor="#DFE3E8">9</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 3</td><td bgcolor="#FFFFFF">Last Name 3</td></tr>
<tr><td bgcolor="#DFE3E8">10</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 3</td><td bgcolor="#FFFFFF">Last Name 3</td></tr>
<tr><td bgcolor="#DFE3E8">11</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 3</td><td bgcolor="#FFFFFF">Last Name 3</td></tr>
<tr><td bgcolor="#DFE3E8">12</td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF"></td><td bgcolor="#FFFFFF">First Name 3</td><td bgcolor="#FFFFFF">Last Name 3</td></tr>
<tr><td colspan="6"></td></tr>
<tr><td colspan="6" bgcolor="#D7E7F9">Sheet4</td></tr>
</table>

 

[Trustee]

Hello,
you can copy all cells in the sheet and paste them 3 times in the sheet
then order by ascending or descending, this will give you all the cells repeated 4 times
I hope this can help you
Let me know if this doesn't accomplish your needs !

 

[My Aswer Is This]

Try this:

Sub New_Insert()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = Lastrow To 1 Step -1
        Cells(i, 1).Offset(1).Resize(3, 3).Insert shift:=xlDown
        Cells(i, 1).Resize(4, 3).FillDown
    Next
Application.ScreenUpdating = True
End Sub

 

[BigNate]

Thank you everyone for your help! This answers my question!

 

[My Aswer Is This]

Not sure what solution you decided on but: Glad we were able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thank you everyone for your help! This answers my question!