I am able to split one row(A1) of comma delimited values into multiple rows with one value in each , however if have multiple rows i am having to do one by one row . can any one help
Sub splita1()
Dim X As Variant
X = Split(Range("A1").Value, ",")
Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
End Sub