在 Excel 中删除空行的 6 种简单方法（一步步指导）

当您处理包含空行的大型数据集时，这些空行可能会使您的工作表变得杂乱，并阻碍数据分析。虽然您可以手动删除少量的空行，但在处理数百个空行时，这种方法会变得耗时且效率低下。在本教程中，我们将介绍六种不同的方法，帮助您批量高效地删除空行。这些技术涵盖了您在 Excel 中可能遇到的各种场景，让您可以使用更整洁、更有条理的数据进行工作。

• 删除空行
• 通过使用辅助列
• 通过使用 Kutools 在 3 秒内完成
• 手动操作
• 通过使用 VBA
• 删除包含空白单元格的行
• 通过“定位条件”功能
• 通过筛选功能在关键列中删除

视频：删除空行

删除空行

在从数据集中删除空行时，务必小心谨慎，因为一些常见的方法可能会意外删除包含数据的行。例如，互联网上流行的两个技巧（本教程后面也会提到）是：

• 使用“定位条件”选择空白单元格，然后删除这些选中空白单元格所在的行。
• 使用筛选功能在关键列中筛选出空白单元格，然后删除筛选范围中的空行。

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

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

>> 通过辅助列删除空行

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

1. 在数据集的最右侧，添加“辅助”列，并在该列的第一个单元格中输入以下公式：

   =COUNTA(A2:C2)

   

   注意：在公式中，A2:C2 是您要统计非空单元格的区域。
2. 然后向下拖动自动填充柄以填充公式，统计每一行中非空单元格的数量。“0”表示相对应的行完全为空。

   

步骤 2：通过辅助列筛选空行

1. 点击辅助列中的任意单元格，选择“数据”>“筛选”。

   

2. 然后点击“筛选箭头”，在展开的菜单中仅勾选“0”，然后点击“确定”。

   

现在所有空行都已被筛选出来。

步骤 3：删除空行

选择空行（点击行号并向下拖动以选择所有空行），然后右键单击，在上下文菜单中选择“删除行”（或者可以使用快捷键“Ctrl” + “-”）。

步骤 4：在排序和筛选组中选择筛选以清除已应用的筛选

结果：

>> 使用 Kutools 在 3 秒内删除空行

为了快速且毫不费力地准确消除所选内容中的空行，最佳解决方案是利用“Kutools for Excel”的“删除空行”功能。以下是具体操作方法：

1. 选择要删除空行的区域。
2. 点击“Kutools”>“删除”>“删除空行”>“选择区域”。
3. 根据需要选择所需的选项，并在弹出的对话框中点击“确定”。

   

>> 手动删除空行

如果只有少量的空行需要删除，也可以手动删除它们。

步骤 1：选择空行

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

步骤 2：删除空行

选择空行后，右键单击并在上下文菜单中选择“删除”（或者可以使用快捷键“Ctrl” + “-”）。

结果：

>> 使用 VBA 删除空行

如果您对 VBA 感兴趣，本教程提供了两种 VBA 代码供您从选定区域和活动工作表中删除空行。

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

1. 激活要删除空行的工作表，然后按下“Alt” + “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 从选定区域中删除空行，运行代码后会弹出一个对话框，在对话框中选择要删除空行的区域，然后点击“确定”。

  

结果：

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

代码 2：删除选定区域中的空行

删除包含空白单元格的行

本节分为两部分：一部分是使用“定位条件”功能删除包含空白单元格的行，另一部分是使用筛选功能删除在特定关键列中有空白的行。

>> 使用“定位条件”删除包含空白单元格的行

“定位条件”功能广泛推荐用于删除空行。当您需要删除至少包含一个空白单元格的行时，它是一个非常有用的工具。

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

1. 选择要删除空行的范围，选择“开始”>“查找与选择”>“定位条件”。

   

   或者，您可以直接按“F5”键启用“定位”对话框，然后点击“特殊”按钮切换到“定位条件”对话框。
2. 在“定位条件”对话框中，选择“空白”选项并点击“确定”。

   

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

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

1. 右键单击任何选中的单元格，并从上下文菜单中选择“删除”（或者可以使用快捷键“Ctrl” + “-”）。

   

2. 在“删除”对话框中，选择“整行”选项并点击“确定”。

   

结果：

>> 使用筛选功能删除关键列中包含空白单元格的行

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

步骤 1：筛选关键列中的空白单元格

1. 选择数据集，点击“数据”选项卡，进入“排序和筛选”组，点击“筛选”以对数据集应用筛选。

   

2. 点击您希望用来删除行的关键列的“筛选箭头”。在此示例中，“ID”列是关键列，只勾选扩展菜单中的“空白”。点击“确定”。

   

现在，关键列中的所有空白单元格都已被筛选出来。

步骤 2：删除行

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

步骤 3：在排序和筛选组中选择筛选以清除已应用的筛选

结果：