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

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

视频：删除空白行

删除空白行

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

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

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

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

>> 通过辅助列删除空行

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

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

   =COUNTA(A2:C2)

   

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



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

   

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

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

   

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

   

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

   

第三步：删除空白行

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

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

结果：

>> 在 3 秒内通过 Kutools 删除空白行

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

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()
   '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 步：选择范围内的空白单元格

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

   

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

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

   

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

   

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

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

   

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

   

结果：

>> 通过筛选功能去除关键列中包含空白单元格的行

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

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

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

   

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

   

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

   

第 2 步：删除行

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

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

结果：