在excel的同一个单元格中添加2个或多个数字答案

【问题标题】：Adding 2 or more numbers in the same cell in excel在excel的同一个单元格中添加2个或多个数字
【发布时间】：2014-07-18 04:08:17
【问题描述】：

例如，在命理中，您可以添加出生年份的数字；让我们假设 1945 年。当这些数字相加时，它们的总和为 19 (1+9+4+5)。然后必须再次添加它们以得出一个数字，在这种情况下是 10 然后 1。请您提供一个公式吗？

【问题讨论】：

向我们提供一些您尝试过的代码，我们会告诉您其中有什么问题。
分享您已经尝试过的公式，以便我们帮助您解决这个问题。

标签： excel-formula formula

【解决方案1】：

将此添加到您的 VBA 文件（按 Alt-F11）将为您提供一个名为“totalString”的函数。

然后可以使用=totalString(A1) 计算总和，其中A1 是包含您的号码的单元格，例如1945，或直接使用（您猜对了...）=totalString(1945)

Function totalString(ByVal numberString As Integer) As Integer
    Dim length As Integer
    length = LEN(numberString)
    Dim sum As Integer
    sum = 0

    For i=1 To length
        sum = sum + mid(numberString, i, 1)
    Next i

编辑：您可以使用第三个代码块（在帖子的底部）仅指定要添加的某些值，而不是下一部分。

    Dim l2 As Integer
    l2 = LEN(sum)
    If l2 <> 1 Then
        totalString = totalString(sum)
    Else
        totalString = sum
        Exit Function
    End If

End Function

第三块（另一种结局...）

    If sum > 11 Then
        totalString = totalString(sum)
    Else
        totalString = sum
        Exit Function
    End If
End Function

该函数计算你给它的数字的长度，然后将每个数字的值相加。它检查求和的长度是否为 1，如果不是，则递归调用该函数。

【讨论】：