How to remove all non alphanumeric characters from a string except period and space in excel?

by

Insert this function into a new module in the Visual Basic Editor:

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = strResult
End Function

Now you can use this as a User Define Function, i.e. if your data is in cell A1, place this formula in an empty cell =AlphaNumericOnly(A1).

If you want to convert a large range directly, i.e. replace all the non-alphanumeric characters without leaving the source, you can do this with another VBA routine:

Sub CleanAll()
    Dim rng As Range

    For Each rng In Sheets("Sheet1").Range("A1:K1500").Cells 'adjust sheetname and range accordingly
        rng.Value = AlphaNumericOnly(rng.Value)
    Next
End Sub

Simply place this sub in the same module and execute it. Be aware though, that this will replace any formulas in the range.

More Related Contents:

  1. Save excel file multiple times with file names in another workbook.
  2. Read/Parse text file line by line in VBA
  3. How do I find the last column with data?
  4. Excel VBA: Answer gets “stuck”
  5. How to insert a picture into Excel at a specified cell position with VBA
  6. Save multiple sheets to .pdf
  7. Having multiple Excel instances launched, how can I get the Application Object for all of them?
  8. filter out multiple criteria using excel vba
  9. Excel VBA autofilter all but three
  10. How can I create a calendar input in VBA Excel?
  11. Cells.Find() Raises “Runtime Error 91: Object Variable or With Block Not Set”
  12. Excel VBA code to copy a specific string to clipboard
  13. Merge values of column B based on common values on column A
  14. How to import a table from web page (with “div class”) to excel?
  15. Concatenate cell data into another data if values matches
  16. Iterating through populated rows
  17. How can I run VBA code each time a cell gets its value changed by a formula?
  18. How to convert 32 bit VBA code into 64 bit VBA code
  19. Using VBA to detect which decimal sign the computer is using
  20. Loop through each row of a range in Excel
  21. Outputting Excel rows to a series of text files
  22. How to create a range from two ranges in VBA?
  23. XML parse VBA excel (function trip, & MSXML2.DOMDocument)
  24. Countif With Multiple OR Criteria
  25. Vlookup to copy color of a cell
  26. every possible combination of the contents of 2 columns in excel
  27. How to delete rows in Excel based on criteria using VBA?
  28. Converting a string representation of a constant into a constant?
  29. Macro to export MS Word tables to Excel sheets
  30. How to get the range of the visible rows after applying an advanced filter in Excel (VBA)

Leave a Comment