删除 Excel 中空白行的 6 种简单方法（逐步）

您所在的位置：网站首页 › 如何把excel表格空白行删掉 › 删除 Excel 中空白行的 6 种简单方法（逐步）

删除 Excel 中空白行的 6 种简单方法（逐步）

2024-06-18 15:45| 来源: 网络整理| 查看: 265

删除 Excel 中空白行的 6 种简单方法（逐步）作者：孙最后修改时间：2023-06-19

当您处理包含空白行的大型数据集时，它会使您的工作表变得混乱并阻碍数据分析。虽然您可以手动删除少量空白行，但在处理数百个空白行时会变得耗时且效率低下。在本教程中，我们介绍了六种不同的方法来高效地批量删除空白行。这些技术涵盖您在 Excel 中可能遇到的各种情况，使您能够处理更清晰、更结构化的数据。

删除空白行通过助手专栏在 3 秒内通过 Kutools 手动通过使用 VBA 删除包含空白单元格的行通过转到特殊功能在过滤器功能的关键列中视频：删除空白行

删除空白行

从数据集中删除空行时，一定要谨慎行事，因为一些通常建议的方法可能会意外删除包含数据的行。例如，在 Internet 上找到的两个流行技巧是（下面的本教程中也提供了这些技巧）：

使用 ”定位条件" 选择空白单元格，然后删除这些选定空白单元格的行。使用筛选器功能过滤关键列中的空白单元格，然后删除过滤范围内的空白行。

但是，这两种方法都有可能错误地删除包含重要数据的行，如下图所示。

为避免此类意外删除，建议使用以下四种方法之一精确删除空白行。

>> 通过辅助列删除空行第 1 步：添加辅助列并使用 COUNTA 函数

在数据集的最右边，添加“帮手" 列并在该列的第一个单元格中使用以下公式：

=COUNTA(A2:C2)

备注：在公式中，A2:C2 是要计算非空白单元格的区域。

然后向下拖动自动填充手柄填写公式以计算每行中非空白单元格的数量。 “0” 表示相关行完全空白。

第 2 步：通过帮助列过滤空白行

单击辅助列的任意单元格，选择时间 > 筛选器.

然后点击过滤箭头并且只检查 0 在展开的菜单中，然后单击 OK.

现在所有的空行都被过滤掉了。

第三步：删除空白行

选择空白行（点击行号并向下拖动选择所有空白行），然后右击选择删除行从上下文菜单（或者您可以使用快捷方式按Ctrl + -).

第四步：在Sort & Filter组中选择Filter清除应用的过滤器

结果：

备注：如果您不再需要帮助列，请在过滤后将其删除。 >> 在 3 秒内通过 Kutools 删除空白行

为了快速轻松地从您的选择中准确地消除空白行，最好的解决方案是利用删除空白行的特点 Kutools for Excel. 方法如下：

选择要从中删除空白行的范围。点击库工具 > 删除 > 删除空白行 > 在选定范围内. 根据需要选择所需的选项，然后单击 OK 在弹出的对话框中。

附加信息:

除了删除所选内容中的空白行之外，Kutools for Excel 还允许您方便地从活动工作表, 选定的工作表，甚至整个工作簿只需单击一下。

在使用删除空白行功能之前，请安装 Kutools for Excel。单击此处下载并免费试用 30 天.

>> 手动删除空白行

如果要删除的空白行很少，您也可以手动删除它们。

第 1 步：选择空白行

单击行号以选择单个空白行。如果有多个空行，按住按Ctrl 键并逐一单击行号以选择它们。

第 2 步：删除空行

选择空行后，右键单击并选择删除从上下文菜单（或者您可以使用快捷方式按Ctrl + -).

结果：

>> 使用 VBA 删除空行

如果您对 VBA 感兴趣，本教程提供了两个 VBA 代码供您删除所选内容和活动工作表中的空行。

步骤 1：将 VBA 复制到 Microsoft Visual Basic for Applications 窗口

激活要从中删除空白行的工作表，然后按其他 + F11 键。

在弹出窗口中，单击插页 > 模块.

然后将以下代码之一复制并粘贴到空白的新模块中。

代码 1：从活动工作表中删除空白行

Sub RemoveBlankRows() 'UpdatebyExtendoffice Dim wsheet As Worksheet Dim lastRow As Long Dim i As Long ' Set the worksheet variable to the active sheet Set wsheet = ActiveSheet ' Get the last row of data in the worksheet lastRow = wsheet.Cells(wsheet.Rows.Count, 1).End(xlUp).Row ' Loop through each row in reverse order For i = lastRow To 1 Step -1 ' Check if the entire row is blank If WorksheetFunction.CountA(wsheet.Rows(i)) = 0 Then ' If the row is blank, delete it wsheet.Rows(i).Delete End If Next i End Sub

代码 2：从选择中删除空白行

Sub RemoveBlankRowsInRange() 'UpdatebyExtendoffice Dim sRange As Range Dim row As Range ' Prompt the user to select a range On Error Resume Next Set sRange = Application.InputBox(prompt:="Select a range", Title:="Kutools for Excel", Type:=8) ' Check if a range is selected If Not sRange Is Nothing Then ' Loop through each row in reverse order For Each row In sRange.Rows ' Check if the entire row is blank If WorksheetFunction.CountA(row) = 0 Then ' If the row is blank, delete it row.Delete End If Next row Else MsgBox "No range selected. Please select a range and run the macro again.", vbExclamation End If End Sub

第 2 步：运行代码并删除空白行

点击运行按钮或按 F5 键来运行代码。

如果您使用代码 1 删除活动工作表中的空行，则运行代码后，将删除工作表中的所有空行。

如果使用代码2去除选择中的空行，运行代码后会弹出对话框，在对话框中选择要去除空行的范围，然后点击 OK.

结果：

代码 1：删除活动工作表中的空行

代码2：删除选择中的空行

删除包含空白单元格的行

本节分为两个部分：一个是使用 Go To Special 功能删除包含空白单元格的行，另一个是使用 Filter 功能删除特定键列中有空白的行。

>> 通过 Go To Special 删除包含空白单元格的行

广泛推荐使用 Go To Special 功能来删除空行。当您需要删除至少包含一个空白单元格的行时，它可能是一种有用的工具。

第 1 步：选择范围内的空白单元格

选择要从中删除空行的范围，选择主页 > 查找和选择 > 定位条件.

或者你可以直接按 F5 启用钥匙转到对话框，然后单击 Special 按钮切换到转到 Special 对话。

在定位条件对话框中，选择空白选项并单击 OK.

现在所选范围内的所有空单元格都已被选中。

第 2 步：删除包含空白单元格的行

右键单击任何选定的单元格，然后选择删除从上下文菜单（或者您可以使用快捷方式按Ctrl + -).

在删除对话框中，选择整行选项并单击 OK.

结果：

备注：正如您在上面看到的，只要该行包含至少一个空白单元格，它就会被删除。这可能会导致一些重要数据丢失。如果数据集很大，您可能需要花费大量时间来查找丢失和恢复。所以，在使用这种方式之前，我建议你先做好备份。 >> 通过筛选功能去除关键列中包含空白单元格的行

当您有一个大型数据集并希望根据关键列包含空白单元格的条件删除行时，Excel 的筛选器功能可能是一个强大的工具。

第一步：过滤关键列的空白单元格

选择数据集，单击时间标签，转到排序和过滤组，点击筛选器将过滤器应用于数据集。

点击过滤箭头在此示例中，您要删除行所基于的键列的 ID column 是关键列，只检查空白从展开的菜单。点击 OK.

现在键列中的所有空白单元格都已被过滤。

第 2 步：删除行

选择剩余的行（点击行号并向下拖动选择所有空白行），然后右击选择删除行在上下文菜单中（或者您可以使用快捷方式按Ctrl + -). 然后点击 OK 在弹出的对话框中。

Step3：在Sort & Filter组中选择Filter清除应用的过滤器

结果：

备注：如果要根据两个或多个关键列去除空白行，请重复步骤1，逐一过滤关键列中的空白，然后删除剩余的空白行。

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

阅读更多免费下载... Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。每天将您的工作效率提高50％，并减少数百次鼠标单击！ Excel 的屏幕截图（安装了 Office Tab）

阅读更多免费下载... Sort comments by Oldest First Newest First Comments (0) No ratings yet. Be the first to rate! There are no comments posted here yet Please leave your comments in English

Posting as Guest

【本文地址】

公司简介

联系我们