I know that converting text to columns is simple but i'm wondering if I can
create a macro to conver text to rows?

Would the easist way to do this be simply converting text to columns and
then transposing it to the rows or is there an easier way than this?

My text is e-mail addresses seperated by a comma with no spaces in between
the addresses.

Thanks in advance.

Hi,

You could write a macro but ut seems simplest to me to use text to columns
with a comma delimeter and then copy and paste special - transpose.

Mike

"N1KO" wrote:

I know that converting text to columns is simple but i'm wondering if I can
create a macro to conver text to rows?

Would the easist way to do this be simply converting text to columns and
then transposing it to the rows or is there an easier way than this?

My text is e-mail addresses seperated by a comma with no spaces in between
the addresses.

Thanks in advance.

As you mentioned text to columns with a comma delimeter and transpose is the
simplest way. If you really needa a macro please find the below

Sub Macro()
strData = "<comma separated email string"
arrData = Split(strData, ",")
For lngRow = 0 To UBound(arrData)
Range("A" & lngRow + 1) = arrData(lngRow)
Next
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"N1KO" wrote:

I know that converting text to columns is simple but i'm wondering if I can
create a macro to conver text to rows?

Would the easist way to do this be simply converting text to columns and
then transposing it to the rows or is there an easier way than this?

My text is e-mail addresses seperated by a comma with no spaces in between
the addresses.

Thanks in advance.

Thanks for this Jacob but the e-mail string will constantly change in this
report. It's worked on a few others though.

Appreciated.

"Jacob Skaria" wrote:

As you mentioned text to columns with a comma delimeter and transpose is the
simplest way. If you really needa a macro please find the below

Sub Macro()
strData = "<comma separated email string"
arrData = Split(strData, ",")
For lngRow = 0 To UBound(arrData)
Range("A" & lngRow + 1) = arrData(lngRow)
Next
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"N1KO" wrote:

I know that converting text to columns is simple but i'm wondering if I can
create a macro to conver text to rows?

Would the easist way to do this be simply converting text to columns and
then transposing it to the rows or is there an easier way than this?

My text is e-mail addresses seperated by a comma with no spaces in between
the addresses.

Thanks in advance.