Separate data in a cell to different cells

[klllmmm]

I have a data set in below type in a column. How can I extract & put them into separate columns.

Code:1+Name:Book+Size:200pg+Price:100+Vendor:Abooks <tbody> </tbody><colgroup><col></colgroup> <strike></strike>
Code:2+Name:Pen+Size:Standard+Price:10+Vendor:Abooks <tbody> </tbody><colgroup><col></colgroup> <strike></strike>
Code:3+Name:Bag+Size:Standard+Price:250+Vendor:TopBags <tbody> </tbody><colgroup><col></colgroup> <strike></strike>

<tbody>
</tbody>

I worked to some extent using below formula.
MID(A1,1,FIND("+",A1)-1) = Code:1 , MID(Q7,FIND("+",A1,1)+1,FIND("+",A1,2)) = Name:Bo

I want to get the data into separate cells as follows;

Code:1<strike></strike>	Name:Book<strike></strike>	Size:200pg<strike></strike>	Price:100<strike></strike>	Vendor:Abooks<strike></strike>
Code:2<strike></strike>	Name:Pen<strike></strike>	Size:Standard<strike></strike>	Price:10<strike></strike>	Vendor:Abooks<strike></strike>
Code:3<strike></strike>	Name:Bag<strike></strike>	Size:Standard<strike></strike>	Price:250<strike></strike>	Vendor:TopBags<strike></strike>

<tbody>
</tbody>

 

[AkaTrouble]

this doesn't help the post but it is on topic.

great replies guys varied methods to show the scope of excel

even if only goes to show me how much i don't know ..yet (said with a smile)

going to take me a week to sit and work through these before i can delete from my one note page.

top work keep it up and thanks from me .. been following this post to learn

 

[klllmmm]

A2 = Code:1+Name:Book+Size:200pg+Price:100+Vendor:Abooks
B1 = Code

in B2 i entered below formular to get the answer 1

=IF($A2<>"",IFERROR(MID($A2,(FIND((B$1&":"),$A2)+LEN(B$1)+1),IFERROR((FIND(("+"),$A2,(FIND((B$1&":"),$A2)+LEN(B$1)+1))-(FIND((B$1&":"),$A2)+LEN(B$1)+1)),LEN($A2))),""),"")

Thanks again everyone help me on this.