对值列表求和

对值列表求和

我可以轻松地用如下公式对以逗号分隔的值列表求和:

=SUM(11,13,17,23)

我想对单独单元格中的列表执行相同的操作,因此如果A1包含:

11,13,17,23

我希望返回单细胞公式64

=SUM(A1)不起作用=SUM(INDIRECT(A1))

在此处输入图片描述

我可以通过以下方式获得答案文本转列或者UDF()

Option Explicit
Public Function zum(SIN As String) As Variant
    Dim ary, a
    ary = Split(SIN, ",")

    For Each a In ary
        zum = zum + Val(a)
    Next a
End Function

但我宁愿使用单细胞公式而不是虚拟专用网络

答案1

您需要一个辅助单元格,例如在 B1 中写入公式

=SUBSTITUTE(A1,",","+")
然后定义名称 Result 并在引用处写入 =Evaluate(B1)
并在需要总和的地方写入 =Result

相关内容