实时数据单元拆分并添加

Question

我正在使用实时数据表，我想在其中将每个单元格编号拆分为单个编号并添加它们。

Example: 
cell A1 contains number 265.96
Into 26596 and add these number
ie 2+6+5+9+6

Answer 1

您可以使用B1中的公式进行此操作：

=SUMPRODUCT(1*MID(SUBSTITUTE(A1,".",""),ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A1,".","")))),1))

确认：CTLR+SHIFT+ENTER

Answer 2

UDF可能看起来像

Public Function GetSum(ByRef rng As Range) As Long
    Dim i As Long
    For i = 1 To Len(rng.Value)
        If IsNumeric(Mid(rng.Value, i, 1)) Then GetSum = GetSum + Mid(rng.Value, i, 1)
    Next i
End Function