
Ali Shoaib
Member
Members

Forum Posts: 8
Member Since:
February 20, 2020
February 20, 2020

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 |

Purfleet
England
Member
Members

Trusted Members

Trusted Members

Forum Posts: 414
Member Since:
December 20, 2019
December 20, 2019

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
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 —
