Split up cell contents into multiple cells (VBA)

[rdw72777]

I know I could codea FIND formula to do this, but for various reasons need to do this via VBA.

I have a cell that includes the following value: "CD, DVD, DVR, None"

I want to create the ability to convert this into 4 cells (in one column) where each cell is just one of the values. Like I said, I know the FIND function could do it ina formula, but was wondering if there was a way to do it in VBA (and if such a VBA code existed better than say using the WorksheetFunction code).

 

[wigi]

I have a cell that includes the following value: "CD, DVD, DVR, None"

I want to create the ability to convert this into 4 cells (in one column) where each cell is just one of the values.

So, let's say the data are in column A, and it needs to be split to columns B, C, D, E? Each cell in that row gets 1 of the 4 values?

 

[rdw72777]

Yup, each value gets its own cell (without the comma).

I mean I'll be putting it into 4 rows in column A, but if you can do it in the same row going across the columns, I can work with it.

 

[wigi]

Hello

In this current topic,
http://www.mrexcel.com/forum/showthread.php?t=587070
a VBA solution was posted as well (although the topic is primarily about text to columns using worksheet formulas).

 

[rdw72777]

Yeah I've seen a lot of formula absed sutff (Text to columns down't really work here as the process I'm asking about is part of a much larger process, and like I said I don't want the data in multiple columns but rather multiple rows within a column).

I guess I'll just use FIND within VBA.

 

[wigi]

What cells need to be converted to 4 rows below each other?