On Fri, 13 Apr 2007 08:03:40 -0400, Ron Rosenfeld
wrote:
On Fri, 13 Apr 2007 03:19:51 -0700, Les Stout wrote:
Hi Keri, try this
Sub single_Split()
'
Dim x As String, s As Variant
x = Range("A4")
s = Split(x, " ")
Range("B5").Value = s(0)
Range("C5").Value = s(1)
Range("D5").Value = s(2)
Range("E5").Value = s(3)
End Sub
Les Stout
*** Sent via Developersdex http://www.developersdex.com ***
Just as an additional note (I hit send too quickly), the Split function, as a
default, will use <space as the delimiter and also return all of the strings,
so the following routine is equivalent and a bit shorter:
===============================================
Option Explicit
Sub ParseString()
Dim rSrc As Range
Dim rDest As Range
Dim Temp As Variant
Dim i As Long
Set rSrc = Range("A4")
Set rDest = Range("B5")
Temp = Split(rSrc.Text)
For i = 0 To UBound(Temp)
rDest.Offset(0, i).Value = Temp(i)
Next i
End Sub
=============================================== =
--ron
This is out of order and should be a followup response to keri's post.
--ron