删除 Excel 中空白行的 6 种简单方法（逐渐）-英雄云拓展知识分享

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

• 删除空白行
• 经过助手专栏
• 透过 tools 在 3 秒内完成
• 手动
• 经过使用 VBA
• 删除包括空白单元格的行
• 经过转到特殊功能
• 在过滤器功能的关键列中

视频：删除空白行

删除空白行

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

• 使用 ”去特别" 选择空白单元格，然后删除这些选定空白单元格的行。
• 使用 挑选 功能过滤关键列中的空白单元格，然后删除过滤范围内的空白行。

但是，这两类方法都有可能毛病地删除包括重要数据的行，以下图所示。

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

>> 经过辅助列删除空行

第 1 步：添加辅助列并使用 COUNTA 函数

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

   =COUNTA(A2:C2)

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



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

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

1. 单击辅助列的任意单元格，选择 数据 > 挑选.

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

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

第3步：删除空白行

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

第4步：在Sort & Filter组当选择Filter清除利用的过滤器

结果：

>> 透过 tools 在 3 秒内删除空白行

为了快捷轻鬆地从您的选择中準确地消除空白行，最好的解决方案是利用 删除空白行 的特点 Excel的tools。 具体方法以下：

1. 选择要从中删除空白行的范围。

2. 点击 库工具 > 删除 > 删除空白行 > 在选定范围内.

3. 针对需要选择所需的选项，然后单击 OK 在弹出的对话框中。

>> 手动删除空白行

如果要删除的空白行少量，您也能够手动删除它们。

第 1 步：选择空白行

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

第 2 步：删除空行

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

结果：

>> 使用 VBA 删除空行

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

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

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

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

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

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

   Sub RemoveBlankRows()
   'Updateby
   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 ⑴
   ' 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()
   'Updateby
   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:="tools 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 步：选择范围内的空白单元格

1. 选择要从中删除空行的范围，选择 首页 > 查找和选择 > 去特别.

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

2. 在 去特别 对话框中，选择 空白 选项并单击 OK.

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

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

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

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

结果：

>> 经过挑选功能去除关键列中包括空白单元格的行

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

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

1. 选择数据集，单击 数据 标签，转到 排序和过滤 组，单击 挑选 将过滤器利用于数据集。

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

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

第 2 步：删除行

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

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

结果：