Public Function extractallnumeric(Str)
Dim i, Numeric1
Numeric1 = ""
For i = 1 To Len(Str)
If (IsNumeric(Mid(Str, i, 1))) Then
Numeric1 = Numeric1 & Mid(Str, i, 1)
End If
Next i
extractallnumeric = Numeric1
End Function
Subscribe to:
Post Comments (Atom)
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea... -
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment