如何删除Excel中的隐藏行(3种方法)

  • Share This
Hugh West

有时在工作中 微软Excel。 我们可能要处理很多隐藏的行或列。 隐藏的数据可能是不可用的,也可能是不必要的。 在这篇文章中,我们将向你演示如何删除excel中的隐藏行。

下载实践工作手册

你可以从这里下载实践工作手册。

删除隐藏行.xlsx

删除Excel中隐藏行的3种方法

1. "检查文档 "选项可删除Excel中的隐藏行

' 检查文件 '选项是隐藏行的一个有效方法。 它从 整个工作簿 所以,如果我们想从一个工作表中删除行,这个方法就不适用。 我们必须使用 VBA 我们将在本文后半部分讨论这个问题。

下面的数据集由销售数据组成。 为了方便起见,在这个方法中,首先,我们将隐藏高亮的行。 之后,我们将删除高亮的行。 让我们先看看隐藏行的过程。

  • 在这里,要隐藏突出显示的行,请选择行。
  • 做一个 右键点击 上的单元格索引号。
  • 然后,点击选项 隐藏 .

  • 因此,我们可以看到高亮显示的行是不可见的。

现在我们将按照一些步骤来删除这些隐藏的行。

  • 首先,到了 文件 选项从功能区。

  • 第二,选择 信息 部分。 转到 '检查工作簿'。 从下拉菜单中选择 '检查文件'。 选择。

  • 会出现一个类似这样的盒子。 选择 在这种情况下。

  • 然后从 文件检查员 窗口中,点击选项 检查 .

  • 之后,在新窗口中向下滚动。 选择选项 移除所有 隐藏的行和列 节。

  • 最后,我们可以看到隐藏的行已经不存在了。 下面的图片显示了删除隐藏行后的不间断的行号序列。

请注意。

在这个过程中,我们不能撤销被删除的行。 因此,如果你不想永久地删除它们,你必须保留数据的备份。

阅读更多。 如何删除Excel中的特定行(8种快速方法)

2.添加临时列以删除隐藏行

另一种方法是通过添加一个临时列来删除隐藏的行。 我们将使用过滤来应用这种方法。 假设,在以下数据集中,我们只想保留地点的销售数据 纽约 波士顿 我们将删除其余的行。 只要按照简单的步骤来执行。

  • 在开始时,选择整个数据集 (B4:G14) .

  • 转到 排序 & 筛选 从下拉菜单中点击选项 过滤器 .

  • 结果是,我们将看到这样一个数据集,在列头有过滤选项。

  • 现在,进入标题的过滤下拉菜单 地点 .只需选择选项 纽约 波士顿 .
  • 然后,按 认可 .

  • 在这里,我们将只得到以下的销售数据 纽约 波士顿 .其他行现在被隐藏了。

  • 接下来,添加一个新列,命名为 暂时的 输入值 0 在细胞中 H5 .
  • 拖动 填充手柄 工具。

  • 我们得到的值是 0 为所有的行。

  • 选择整个数据集 (B4:B15) 再次。

  • 然后,去到 排序 & 筛选 下拉菜单,选择选项 过滤器 .

  • 在这里,所有隐藏的数据现在都是可见的。 我们可以看到 0 只有在我们想保留的行中。

  • 我们将选择整个数据集 (B4:G15) 再次。

  • 转到 排序 & 筛选 从下拉菜单中选择选项 过滤器 .

  • 我们可以在数据集的标题栏中看到过滤的下拉菜单。

  • 进入下拉选项,在 '暂时的 列。
  • 这里我们将取消选择选项 0 .
  • 点击 认可 .

  • 因此,我们得到了我们必须删除的行。

  • 选择所有的行。 做一个右键单击并点击选项 删除行 .

  • 所有没有数值的行 0 现在已被删除。

  • 现在去到下拉的 暂时的 列。 选择选项 0 .
  • 点击 认可 .

  • 最后,我们只有城市的数据集 纽约 波士顿 .

阅读更多。 删除行的Excel快捷键(附赠技巧)

类似的阅读。

  • 如何在Excel中一次删除多条行(5种方法)
  • 在Excel VBA中删除隐藏行(详细分析)
  • 如何在Excel中使用Macro If Cell Contains 0删除行(4种方法)
  • 用VBA删除Excel中未过滤的行(4种方法)
  • 如何用Excel VBA过滤数据和删除行(5个例子)

3.使用VBA删除Excel中的隐藏行

使用 VBA 是一种删除隐藏行的高级方法。 我们可以在两种特殊情况下这样做。 一种是在一个单一的 工作表 另一个是删除数据集中特定范围的行。

3.1 从整个工作表中删除隐藏的行

假设,我们有以下的销售数据集。 在我们的实验数据集中,高亮显示的行是隐藏的。 我们将使用以下方法删除这些行 VBA .

隐藏高亮显示的行后,数据库将看起来像下面的图片。 我们可以看到,行的索引号不是连续的。

应该注意的是,如果我们没有 开发商 在我们的Excel中的标签,我们必须激活 开发商 标签来创建 启用了宏 内容。

首先,我们将看到如何激活 开发商 只要按照下面的指示就可以了。

  • 转到 文件 在我们的Excel左上角的选项。

  • 接下来,选择 选项。

  • 然后,会出现一个新的窗口。 选择选项 自定义丝带 从可用的选项中选择。

  • 之后,选择 开发商 选项,并点击 认可 .

  • 最后,我们可以看到 开发商 在我们的Excel中的标签。

现在我们将使用 开发商 标签,以创建 启用了宏 内容。 让我们看看在以下步骤中如何做到这一点。

  • 转到 开发商 选择 视觉基础 选择。

  • 在这里,将打开一个新的窗口。 从窗口中选择 插入 从下拉菜单中,选择 模块 我们将得到一个新的模块,名为 模块-1 .

  • 选择选项 模块一。 将打开一个空白窗口,在空白窗口中插入以下代码。
 Sub DeleteHiddenRows() Dim sht As Worksheet Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row For i = LastRow To 1 Step -1 If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete Next End Sub 
  • 我们将点击 运行 我们可以在下图中看到的选项,我们可以按 F5 也是为了运行代码。

  • 结果,我们可以看到,我们已经删除了所有隐藏的行。

3.2 从特定范围删除隐藏行

在这个例子中,我们将使用 VBA 在这个例子中,我们也将继续使用我们先前的数据集,以删除特定范围内的隐藏行。

  • 假设,我们的范围是 (B4:G9) 所以,我们不会删除第10行之后的隐藏行。 这就是为什么我们要用两种颜色来突出隐藏行。

  • 现在从 开发者 "选项卡 转到代码窗口。
  • 在那里插入以下代码。
 Sub DeleteHiddenRows() Dim sht As Worksheet Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Range("B4:G9") RowCount = Rng.Rows.Count LastRow = Rng.Rows(Rng.Rows.Count).Row For i = LastRow To LastRow - RowCount Step -1 If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete Next End Sub 
  • 我们将 点击 关于 运行 我们可以在下图中看到的选项。 我们可以按 F5 也是为了运行代码。

  • 最后,我们可以看到,范围内的隐藏行 (B4:G9) 被删除,而行号之后的隐藏行 10 仍然存在。

阅读更多。 删掉一个范围内的行(3种简单的方法)

总结

最后,我们在本文中介绍了删除行的不同方法。 要想自己练习,请下载本文中添加的练习工作簿。 如果你觉得有什么困惑,请在下面的方框中留言。 我们会尽快回答。 请继续关注我们,了解更多有趣的微软Excel问题解决方案。

Hugh West is a highly experienced Excel trainer and analyst with over 10 years of experience in the industry. He holds a Bachelor's degree in Accounting and Finance and a Master's degree in Business Administration. Hugh has a passion for teaching and has developed a unique teaching approach that is easy to follow and understand. His expert knowledge of Excel has helped thousands of students and professionals worldwide improve their skills and excel in their careers. Through his blog, Hugh shares his knowledge with the world, offering free Excel tutorials and online training to help individuals and businesses reach their full potential.