Somando uma lista de valores

Question

Eu posso facilmente adicionar uma lista de valores separados por vírgula com uma fórmula como:

=SUM(11,13,17,23)

Eu quero fazer a mesma coisa com a lista em uma célula separada, então se A1 contiver:

11,13,17,23

Gostaria que uma única fórmula de célula retornasse 64

Nem =SUM(A1) nem =SUM(INDIRECT(A1)) work:

EupossoobterumarespostausandoTextToColumnsouUDF():

OptionExplicitPublicFunctionzum(SINAsString)AsVariantDimary,aary=Split(SIN,",")

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

Mas eu prefiro usar uma única fórmula de célula do que VBA .

    

Answer 1

Você precisa de uma célula auxiliar na qual você escreve a fórmula em B1, por exemplo

=SUBSTITUTE(A1,",","+")
Em seguida, defina o nome Result  e em Refere-se a escrever =Evaluate(B1)
e onde você quer que a soma escreva = Resultado