如何在Excel中的一系列单元格中求和/计数粗体数字？

网友投稿 274 2024-01-19

如何在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

Copy

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

Copy

3。然后保存此代码，然后键入此公式 = sumbold（A1：C9） 放入空白单元格，请参见屏幕截图：

4. 然后按输入键，则将A1：C9范围内的所有粗体数字相加。看截图：

请注意：A1：C9 公式中的表示要使用该函数求和粗体单元格的范围，可以根据需要进行更改。

多次单击以对范围内的粗体单元格进行计数和求和 Kutools for Excel

Y只需单击几下，您就可以轻松地对范围内的所有粗体单元格进行计数或求和，而无需处理复杂的VBA代码和记住公式。

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

1.要计算粗体单元格，请选择一个空白单元格以查找结果，然后单击 Kutools > Kutools 主要工作内容 > 统计与数学 > 计数字体.

要汇总粗体单元格，请单击 Kutools > Kutools 主要工作内容 > 统计与数学 > 字体粗体。看截图：

2.在F功能参数对话框中，在“引用”框中使用您需要计数或求和的粗体单元格指定范围，然后单击 OK 按钮。

现在，将立即在选定的单元格中填充指定范围内所有粗体单元格的计数或求和。看截图：

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

保持公式单元格引用不变 Kutools for Excel 相关文章:

如何在Excel中识别并选择所有粗体单元格或文本？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！