在Excel中求數值的各位數值和

在Excel中求數值的各位數值和

如果需要在Excel中求出一個正整數的各位數值之和，如123456，其各位數值之和1+2+3+4+5+6=21，可以用下面的公式，假如數值在A1單元格中：

1.用SUMPRODUCT函數：

=SUMPRODUCT(–MID(A1,ROW(INDIRECT("1:" & LEN(A1))),1))

說明：假設A1單元格中為數值123456，該公式先用LEN函數返回數值的長度6，并用INDIRECT函數返回“1:6”的引用“:”，然后用ROW("1:6")獲得數組{1;2;3;4;5;6}，這里由于SUMPRODUCT函數的參數為數組，所以可以返回數組，最后用MID函數獲取各數位的數值{"1";"2";"3";"4";"5";"6"}，并用雙重否定符“–”將各數轉化為數值并求和。

2.用SUM函數的數組公式：

=SUM(1*MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))

公式輸入完畢后按Ctrl+Shift+Enter結束。

3.用自定義函數：

在VBA編輯器中插入“模塊”，并輸入下面的VBA代碼：

Function SumDigits(ByVal N As Long) As IntegerDo While N >= 1SumDigits = SumDigits + N Mod 10N = Int(N / 10)LoopEnd Function

然后在單元格中輸入

=SumDigits(A1)

由于該代碼中定義的變量為Long數據類型，即4 字節的整型值，故其可以計算的最大數值為2147483647。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。