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:

X	A,B,C
Y	D,E,F

<tbody>
</tbody>

I WANT TO MAKE IT LIKE :

X	A
X	B
X	C
Y	D
Y	E
Y	F

<tbody>
</tbody>

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