How to obtain numeric values in cells in excel

Formula programming method

The code is as follows:	Copy code
Function GetNumber (IsStr As String) As String Dim I As Integer Dim Char As String For I = 1 To Len (IsStr) Char = Mid (IsStr, I, 1) If Char Like "[0-9]" Then GetNumber = GetNumber & Char Next End Function

Formula

1. The number is in front.

The code is as follows:	Copy code
= LOOKUP (9 ^ 9, -- LEFT (C6, ROW (1:9 )))

2. The digit is behind

The code is as follows:	Copy code
= MID (C5, MIN (FIND (ROW ()-1, C5 & "0123456789"), 9)

3. The number is in the middle.

The code is as follows:	Copy code
= LOOKUP (9 ^ 9, -- LEFT (MID (C7, MIN (FIND (ROW ()-1, C7 & "0123456789"), 10 ), ROW )))