Getting Numerics from end of a String in VBA

Question

How can I get numeric from end of a string For example if string is 24Text147 i should get 147 only or if string is text12 i should get 12 only. Here is what I have found but it gives all the numerics in a string

Function onlyDigits(s As String) As String

    Dim retval As String    
    Dim i As Integer        

    retval = ""
                                     '
    For i = 1 To Len(s)
        If mId(s, i, 1) >= "0" And mId(s, i, 1) <= "9" Then
            retval = retval + mId(s, i, 1)
        End If
    Next
                             '
    onlyDigits = retval
End Function

Tim Williams · Accepted Answer · 2014-11-17 06:31:12Z

1

Function onlyDigits(s As String) As String
    Dim retval As String
    Dim i As Integer

    retval = ""
                                     '
    For i = Len(s) To 1 Step -1
        If Mid(s, i, 1) Like "#" Then
            retval = Mid(s, i, 1) & retval
        Else
            Exit For
        End If
    Next
    onlyDigits = retval
End Function

answered Nov 17, 2014 at 6:31

Tim Williams

169k8 gold badges104 silver badges143 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Patrick Lepelletier Over a year ago

or just if isnumeric (mid(s,i,1)) then. +1 anyway, i like the like

ZAT · Accepted Answer · 2014-11-17 07:11:07Z

0

Another way:

Function onlyDigits(s As String) As String
For i = Len(s) To 1 Step -1
    If IsNumeric(Right(s, i)) Then
    onlyDigits = Right(s, i)
    Exit Sub
    End If
Next
End Function

answered Nov 17, 2014 at 7:11

ZAT

1,3477 silver badges10 bronze badges

Collectives™ on Stack Overflow

Getting Numerics from end of a String in VBA

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related