Excel·VBA文字数字混合计算、求和

原创已于 2023-12-07 15:54:59 修改 · 3.3k 阅读

7 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#excel #vba #正则表达式

于 2022-03-17 21:41:00 首次发布

Excel 同时被 2 个专栏收录

80 篇文章

订阅专栏

VBA

77 篇文章

订阅专栏

这篇博客介绍了如何在Excel中处理文字数字混合的计算问题。通过VBA的正则表达式，实现了带有运算符的计算函数`EVAL_REMARK`和不带运算符的求和函数`RE_sum`。这两个函数能够智能地识别并处理单元格内的数字、运算符和备注，分别进行计算和求和操作，对于日常数据处理工作极具实用性。

该文章已生成可运行项目，

带运算符计算

《excel吧提问-文字数字混合求和》，此类文字数字混合在同一单元格内的计算，可以使用vba正则表达式提取内容计算结果
建议：备注文字内容用[ ]分隔，( )定义运算顺序，半角

Function EVAL_REMARK(ByVal rng$)
    '对单元格带备注的数字、运算符、公式计算，返回计算结果
    '建议：备注文字内容用[ ]分隔，( )定义运算顺序，半角
    Dim result
    rng = Replace(rng, "【", "["): rng = Replace(rng, "】", "]")  '全角转半角
    rng = Replace(rng, "（", "("): rng = Replace(rng, "）", ")")
    With CreateObject("vbscript.regexp")  '正则表达式
        .Global = True
        .Pattern = "\[.*?\]|[^0-9+-/*^()]"
        result = .Replace(rng, "")
        EVAL_REMARK = Application.Evaluate(result)  '计算文本表达式，返回结果
    End With
End Function

举例

在这里插入图片描述

不带运算符求和

仅对文字数字混合的字符串，提取数字后求和，不带运算符计算

Function RE_sum(ByVal rng$)
    '对单元格带文字的数字求和，不含运算符+-*/^
    Dim result, i&, num&
    With CreateObject("vbscript.regexp")  '正则表达式
        .Global = True
        .Pattern = "\d+(\.\d+)?"
        Set mhs = .Execute(rng)
        num = mhs.Count
        If num = 0 Then RE_sum = "": Exit Function
        ReDim result(1 To num)
        For i = 0 To num - 1
            result(i + 1) = mhs(i).Value
        Next
        RE_sum = Application.Evaluate(Join(result, "+"))  '求和，返回结果
    End With
End Function