Text to rows

[Phippsy]

I have text in a cell which has been forced onto separate rows within the
same cell. Can I split this into several rows so there is one line in each
new row?

 

[Gary''s Student]

Try this small macro:

Sub rowmaker()
v = ActiveCell.Value
s = Split(v, Chr(10))
For i = 0 To UBound(s)
ActiveCell.Offset(i + 1, 0).Value = s(i)
Next
End Sub

Select the cell and run the macro

 

[Luke M]

Easiest method is usually to use the Data-Text to columns feature, then copy,
paste special - transpose data.

 

[Phippsy]

This works very well thanks

Try this small macro:

Sub rowmaker()
v = ActiveCell.Value
s = Split(v, Chr(10))
For i = 0 To UBound(s)
ActiveCell.Offset(i + 1, 0).Value = s(i)
Next
End Sub

Select the cell and run the macro

 

[Phippsy]

Thanks for this but becasue there is a forced line break there is no way I
can specify a separator unless I am misunderstanding what to do.

 

[Gord Dibben]

To split at the forced line break in delimited by>other hold the Alt key and
type 0010 on the numpad.


Gord Dibben MS Excel MVP

 

[Phippsy]

Excellent thank you!

To split at the forced line break in delimited by>other hold the Alt key and
type 0010 on the numpad.


Gord Dibben MS Excel MVP