Note: The other languages of the website are Google-translated. Back to English

如何在Excel中的单个单元格中求和或相加数字?

在许多情况下,您可能需要对单个单元格中的所有数字求和。 例如,在单元格A1中有一个文本字符串Class 2 Grade 1,这些数字相加的结果为1 + 2 = 3。 本文将详细介绍在单个单元格中添加数字的方法。

具有用户定义功能的单个单元格中的总和
只需单击几下即可轻松将单个单元格中的数字相加


具有用户定义功能的单个单元格中的总和

您可以使用以下用户定义的函数对单个单元格中的数字求和。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块。 然后将下面的VBA复制到 模块 窗口。

VBA:单个单元格中的总和

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Press 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

4.选择一个空白单元格以输出结果。 在其中输入以下公式,然后按 输入 键(A2是将对单个数字求和的单元格)。

=SUMNUMS(A2)

5.然后拖动结果单元格的“填充手柄”,以将公式应用于其他需要的单元格。

备注:此用户定义的功能不适用于数字格式的单元格。


只需单击几下即可轻松将单个单元格中的数字相加

Kutools for Excel单元格中的总和 只需单击几下鼠标,公式即可帮助轻松地对单个单元格(包括文本格式的单元格和数字格式的单元格)中的数字求和。

申请前 Kutools for Excel首先下载并安装.

1.选择一个空白单元格以输出结果。 然后点击 库工具 > 公式助手 > 公式助手.

2。 在里面 公式助手 对话框,请进行以下配置。

2.1)查找并选择 单元格中的总和 选择一个公式 框;
小贴士:您可以检查 筛选器 框中,键入关键字以过滤所需的公式。
2.2)在 细胞 在方框中,指定一个包含您将求和的数字的单元格;
2.3)点击 OK 按钮。 看截图:

3.然后将结果填充到选定的单元格中。 选择结果单元格,然后向下拖动其“填充手柄”以获取其他结果。

  如果您想免费试用(30-day) 这个实用程序, 请点击下载,然后按照上述步骤进行操作。


使用Kutools for Excel轻松在单个单元格中求和


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (8)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
非常感谢这个模块的想法太棒了! 我从不知道它的存在
该评论由网站上的主持人最小化
这个工具的问题是它添加了所有的数字。 问题是 125 + 2 不是 127。该工具会将其添加为 1 + 2 + 5 + 2。不确定这对需要添加所有数字的人有何用处。 即使在示例中,它也没有意义或看起来不实用。 我错过了什么?
该评论由网站上的主持人最小化
如果将数字单独输入到单元格中,则不正确,例如 125 2 并且将公式输入到下一个单元格中。 带有公式的单元格将计算 127。
该评论由网站上的主持人最小化
喜迈克尔,
抱歉弄错了。 请在模块(代码)窗口中输入以下 VBA 代码,然后应用此公式: =SUMNUMS(A1,"") 对单元格中的所有数字求和。

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
该评论由网站上的主持人最小化
您也可以很容易地在单元格中键入“=”。 因此,如果您有一个单元格为 3 但想要添加 1+2,则单元格中将是“=1+2”
该评论由网站上的主持人最小化
我有一个数字列表,我想自动将 30 添加到每个单元格中的每个数字。 那可能吗?
该评论由网站上的主持人最小化
如何在一个单元格中为数字添加 +1 位(单词或 Excel 或记事本,没关系)。 但在我的工作中,我经常有:14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 之类的。

我需要让它们像:15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304。 我手动完成,但也许有一种快速的方法可以做到这一点?
该评论由网站上的主持人最小化
VBA 函数代码运行良好。 谢谢你。 
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护