Take values from a cell, and divide into several cells

Try Text to Columns under the Data tab

hi engineerlady, welcome to the forum. you don't have to do it with VBA. select column A & go to Data -> Text to Columns -> Delimited -> Next -> check "Space" & "Comma" -> Finish

that will separate the data by commas & spaces. if you need VBA, here's a recorded version:

Sub Test()

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
End Sub

All you have to do is go to the DATA tab on excell, select TEXT TO COLUMNS and when the popup wizard comes up, select DELIMITED and then check the box marked next to the word COMMA. Then click FINISH. That will do it for you real quick. It works with any type of data, words or numbers or a combination of words and numbers.

Hi engineerlady,

if you already have all data in one column, you can try with this user defined function:

Function SplitString(inputstring As String, delimiter As String, ordNO As Integer) As String
Application.Volatile
temparray = Split(inputstring, delimiter)
SplitString = temparray(ordNO - 1)
End Function

You can find example of using it in attachment...

Regards,