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

最新推荐文章于 2024-05-26 08:55:56 发布

危凌天

最新推荐文章于 2024-05-26 08:55:56 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel VBA

本文链接：https://blog.youkuaiyun.com/wijaya/article/details/16342107

Excel VBA 专栏收录该内容

65 篇文章

订阅专栏

本文介绍两个VBA自定义函数，用于从输入的字符串中提取所有数字字符及算术运算符，并进行拼接。GetNB函数直接返回拼接后的字符串；CountNB函数则进一步利用Application.Evaluate方法尝试计算该字符串表达式的实际数值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

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

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