４桁の数字の各位の和を求めたい

乱数で４桁の数字を出してその各位の和を求めるにはどうすればよいか教えてください。エクセル2002です。
2876　ならば　23　を求めたいのです。
セルを４つ使ってなら出せるのですが、１つの関数でまとめることができるか教えてください。

No.2 ベストアンサー 回答者： mshr1962 回答日時： 2006/04/10 20:53

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

数式の説明
LEN(A1)で桁数を算出
ROW(INDIRECT("A1:A"&LEN(A1)))
で1～桁数までの数値を配列として取得
MID関数でA列の各桁の数値を文字配列として取得
SUMPRODUCT関数で*1で数値化した各桁を合計

この回答へのお礼

早速、ご回答いただいてありがとうございました。
乱数でたまに３桁になることがあるのを忘れていましたが、これでうまくいきました。解説書と照らしあわしてもまだ数式が十分飲み込めず格闘していましたが、解決できて喜んでいます。他の皆さんもありがとうございました。

お礼日時：2006/04/11 11:21

No.5 回答者： mike_g 回答日時： 2006/04/11 09:36

No.4さんの“二番煎じ”になりますが…

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

桁数自動判断ということで、敢えて記載しました。

No.4 回答者： imogasi 回答日時： 2006/04/11 08:13

=SUM(MID($A$1,ROW(B1:B4),1)*1)

と入れて、SHIFT+CTRL+ENTERの３つのキーを同時押しします。
配列数式です。
ROW(B!：B$)の部分は、配列数式で、１，２，３，４をひねり出すコツです。
＊１は文字を数値化するコツです。
配列数式では、ROW(B!：B$)の部分が４つのセルを指定しているので、４つの式の結果を足し（SUM）てくれます。
１０桁でも、式が長くならないメリットがあります。

No.3 回答者： mike_g 回答日時： 2006/04/10 22:02

No.2さんの“二番煎じ”になりますが…

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

No.1 回答者： noname#17648 回答日時： 2006/04/10 20:51

いくつも方法はありますが

=LEFT(A1,1)+MID(A1,2,1)+MID(A1,3,1)+RIGHT(A1,1)
とか、
rounddownを使って１０００、１００、１０で割った数値を足す
INTを使う
とか。。。まだまだあるかな