如何在Excel中计算/求和带删除线的单元格？
在Excel中，通常会对某些单元格应用删除线格式以标记数据为过时、无关或无效。这种视觉提示可以极大地改善数据管理，并帮助您在分析过程中专注于重要的信息。然而，在进行计算（例如计数或求和）时，您可能希望将带删除线的单元格结果与没有删除线的单元格分开。了解如何处理这些场景可以优化您的工作流程并带来更准确的见解。本文提供了几种实用方法，通过使用可自定义的VBA函数来计算或求和带或不带删除线格式的单元格，满足多样化的数据管理需求。
使用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键，Excel将仅对指定范围内不带删除线格式的单元格求和，即时提供排除过时值的总和。
注意：将B2:B14调整为实际的数据范围。此函数忽略带删除线的单元格，无论其值为何。如果遇到意外结果，请确保所有单元格都具有数值条目并且格式正确。
实用提示：如果在更改任何单元格的删除线状态后需要刷新求和，请按F9重新计算工作表。
使用Kutools for Excel计算或求和带删除线的单元格
如果您只想计算或求和带有删除线格式的单元格，Excel并未提供内置方法来实现这一点——但Kutools for Excel通过其特殊筛选功能使其变得简单。
1. 选择列
单击包含带删除线格式的单元格的列。
2. 打开特殊筛选
转到“Kutools Plus”选项卡，然后单击特殊筛选 > 筛选删除线。
3. 确认筛选
将出现一个对话框，显示有多少单元格符合该条件。单击“确定”继续。
4. 查看结果
现在，带删除线的单元格已被筛选并可见。选择筛选后的范围——您将立即在Excel底部的状态栏中看到总和、平均值和计数。
✨ 为什么使用Kutools？
Kutools for Excel提供了超过300个强大且易于使用的功能，就像这个一样——帮助您节省时间并提高生产力，而无需编写复杂的公式或VBA代码。
无论您是按格式筛选、清理数据、合并工作表还是批量编辑，Kutools都能在几秒钟内简化您的工作。
免费试用Kutools for Excel 30天，探索您错过的内容！
相关文章：
最佳Office办公效率工具
| 🤖 | Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数…… |
| 热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入…… | |
| 高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表…… | |
| 列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列…… | |
| 特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）…… | |
| 15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| …… |
通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……
Office Tab为Office带来多标签界面，让您的工作更加轻松
- 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
- 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
- 可提升50%的工作效率，每天为您减少数百次鼠标点击！
所有Kutools加载项，一键安装
Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。
- 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
- 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
- 协同更高效——提升Office应用间的整体工作效率
- 30天全功能试用——无需注册，无需信用卡
- 超高性价比——比单独购买更实惠