Separate excel cell data into rows

[kulkasac]

I have data of multiple line in an excel cell, Separated by "Enter" (ASCII 13).
By using VBA I want to trasfer each line in to separate excel row.
e.g. Cell B2 contains data --
VS6_AIO > 0 OR VS6_DIOE > 0
VS6_QTY_B = VS6_AIO*2 IF VS6_AIO > 0 AND VS6_REDY = '2',
VS6_QTY_B = VS6_AIO IF VS6_AIO > 0 AND VS6_REDY NE '2',
VS6_QTY_B = VS6_FM IF VS6_FM > 0,
VS6_QTY_B = VS6_FM*2 IF VS6_FM > 0 AND VS6_RPSI>'Y'

I want to saparte it into row C2,C3,C4,C5,C6
Thanks
SK

[si_the_geek]

Thread moved from the FAQ forum, which is not the place to post your questions.

[Siddharth Rout]

I have data of multiple line in an excel cell, Separated by "Enter" (ASCII 13).
By using VBA I want to trasfer each line in to separate excel row.
e.g. Cell B2 contains data --
VS6_AIO > 0 OR VS6_DIOE > 0
VS6_QTY_B = VS6_AIO*2 IF VS6_AIO > 0 AND VS6_REDY = '2',
VS6_QTY_B = VS6_AIO IF VS6_AIO > 0 AND VS6_REDY NE '2',
VS6_QTY_B = VS6_FM IF VS6_FM > 0,
VS6_QTY_B = VS6_FM*2 IF VS6_FM > 0 AND VS6_RPSI>'Y'

I want to saparte it into row C2,C3,C4,C5,C6
Thanks
SK

Does this help?

Sub SplitMyData()
 
'Replace Sheet1 below with the name of the sheet
str1 = Sheets("Sheet1").Range("B2").Value
MyPos = Split(str1, vbLf)
For i = 0 To UBound(MyPos)
    '(I+2) below will ensure that the data is populated
    'from C2 onwards
    Range("C" & (i + 2)).Value = MyPos(i)
    'MsgBox MyPos(i)
Next
 
End Sub

[westconn1]

here is some other code to do the same thing

arrdata = Split(Range("B2").Value, vbNewLine)
Range("c2:c" & UBound(arrdata) + 2) = WorksheetFunction.Transpose(arrdata)