Notifications
Clear all
VBA & Macros
3
Posts
3
Users
0
Reactions
67
Views
Topic starter
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 |
Posted : 22/02/2020 7: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
Posted : 22/02/2020 1:07 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
Posted : 23/02/2020 11:32 pm
