Put comma seperated data into single columb

[SRAI31]

I had some comma separated vallue in a columb, like below:
A,b,c
d,e,f

i want to make it like:

A
b
c
d
e
f

 

[MickG]

Data assumed to start "A1", Results start "B1".

[COLOR=navy]Sub[/COLOR] MG27Jan16
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, Sp [COLOR=navy]As[/COLOR] Variant
 [COLOR=navy]Set[/COLOR] Rng = Range("A1", Range("A" & Rows.Count).End(xlUp))
  Sp = Split(Join(Application.Transpose(Rng), ","), ",")
    Range("B1").Resize(UBound(Sp) + 1).Value = Application.Transpose(Sp)
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[SRAI31]

Hi mike,

thankxx for help. i need little more help, if the condition will like below:

I HAD SOME DATA LIKE BELOW:
[TABLE="class: cms_table_MsoNormalTable, width: 96"]
<tbody>[TR]
[TD="width: 64"] X[/TD]
[TD="width: 64"] A,B,C[/TD]
[/TR]
[TR]
[TD="width: 64"] Y[/TD]
[TD="width: 64"] D,E,F[/TD]
[/TR]
</tbody>[/TABLE]



I WANT TO MAKE IT LIKE :

[TABLE="class: cms_table_MsoNormalTable, width: 96"]
<tbody>[TR]
[TD="width: 64"] X[/TD]
[TD="width: 64"] A[/TD]
[/TR]
[TR]
[TD="width: 64"] X[/TD]
[TD="width: 64"] B[/TD]
[/TR]
[TR]
[TD="width: 64"] X[/TD]
[TD="width: 64"] C[/TD]
[/TR]
[TR]
[TD="width: 64"] Y[/TD]
[TD="width: 64"] D[/TD]
[/TR]
[TR]
[TD="width: 64"] Y[/TD]
[TD="width: 64"] E[/TD]
[/TR]
[TR]
[TD="width: 64"] Y[/TD]
[TD="width: 64"] F[/TD]
[/TR]
</tbody>[/TABLE]


KINDLY HELP

 

[mole999]

@SRAI31 Please abide by the forum rules you agreed to when you joined

This thread is locked

continue here > https://www.mrexcel.com/forum/excel...a-into-single-columb-against-same-vallue.html