Můžete si nadefinovat vlastní funkci:
Function JENCISLO(Bunka As Range) As String
Dim Obsah As String
Dim Znak As String
Dim i As Integer
For i = 1 To Len(Bunka.Value)
Znak = Mid(Bunka.Value, i, 1)
If IsNumeric(Znak) Then
Retezec = Obsah & Znak
End If
Next i
CISLOZTEXTU = Obsah
End Function