How to find numbers from a string?

by

Assuming you mean you want the non-numbers stripped out, you should be able to use something like:

Function onlyDigits(s As String) As String
    ' Variables needed (remember to use "option explicit").   '
    Dim retval As String    ' This is the return string.      '
    Dim i As Integer        ' Counter for character position. '

    ' Initialise return string to empty                       '
    retval = ""

    ' For every character in input string, copy digits to     '
    '   return string.                                        '
    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

    ' Then return the return string.                          '
    onlyDigits = retval
End Function

Calling this with:

Dim myStr as String
myStr = onlyDigits ("3d1fgd4g1dg5d9gdg")
MsgBox (myStr)

will give you a dialog box containing:

314159

and those first two lines show how you can store it into an arbitrary string variable, to do with as you wish.

More Related Contents:

  1. Matching similar but not exact text strings in Excel VBA projects
  2. Build a Comma Delimited String
  3. Excel VBA like operator [closed]
  4. How to extract file name from path?
  5. Check if a string contains another string
  6. Split string into array of characters?
  7. Call a Sub with a String
  8. Excel VBA: Range to String Array in 1 step
  9. Any method equivalent to PadLeft/PadRight?
  10. Turn Excel range into VBA string
  11. Unicode string literals in VBA
  12. Implementing String.Format() in VB6
  13. Excel: Use formula longer that 255 characters
  14. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  15. Can VBA Reach Across Instances of Excel?
  16. If WorkSheet(“wsName”) Exists [duplicate]
  17. Efficient way to delete entire row if cell doesn’t contain ‘@’ [duplicate]
  18. Returning Null JSON Throwing Type Mismatch Error in VBA
  19. Best workaround for VBA Transpose array length limit?
  20. How to search a string in multiple files and return the names of files in Powershell?
  21. Excel VBA Filter Change event handler
  22. How do we use restful APIs from Excel macros (vba)?
  23. How to highlight a cell using the hex color value within the cell?
  24. Cannot VBA write data to cells in Excel 2007/2010 within a function
  25. How to collapse a list of characters into a single string in R
  26. How to send email to multiple recipients with addresses stored in Excel?
  27. Replace String in all files in Eclipse [closed]
  28. How can I replace newline characters using JSP and JSTL?
  29. Remove all line breaks at the beginning of a string in Swift
  30. Excel VBA – How to Redim a 2D array?

Leave a Comment