提取一个单元格中的数字的方法

Function SHUZI(AA As Range)

Dim n As Integer, i As Integer, tem

n = Len(AA.Value)

For i = 1 To n

If IsNumeric(Application.Find(Mid(AA.Value, i, 1), "0123456789")) Then

tem = tem & Mid(AA.Value, i, 1)

End If

Next

SHUZI = Val(tem)

End Function

本文地址：http://www.45fan.com/a/question/69852.html