Duplicating call contents down a single column

[jrman1]

Hey all,

I have about 400 rows of data in Column A in a spreadsheet, and I need to take each individual row (in A) and copy/duplicate it twice, directly below the originals.

For instance:

OLD COLUMN A

1
2
3
...

NEW COLUMN A

1
1
1
2
2
2
3
3
3
...
...
...

Additionally, in Column B I have three different rows that need to be duplicated together, similar to column A. But, Column B should only be "extended" as far as Column A goes.

OLD COLUMN B

X
Y
Z

NEW COLUMN B

X
Y
Z
X
Y
Z
X
Y
Z
...
...
...

Thank you very much for your help!!!

 

[Momentman]

I wrote a small macro to help you extend column A as required

Sub ExtendData()
    For I = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        Rows(I + 1).Resize(2).Insert
        Cells(I + 1, "A") = Cells(I, "A")
        Cells(I + 2, "A") = Cells(I, "A")
    Next I
End Sub

Once A is extended, all you need do is go to column B, highlight from row(1) to the end(last used row), then using the cross at the bottom right corner of the bottom cell, double click and it should fill the data down as required like

Excel 2010
	A	B
1	1	x
2	1	y
3	1	z
4	2	x
5	2	y
6	2	z
7	3	x
8	3	y
9	3	z
10	4	x
11	4	y
12	4	z
13	5	x
14	5	y
15	5	z
16	6	x
17	6	y
18	6	z
Sheet2

 

[jrman1]

That'll work!

Thanks again