6 种在 Excel 中删除空白行的简单方法（分步详解）

处理包含大量空白行的数据集时，这些空白行不仅让工作表显得杂乱，还会干扰数据分析。虽然少量空白行可以手动删除，但面对成百上千的空白行时，这种方法既耗时又低效。本教程为您介绍六种高效批量删除空白行的方法，全面覆盖 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：在“排序和筛选”组中单击“筛选”以清除已应用的筛选器

结果：