如何在Excel中的一系列单元格中求和/计数粗体数字?
如果您的数据范围包含工作表中的一些粗体数字,而现在您只想对粗体单元格进行求和或计数,那么您当然可以手动将它们一一加起来,但这会很费时。 您如何以一种简便快捷的方式对Excel中的粗体单元格求和或计数?
使用用户定义的函数(VBA和公式)计算范围内的粗体数字
使用用户定义的函数(VBA和公式)将范围内的粗体数字求和
几次单击即可使用Kutools for Excel对范围内的粗体单元格进行计数和求和
使用用户定义函数计算范围内的粗体数字
下列 用户定义功能 可以帮助您快速获取粗体单元格的数量。 请这样做:
1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.
2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.
VBA代码:在一系列单元格中计算粗体数字
Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xCount = xCount + 1
End If
Next
CountBold = xCount
End Function
3. 然后保存此代码,然后键入此公式 = CountBold(A1:C9) 放入空白单元格,请参见屏幕截图:
4。 然后按 输入 键,您将计算A1:C9范围内的粗体单元格。
请注意:A1:C9 公式中的表示要使用该功能计算粗体单元格的范围,您可以根据需要进行更改。
使用用户定义的函数求和范围内的粗体数字
而且,如果您只想对数据范围内的粗体数字求和,我也可以创建一个用户定义的函数来解决它。
1. 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications窗口.
2。 点击 插页 > 模块,然后将以下代码粘贴到 模块窗口.
VBA代码:求和一系列单元格中的粗体数字
Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
End If
Next
SumBold = xSum
End Function
3。 然后保存此代码,然后键入此公式 = sumbold(A1:C9) 放入空白单元格,请参见屏幕截图:
4. 然后按 输入 键,则将A1:C9范围内的所有粗体数字相加。 看截图:
请注意:A1:C9 公式中的表示要使用该函数求和粗体单元格的范围,可以根据需要进行更改。
几次单击即可使用Kutools for Excel对范围内的粗体单元格进行计数和求和
Y只需单击几下,您就可以轻松地对范围内的所有粗体单元格进行计数或求和,而无需处理复杂的VBA代码和记住公式。
申请前 Kutools for Excel请 首先下载并安装.
1.要计算粗体单元格,请选择一个空白单元格以查找结果,然后单击 库工具 > Kutools函数 > 统计与数学 > 计数字体.
要汇总粗体单元格,请单击 库工具 > Kutools函数 > 统计与数学 > 字体粗体。 看截图:
2.在F功能参数 对话框中,在“引用”框中使用您需要计数或求和的粗体单元格指定范围,然后单击 OK 按钮。
现在,将立即在选定的单元格中填充指定范围内所有粗体单元格的计数或求和。 看截图:
如果您想免费试用(30-day) 这个实用程序, 请点击下载,然后按照上述步骤进行操作。
使用Kutools for Excel保持公式单元格引用恒定
相关文章:
最佳办公效率工具
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
- 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
- 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
- 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
- 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
- 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
- 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
- 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
- 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
- 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松
- 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
- 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
- 每天将您的工作效率提高50%,并减少数百次鼠标单击!






















