Array formula solution
=1*MID(J3,MATCH(TRUE,ISNUMBER(1*MID(J3,ROW($1:$9),1)),0),COUNT(1*MID(J3,ROW($1:$9),1)))
Macro
Sub ExtractNumbers()
Dim r As Range
Dim s As String
Dim v As Variant
Set r = Range("j3", Range("j3").End(xlDown))
s = Join(Application.Transpose(r))
With CreateObject("VBScript.RegExp")
.Pattern = "\D+"
.Global = True
s = Trim(.Replace(s, " "))
End With
v = Split(s)
With Range("l3").Resize(UBound(v) + 1)
.Value = Application.Transpose(v)
.Sort key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
End With
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: neil johnson
Sent: Sunday, October 16, 2011 5:54 AM
To: excel-macros
Subject: $$Excel-Macros$$ How to extract number in cell
Hi All,
How to extract number form the cell .
For example
abc123abc
wc34agh
783abcd
Thanks
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
