Home > VBAUsefulCodes
Remove Special Characters other than numbers
Remove Special Characters other than numbers
Remove Special Characters other than numbers
Dim remnum1 As Range
Application.ScreenUpdating = False
With CreateObject("VBScript.RegExp")
.Pattern = "[^0-9.-]"
.Global = True
For Each remnum1 In Thisworkbook.Sheets("sheetname").Range("A2", Range("A" & Rows.Count).End(xlUp))
remnum1.Offset(, 0) = .Replace(remnum1.Value, "")
Next remnum1
End With
Subscribe
More to Explore
Tags
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts