How to get numbers and text from data cell in excel using vba

u face many problem to seperate the number from text in excel

here is simple way to create a formula to get result by just copy & paste

1) click alt+f11

2 )insert module

3) copy it

Function numonly(textvalue) As Variant
Dim i As Long
Dim t As Long
For i = 1 To Len(textvalue)
If IsNumeric(Mid(textvalue, i, 1)) Then
t = t & Mid(textvalue, i, 1)
End If
Next i
numonly = t
End Function 

4) paste it in  module

u get a formula which give only number in the cell

used as formula & get result

congrats u create a formula that give number from cell

similarly u get text by copying this code

Function textonly(textvalue) As String

Dim i As Long

Dim t As String

For i = 1 To Len(textvalue)

If Not IsNumeric(Mid(textvalue, i, 1)) Then

t = t & Mid(textvalue, i, 1)

End If

Next i

textonly = t

End Function

u r able to get text and number differently