Import comma separated data from a single cell

I would like to display the comma separated numbers contained in a single cell into individual cells.
As under

Before
A1
3.49,4.90,1,-3.49,9870.03
After
A1 A2 A3 A4 A5
3.49 4.90 1 -3.49 9870.03

Many Thanks
Ian

Microsoft Excel

Last Comment

Ian Bell

8/22/2022 - Mon

Subodh Tiwari (Neeraj)

3/28/2016

Try this....

Sub SplitCommaSeparatedCellIntoMultipleCells()
Dim arr
arr = Split(Range("A1").Value, ",")
Range("A1").Resize(UBound(arr) + 1).Value = Application.Transpose(arr)
End Sub

Open in new window

Ian Bell

3/28/2016

ASKER

Hi Sktneer,
Thanks for this, however I am a novice when it comes to code. Can you tell me where to enter it and the steps to do so
Thanks
Ian

ASKER CERTIFIED SOLUTION

Professor J

3/28/2016

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

See Pricing Options