Copy data from 1 column to split columns

[gjvv]

Hello,
I got a huge list with data, but this is 1 column, with 2 variables. See my example file.
My goal is to get the data into 2 columns. In the example file, there's a macro which does the job for only a few rows. But with thousand rows, it will not work.

I was thinking to add a column in front with 2 different names (can be done manually), so I could copy all the data from column C to column D (- 1 row), and then delete all rows containing "Color".
But how?

Thanks in advance!

GJ

Here's my Minisheet:

Example.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1		Goal:										Alternitive approach
2
3							Type	Color
4			Paper 01				Paper 01	yellow				Type	Paper 01
5			yellow				Paper 02	red				Color	yellow
6			Paper 02				Paper 03	green				Type	Paper 02
7			red				Paper 04	purple				Color	red
8			Paper 03				Paper 05	blue				Type	Paper 03
9			green									Color	green
10			Paper 04									Type	Paper 04
11			purple									Color	purple
12			Paper 05									Type	Paper 05
13			Blue									Color	Blue
14
15
16
17
18		Excisting macro										backup data (to copy in B19)
19
20
21			Paper 01										Paper 01
22			yellow										yellow
23			Paper 02										Paper 02
24			red										red
25			Paper 03										Paper 03
26			green										green
27			Paper 04										Paper 04
28			purple										purple
29			Paper 05										Paper 05
30			Blue										Blue
31
32
33
34
35
36
37
Blad1

 

[Georgiboy]

Sorry bit confused by the data, is it the below you want to get to?

Book1
	A	B	C	D	E	F	G
1	TOCOL		Type	Color		WRAPROWS
2	Paper 01		Paper 01	yellow		Paper 01	yellow
3	yellow		Paper 02	red		Paper 02	red
4	Paper 02		Paper 03	green		Paper 03	green
5	red		Paper 04	purple		Paper 04	purple
6	Paper 03		Paper 05	blue		Paper 05	blue
7	green
8	Paper 04
9	purple
10	Paper 05
11	blue
Sheet1

Cell Formulas
Range	Formula
A2:A11	A2	=TOCOL(C2:D6)
F2:G6	F2	=WRAPROWS(A2#,2)
Dynamic array formulas.

 

[gjvv]

Thanks for the reply. I can't edit my post, so here's an explanation.
Based on my Minisheet: forget all other data around B2:I15. The Minisheet doesn't work with the macro.

The goal is to transform the data from column C into 2 columns with the data separated in Type ("Paper ##") and Color.
So basicly, put all values from the even rownumbers besides the values from the uneven rownumbers. Column C doesn't have to be deleted necessarily.

I can't get the formulas you use to work. The TOCOL results in a SPILL-fault, and the WRAPROWS in a #REF!-fault.
Where do you put those formulas? Because in A2, there's the value "Paper 01".

Best regards,
GJ

 

[Georgiboy]

The wraprows works as below, i tried to keep the data as you displayed it:

Book1
	A	B	C	D	E	F	G	H	I	J
1		Goal:
2
3							Type	Color
4			Paper 01				Paper 01	yellow
5			yellow				Paper 02	red
6			Paper 02				Paper 03	green
7			red				Paper 04	purple
8			Paper 03				Paper 05	Blue
9			green
10			Paper 04
11			purple
12			Paper 05
13			Blue
14
15
16
17
Sheet2

Cell Formulas
Range	Formula
G4:H8	G4	=WRAPROWS(C4:C13,2)
Dynamic array formulas.

 

[gjvv]

The wraprows works as below, i tried to keep the data as you displayed it:

Book1
	A	B	C	D	E	F	G	H	I	J
1		Goal:
2
3							Type	Color
4			Paper 01				Paper 01	yellow
5			yellow				Paper 02	red
6			Paper 02				Paper 03	green
7			red				Paper 04	purple
8			Paper 03				Paper 05	Blue
9			green
10			Paper 04
11			purple
12			Paper 05
13			Blue
14
15
16
17
Sheet2

Cell Formulas
Range	Formula
G4:H8	G4	=WRAPROWS(C4:C13,2)
Dynamic array formulas.

Thanks!