How to extract groups of numbers from a string in vba

by

This will run much faster than looping

Public Function NumericOnly(s As String) As String
    Dim s2 As String
    Dim replace_hyphen As String
    replace_hyphen = " "
    Static re As RegExp
    If re Is Nothing Then Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "[^0-9 -]" 'includes space, if you want to exclude space "[^0-9]"
    s2 = re.Replace(s, vbNullString)
    re.Pattern = "[^0-9 ]"
    NumericOnly = re.Replace(s2, replace_hyphen)
End Function

More Related Contents:

  1. Excel Number Separation [closed]
  2. excel vba compare & copy worksheets from 2 excel files
  3. VBA Stuck after certain loop
  4. How to avoid using Select in Excel VBA
  5. Is the . in .Range necessary when defined by .Cells?
  6. How to return a result from a VBA function
  7. Cycle through sub-folders and files in a user-specified root directory [duplicate]
  8. Convert Text to Date?
  9. Run Excel Macro from Outside Excel Using VBScript From Command Line
  10. Importing text file into excel sheet
  11. Loop through each cell in a range of cells when given a Range object
  12. Checking for #N/A in Excel cell from VBA code
  13. Non-web SQL Injection
  14. Error: “Could Not Find Installable ISAM”
  15. Filling any empty cells with the value above
  16. Properly Handling Errors in VBA (Excel)
  17. Password hash function for Excel VBA
  18. Is there a way to slow down a Web Scraper so it will pick up the code?
  19. Create a folder and sub folder in Excel VBA
  20. Aggregate, Collate and Transpose rows into columns
  21. One-dimensional array from Excel Range
  22. Select method of Range class failed via VBA
  23. Renaming Files with Excel VBA
  24. Is there a way to import data from .csv to active excel sheet?
  25. Comparison of Dictionary, Collections and Arrays
  26. Break out of a While…Wend loop
  27. How to add events to dynamically created controls (buttons, listboxes) in Excel VBA userform
  28. How to make safe API Timers in VBA?
  29. EntireRow.Delete performance issue
  30. Error 1004 when setting Range.Locked

Leave a Comment