• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA Code for Extracting Numbers

ShoaibAli

New Member
I have situation as mentioned below. I want to extract isnumber from column 1 and put in column 2 as can seen in picture.

ikl;knkjnnn749000sk749000
ergheqrh550000sb550000
rg100erg0000rgh1000000
erger900000greh900000
erg600000rg600000
5erger00000ergerg500000
fgb80000gg0rff800000
fgwe6ewfgw1gweg61
g50000f0w500000
wef3wef1330weg31330
gwe23000002300000
800000ewgweg800000
egwweg13000wegwe001300000
sdg13636ghj13636.36
36000sd36000
sdg500000500000
sdgsdg5250052500
 
small udf:
Code:
Function blah(myStr)
With CreateObject("VBScript.RegExp")
  .Global = True
  .MultiLine = True
  .Pattern = "[^0-9.]"
  blah = CDbl(.Replace(myStr, ""))
End With
End Function

used in a cell thus:
=blah(A1)
65741
 
Back
Top