extract string

D

dreamer

I have a string that looks like this:

15;18;22;25

or like this

2;89

How can I extract it so it returns only the numbers from the string.
So in the first case it would be 15 18 22 25 etc..
 
N

Norman Jones

Hi Dreamer,

Sub Tester()

Dim sStr As String
Dim i As Long
Dim v As Variant

sStr = "15;18;22;25"

v = Split(sStr, ";")

For i = LBound(v) To UBound(v)
MsgBox v(i)
Next i

End Sub

I believe that the Split function was added in xl2. If you are using an
earlier version then you could use the following function supplied by Tom
Ogilvy:

Function Split97(sStr As Variant, sdelim As String) As Variant
Split97 = Evaluate("{""" & _
Application.Substitute(sStr, sdelim, """,""") & """}")
End Function
 
B

Bob Phillips

Just use Data>Text to Columns with a delimiter of ;.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top