湖南龙网

  1. 首页 > 生活百科 > >

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

小知识生活百科

自定义函数提取字符串中的数字
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 "[A-Z?!~@=_,;|\[]" Then GetNB = GetNB & tmp
Next
Else
GetNB = ""
End If
End Function
若使运算式自动计算，则用以下代码
【EXCEL 自定义函数提取字符串中的数字】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 "[A-Z?!~@=_,;|\[]" Then CountNB = CountNB & tmp
Next
CountNB = Application.Evaluate(CountNB)
Else
CountNB = ""
End If
End Function

    推荐阅读


    上一篇：Excel中将数字转化为列标字母的公式

    下一篇：excel中怎么用AVERAGE函数求几种平均值