如何在 Excel 中筛选列表，并删除其余隐藏行或可见行？
在 Excel 中处理大型数据集时，通常会通过筛选列表来仅显示分析或报告所需的数据。然而，筛选之后，您可能还希望删除不再需要的行——无论是删除所有被筛选隐藏的行，还是删除当前可见的行，从而只保留真正需要的信息。合理管理筛选后的数据，不仅能简化工作表、减少杂乱，还能确保仅保留相关且有用的内容。本文将为您介绍几种在 Excel 中高效、可靠地删除筛选列表中隐藏行或可见行的方法，助您根据实际需求精准清理数据。
使用 VBA 代码删除活动工作表中的隐藏行
通过选择所有可见单元格删除筛选列表中的可见行
使用 Kutools for Excel 轻松删除筛选列表中的隐藏行或可见行
使用 VBA 代码删除活动工作表中的隐藏行
在 Excel 中筛选数据时，不符合条件的行会被隐藏，但仍保留在工作表中。有时您可能希望一步快速删除所有这些隐藏行，而非逐一手动删除——后者在处理大型数据集时既耗时又容易出错。借助一个简单的 VBA 宏，即可高效地一次性删除活动工作表中的所有隐藏行，无论这些行是通过筛选还是手动隐藏的。当您只想保留当前可见（已筛选）的数据并彻底移除其余部分时，此方法尤为实用。
操作步骤如下：
1. 请先确保包含筛选列表的工作表处于活动状态（即已被选中）。
2. 同时按下 Alt+F11，即可打开 Microsoft Visual Basic for Applications（VBA）编辑器窗口。
3. 在 VBA 编辑器中，点击顶部菜单中的插入，然后选择模块。将以下 VBA 代码复制并粘贴到模块窗口中：
VBA 代码：删除隐藏行
Sub RemoveHiddenRows()
Dim xRow As Range
Dim xRg As Range
Dim xRows As Range
On Error Resume Next
Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRows Is Nothing Then Exit Sub
For Each xRow In xRows.Columns(1).Cells
If xRow.EntireRow.Hidden Then
If xRg Is Nothing Then
Set xRg = xRow
Else
Set xRg = Union(xRg, xRow)
End If
End If
Next
If Not xRg Is Nothing Then
MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
xRg.EntireRow.Delete
Else
MsgBox "No hidden rows found", , "Kutools for Excel"
End If
End Sub4. 要运行代码，请按 F5 键，或点击工具栏中的“运行”按钮。如果当前工作表包含隐藏行，系统将弹出对话框，提示已删除的隐藏行数量。单击 OK 即可完成删除。如下图所示：
如果活动工作表中没有隐藏行，将显示相应提示信息：
注意事项与提示：
- 此宏将删除所有隐藏行，无论它们是通过筛选还是手动隐藏的。
- 运行宏前，请务必确认已选中正确的工作表。VBA 代码执行后无法撤销操作——建议您先备份文件。
- 如果您的公式引用了位于将被删除行之后的行，请注意：删除该行可能会影响后续的计算与引用。
借助 KUTOOLS AI 解锁 Excel 的神奇功能
- 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
- 自定义公式：生成量身定制的公式，助您优化工作流程！
- VBA 编码：轻松编写并运行 VBA 代码。
- 公式解析：轻松掌握复杂公式，一目了然！
- 文本翻译：轻松打破电子表格中的语言障碍！
使用“选择所有可见单元格”功能删除筛选列表中的可见行
在某些场景下，您可能希望在应用筛选后仅删除可见行——例如保留被筛选隐藏的条目，以便后续处理或审查。Excel 的内置功能可高效删除筛选列表中的所有可见行，同时完整保留隐藏行不受影响。当您需要清除已处理或选定数据的内容，同时保留隐藏内容（如已完成的任务或已审核的记录）时，这一方法尤为实用。
操作步骤如下：
1. 请选择筛选列表的整个区域，包括可见行与隐藏行。
2. 按 F5（或 Ctrl+G）打开定位对话框，点击左下角的特殊按钮即可打开“定位条件”选项。如下图所示：
3. 在定位条件对话框中，选择仅可见单元格，然后单击 OK，即可高亮显示所选区域中的可见行（即未被筛选或以其他方式隐藏的行）。
4. 选中可见行后，在高亮区域任意位置右键单击，从上下文菜单中选择删除行。
这将立即删除所有可见行，而隐藏行在当前筛选条件下保持不变，是快速将工作表精简为仅保留先前隐藏行的便捷方法。
重要提醒：
- 开始时务必格外小心地选择区域——确保涵盖所有目标行，包括当前隐藏的行。
- 保存并关闭文件后，“删除行”操作将无法撤销。在进行此类不可逆更改前，请务必先备份文件。
- 此方法适合偶尔从筛选数据集中删除可见行，但若涉及多个区域或需频繁操作，则可能耗时较长。
使用 Kutools for Excel 轻松删除筛选列表中的隐藏行或可见行
尽管上述手动和 VBA 方法较为常用，但在频繁处理复杂或大型工作表时，往往不够灵活或便捷。为更高效地满足此类需求，Kutools for Excel 中的删除隐藏行/列工具提供了一种用户友好的解决方案，可快速删除选定区域、当前工作表甚至所有工作表中的隐藏行或可见行。该方法不仅节省时间，还能有效降低因手动操作引发错误的风险，特别适合需要频繁清理和处理大型数据集的用户。
以下是使用 Kutools for Excel 执行此任务的方法：
1. 请选择您要删除隐藏行或可见行的筛选范围。
2. 转到 Excel 窗口顶部的 Kutools 选项卡，点击删除 > 删除隐藏行/列，如下图所示：
3. 在弹出的删除隐藏行/列对话框中设置选项：
– 在查找范围下拉菜单中，保持选择区域（或根据任务需要选择其他选项）
– 在删除类型部分，勾选行
– 在详细类型部分，根据需要选择可见行或隐藏行
– 单击 OK 确认并执行
4. 执行后，确认框将准确显示已删除的行数。单击 OK 即可完成操作。
使用说明与提示：
- Kutools 可轻松选择区域，或一键应用于整个工作表，大幅提升批量处理效率。
- 此方法可有效减少因手动选择而产生的错误，尤其适用于大型工作表。
- 如果您需要处理大量列表或定期清理数据，此解决方案尤为便捷。
- 单击“确定”前，请务必确认所选区域及操作选项。
如果您想免费试用（30 天）此工具，请点击此处下载，然后按照上述步骤操作即可。
使用 Kutools for Excel 删除筛选列表中的隐藏行或可见行
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 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 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱