跳至主要内容

如何在 Excel 中统计/求和带删除线的单元格?

Author: Xiaoyang Last Modified: 2025-07-21

在 Excel 中,通常会对某些单元格应用删除线格式,以将数据标记为过时、无关或无效。这种视觉提示可以极大地改善数据管理,并帮助您在分析过程中专注于重要的信息。然而,在进行计算(例如统计或求和)时,您可能希望将带删除线单元格的结果与没有删除线的单元格区分开来。了解如何处理这些场景可以帮助优化工作流程并获得更准确的洞察。本文提供了几种实用的方法,通过使用可定制的 VBA 函数,在 Excel 中统计和求和带或不带删除线格式的单元格,满足多样化的数据管理需求。

使用 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 更改为要检查的其他范围。

count strikethrough cells with user defined function

4. 按下 Enter 键执行公式,Excel 将立即显示指定范围内所有带删除线单元格的数量。这允许您高效地跟踪进度或根据需要移除已废弃的条目。请参见截图:

count strikethrough cells result

注意:为确保此 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 将仅统计选定范围内未带删除线格式的单元格。

count non strikethrough cells with user defined function

注意:在上述示例中,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 将仅对指定范围内 带删除线格式的单元格进行求和,立即将排除过时值的总和提供给您。

sum non strikethrough cells with user defined function

注意:将 B2:B14 调整为您的实际数据范围。此函数忽略所有带有删除线的单元格,无论其值为何。如果遇到意外结果,请确保所有单元格都包含数值并且具有正确的格式。

实用提示:如果您在更改任何单元格的删除线状态后需要刷新求和结果,请按 F9 重新计算工作表。


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

如果您只想统计或求和带有删除线格式的单元格,Excel 并未提供内置方法实现这一点——但 Kutools for Excel特殊筛选 功能使其变得轻而易举。

1. 选择列

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

2. 打开特殊筛选

转到 Kutools Plus 选项卡,然后点击 特殊筛选 > 筛选删除线

3. 确认筛选

将出现一个对话框,显示匹配条件的单元格数量。点击 确定 继续。

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 函数等功能,彻底改变数据分析方式…
热门功能查找、高亮或标记重复项 | 删除空行 | 合并不丢失数据的列或单元格 | 四舍五入 ...
高级 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%,每天为您减少数百次鼠标点击!