在Excel中求数值的各位数值和
时间:2022-07-28 13:30:03
如果需要在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”的引用“$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 Integer
Do While N >= 1
SumDigits = SumDigits + N Mod 10
N = Int(N / 10)
Loop
End Function
然后在单元格中输入
=SumDigits(A1)
由于该代码中定义的变量为Long数据类型,即4 字节的整型值,故其可以计算的最大数值为2147483647。
标签:公式,函数,数值,数组,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
word2016问过文档怎么合并成一个并设置格式统一?
2023-11-14 09:30:25
![](https://img.aspxhome.com/file/2023/0/18000_0s.jpg)
excel 中如何冻结窗格
2023-05-21 07:37:47
![](https://img.aspxhome.com/file/2023/3/a154873_0s.png)
Excel中表格进行改变文字方向的操作技巧
2022-03-01 12:56:09
如何用excel做一元线性回归分析
2022-06-07 03:02:04
word 文档的文件扩展名是什么 如何查看
2022-01-17 01:07:16
![](https://img.aspxhome.com/file/2023/6/33186_0s.png)
excel表格有色边框线的设置
2023-02-27 02:07:11
在Word 2010中新建空白文档
2022-01-28 12:25:19
![](https://img.aspxhome.com/file/2023/4/22264_0s.jpg)
使用Word制作公章的详细方法
2022-04-29 09:05:09
![](https://img.aspxhome.com/file/2023/1/31561_0s.jpg)
Word2016中文本如何快速转换成表格?
2022-02-01 09:19:42
![](https://img.aspxhome.com/file/2023/4/24464_0s.jpg)
如何快速添加Excel表格边框的三种方法
2023-07-04 16:39:27
![](https://img.aspxhome.com/file/2023/0/42970_0s.jpg)
在Word2007中显示或隐藏标尺.网格线
2023-05-17 16:57:32
![](https://img.aspxhome.com/file/2023/2/21662_0s.jpg)
Win10系统不能调整任务栏大小怎么办?Win10系统不能调整任务栏大小的解决方法
2023-08-06 09:16:02
![](https://img.aspxhome.com/file/2023/2/52802_0s.png)
Excel工作表怎么删除浏览记录
2022-05-25 06:38:01
![](https://img.aspxhome.com/file/2023/7/a142867_0s.jpg)
打开Excel总是出现“stdole32.tlb”提示怎么办?
2022-01-30 03:13:08
![](https://img.aspxhome.com/file/2023/5/a153605_0s.jpg)
word礼花绽放效果怎么设置?
2023-12-13 06:52:34
![](https://img.aspxhome.com/file/2023/5/35885_0s.png)
Excel显示值计算
2023-05-15 16:05:13
![](https://img.aspxhome.com/file/2023/9/39429_0s.jpg)
win101903玩游戏会突然卡一下怎么回事?win101903玩游戏会突然卡解决教程
2023-11-13 08:15:51
![](https://img.aspxhome.com/file/2023/1/47861_0s.jpg)
在安装office2003时出现1308、1402、1404等错误代码的原因和解决方法
2023-08-30 23:41:50
怎样在wps表格中快捷查找姓名?
2023-09-22 07:11:42
Excel表格怎么制作供应商年终结算表?
2022-07-02 20:42:32
![](https://img.aspxhome.com/file/2023/0/40090_0s.jpg)