KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中统计或求和带有删除线的单元格？

作者小杨修改日期

在 Excel 中，我们常对某些单元格应用删除线格式，以直观标记数据为过时、无关或无效。这种视觉提示能显著提升数据管理效率，助您在分析过程中聚焦关键信息。然而，在执行统计或求和等计算时，您可能希望将带删除线与不带删除线的单元格结果分别处理。掌握此类场景的应对方法，有助于优化工作流程，获得更精准的洞察。本文为您提供了多种实用方案，通过可自定义的 VBA 函数，轻松实现对带或不带删除线格式的单元格进行统计与求和，灵活满足多样化的数据管理需求。

使用 VBA 在 Excel 中统计带删除线的单元格

使用 VBA 在 Excel 中统计不带删除线的单元格

使用 VBA 在 Excel 中对不带删除线的单元格求和

使用 Kutools for Excel 统计或求和带删除线的单元格

在 Excel 中统计带删除线的单元格

如果您需要统计特定范围内应用了删除线格式的单元格总数，Excel 内置函数无法直接实现这一功能，因为没有任何公式能够识别删除线等文本格式。此时，借助 VBA 编写用户自定义函数（UDF）是一种高效实用的解决方案。该方法在管理待办事项列表、库存更新，或任何使用删除线标记已完成、无效或过时数据的场景中尤为有用。

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 VBA 窗口中，单击插入> 模块 以创建新模块，然后将以下代码粘贴到模块窗口中。

VBA 代码：统计带删除线的单元格

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. 输入代码后，请保存工作簿（以保留宏），然后关闭 VBA 编辑器并返回工作表。在任意空白单元格中（例如要检查范围 ）A2:B14 内带删除线的单元格），输入以下公式：=CountStrike(A2:B14)

提示：您可以将 A2:B14 替换为任意其他需要检查的范围。

使用用户定义函数统计带删除线的单元格

4. 按 Enter 键执行公式，Excel 将立即显示限定区域内所有带删除线单元格的数量，助您高效跟踪进度或按需移除已弃用条目。参见截图：

统计带删除线的单元格结果

注意事项：为确保此 VBA 代码日后仍可使用，请务必将文件保存为 .xlsm 格式（启用宏的 Excel 工作簿）。

在 Excel 中统计不带删除线的单元格

有时您可能需要统计给定范围内未应用删除线格式的单元格数量。例如，在项目跟踪表或销售数据中，通常只需统计有效/活跃条目（即不带删除线的单元格），以便进行后续操作。Excel 默认的 COUNT 或 COUNTA 函数会忽略文本格式，因此定制的 VBA 解决方案能为此类需求提供精准控制。

1. 按下 ALT + F11，即可启动 Microsoft Visual Basic for Applications 窗口。

2. 转到插入> 模块，添加新代码模块，并将以下代码粘贴到该模块窗口中。

VBA 代码：统计不带删除线的单元格

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. 保存您的启用宏工作簿，返回工作表，在空白单元格中输入公式（例如针对 ）A2:B14）：=countnostrike(A2:B14)，然后按 Enter 即可获取结果。Excel 将仅统计所选区域中不带删除线格式的单元格。

使用用户定义函数统计非删除线单元格

注意：在上述示例中，A2:B14 是被评估的单元格范围。请根据您的工作表调整范围引用。另外请注意，合并单元格或特殊格式有时可能影响结果——请仔细确认您的范围仅包含预期单元格。

在 Excel 中对不带删除线的单元格求和

处理数值数据时，某些条目可能已失效或需被忽略（例如应用了删除线格式），此时通常只需对有效数值求和。这在预算表、库存管理或任务跟踪等场景中十分常见——其中带删除线的条目代表过时或已完成的项目，必须从总计中排除。由于 Excel 内置的 SUM 函数无法识别单元格是否应用了删除线格式，因此需借助用户自定义的 VBA 函数来实现这一功能。

1. 按下 ALT + F11，即可打开 Microsoft Visual Basic for Applications 编辑器。

2. 单击插入> 模块 以添加模块，然后将以下代码粘贴到该模块窗口中。

VBA 代码：对不带删除线的单元格求和

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. 保存并关闭 VBA 编辑器。在目标工作表中，选择一个空白单元格，输入以下公式（例如针对 ）B2:B14）：=excstrike(B2:B14)，按 Enter 即可立即获得限定区域内未应用删除线格式的单元格总和，轻松排除过时值！

使用用户定义函数对非删除线单元格求和

注意：请将 B2:B14 调整为您的实际数据区域。此函数会忽略所有带删除线的单元格，无论其值为何。若结果异常，请确保所有单元格均为数值且格式正确。

实用提示：更改单元格的删除线状态后，如需刷新求和结果，请按 F9 重新计算工作表。

使用 Kutools for Excel 统计或求和带删除线的单元格

如果您只想统计或求和带删除线格式的单元格，Excel 本身没有内置方法——但 Kutools for Excel 的特殊筛选功能让操作变得轻松简单。

1. 选择列

单击包含带删除线格式的单元格所在的列。

2. 打开特殊筛选

转到 KUTOOLS PLUS 选项卡，然后单击特殊筛选 > 筛选删除线单元格。

3. 确认筛选

将弹出一个对话框，显示符合条件的单元格数量。单击 OK 即可继续。

kutools-filter-result

4. 查看结果

带删除线的单元格现已筛选并可见。选中筛选范围后，您将立即在 Excel 底部的状态栏中看到求和、平均值和计数。

kutools-count-sum

✨ 为什么选择 Kutools？

Kutools for Excel 提供 300 多项强大且易用的功能（如本例所示），助您节省时间、提升工作效率，无需编写复杂的公式或 VBA 代码。

无论您是按格式筛选、清理数据、合并工作表，还是批量编辑，Kutools 都能在几秒内轻松简化您的工作。

免费试用 Kutools for Excel 30 天，探索那些您错过的强大功能！

相关文章：

如何在 Excel 中对单元格区域内的加粗数字进行求和或计数？

如何在 Excel 中根据单元格的背景颜色进行计数和求和？

如何在 Excel 中根据字体颜色对单元格进行计数或求和？

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱