Option Explicit Function StripChar(Txt As String) As String With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\D" StripChar = .Replace(Txt, "") End With End Function Sub PullNumbers() Range("E2").Select ActiveCell.Formula = "=StripChar(A2)" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E8"), Type:=xlFillDefault Range("E2:E8").Select Range("A1").Select End Sub
So I'm using the above code to pull numbers from a text string that has numbers mixed in with it.
The problem is if I have a decimal place. The code will still pull the numbers to the right of the decimal and this I do not want.
For example, if I have:
|ahrihpxf9c / 1d.123|
the code will pull back: 91123
But I only want 91
How can I trunc this number, or use the =LEFT...or something?
Thanks for the help