2. "Stop Recording" on the macro window

3. Tools-Macro-Macro, click Macro 1- Edit to enter a window, delete all contents and paste the following code:

Function acquisition number (b)

Mark I as an integer

Dim Al As String

For i = 1 to Len(b)

Al = Mid(b，I， 1)

If IsNumeric(Al) or Al = ","and then

Getnum = getnum & aluminum

If ... it will be over.

then

End function

Select a cell and enter: =getnum(a 1).

If the extraction is not a number, change it to:

Function Getstr(b)

Mark I as an integer

Dim Al As String

For i = 1 to Len(b)

Al = Mid(b，I， 1)

If it is not IsNumeric(Al), then

Getstr = getstr & aluminum

If ... it will be over.

then

End function

Select a cell and enter: =getstr(a 1).