提取一个单元格中的文本(非数字)-自定义函数

Function FeiShuZi(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")) = False Then
            tem = tem & Mid(aa.Value, i, 1)
        End If
    Next
    FeiShuZi = tem
End Function

 相关文章：提取一个单元格中的数字http://blog.csdn.net/xg_an/archive/2006/12/28/1466144.aspx