EXCEL 自定义函数提取字符串中的数字

来源:互联网 时间:2016-01-03

自定义函数提取字符串中的数字

Function GetNB(rng As Range)

If rng <> "" Then

For i = 1 To Len(rng)

tmp = Mid(rng, i, 1)

If IsNumeric(tmp) Or tmp Like "[+-\*\/^%)()]" And Not tmp Like "[[email protected]=_,;|\[]" Then GetNB = GetNB & tmp

Next

Else

GetNB = ""

End If

End Function

若使运算式自动计算,则用以下代码

Function CountNB(rng As Range)

If rng <> "" Then

For i = 1 To Len(rng)

tmp = Mid(rng, i, 1)

If IsNumeric(tmp) Or tmp Like "[+-\*\/^%()]" And Not tmp Like "[[email protected]=_,;|\[]" Then CountNB = CountNB & tmp

Next

CountNB = Application.Evaluate(CountNB)

Else

CountNB = ""

End If

End Function

相关阅读:
Top