Fastest way to store each word in a cell in a diff variable

[J@Y]

If I have a cell with words in them separated by spaces, what is the
fastest/easiest way to store each word into a variable? (Non Text-to-Column
way)

 

[RB Smissaert]

Try something like this:

Sub test()

Dim i As Long
Dim str As String
Dim arr

str = Cells(1).Text

arr = Split(str, " ")

For i = 0 To UBound(arr)
Cells(i + 1, 2) = arr(i)
Next i

End Sub


RBS