Log In
Register
Home
VBA Code for Extracting Numbers
Ali Shoaib
Member
Members
Forum Posts: 8
Member Since:
February 20, 2020
February 20, 2020
Offline1
February 21, 2020 - 9:07 pm
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;knkjnnn749000sk | 749000 |
| ergheqrh550000sb | 550000 |
| rg100erg0000rgh | 1000000 |
| erger900000greh | 900000 |
| erg600000rg | 600000 |
| 5erger00000ergerg | 500000 |
| fgb80000gg0rff | 800000 |
| fgwe6ewfgw1gweg | 61 |
| g50000f0w | 500000 |
| wef3wef1330weg | 31330 |
| gwe2300000 | 2300000 |
| 800000ewgweg | 800000 |
| egwweg13000wegwe00 | 1300000 |
| sdg13636ghj | 13636.36 |
| 36000sd | 36000 |
| sdg500000 | 500000 |
| sdgsdg52500 | 52500 |
See Answer
Purfleet
England
Member
Members
Trusted Members
Trusted Members
Forum Posts: 414
Member Since:
December 20, 2019
December 20, 2019
Offline2
February 22, 2020 - 3:07 am
With your data in Column A try
Sub NumEx()
Dim r As Range
Dim c As Range
Dim i As Integer
Dim Temp As String
Dim o As String
Set r = Range("a1:a17")
For Each c In r
For i = 1 To Len(c)
Temp = Mid(c, i, 1)
If IsNumeric(Temp) = True Then
o = o & Temp
End If
Next i
c.Offset(0, 2) = o
Temp = ""
o = ""
Next c
End Sub
Answers Post
Philip Treacy
Admin
Forum Posts: 1550
Member Since:
October 5, 2010
October 5, 2010
Offline3
February 23, 2020 - 1:32 pm
Hi Shoaib,
You can use a formula for this
=VALUE(TEXTJOIN("",TRUE,IFERROR(MID(A1,ROW(INDIRECT("1:100")),1)+0,"")))
If your version of Excel doesn't support dynamic arrays, you'll need to enter this with CTRL+SHIFT+ENTER
Regards
Phil
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: Srikanth Amudhan, Kumud Patel
Guest(s) 8
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
Hans Hallebeek: 184
Newest Members:
Hilary Burchfield
Richie Wright
Adel Kock
Barbara Murray
Doug Milne
https://www.afabola.net/
Siobhan Stringer
Rob Rooth
Tom Lewis
Jennifer Rodriguez-Avila
Forum Stats:
Groups: 3
Forums: 24
Topics: 6540
Posts: 28628
Member Stats:
Guest Posters: 49
Members: 32829
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen
© Simple:Press —