4种快速删除Excel中多个空白行的简便方法

在进行数据分析、报告或展示之前，清理Excel中的多个空白行是至关重要的。空白行会破坏数据完整性，使计算复杂化，并掩盖洞察力。本指南介绍了四种简单直接的方法，帮助您高效地消除这些空白区域，确保您的数据保持连续且易于管理。

• 使用“定位条件”命令删除空白行（4个步骤）
• 使用Kutools轻松删除区域/工作表/工作簿中的空白行（1个步骤）
• 使用VBA代码删除空白行（4个步骤）
• 使用辅助列和筛选功能删除空白行（7个步骤）
• 下载示例文件

请按照以下步骤操作，通过“定位条件”功能删除空白行：

1. 选择要删除空白行的区域，点击“开始”选项卡，在“编辑”组中，点击“查找与选择” > “定位条件”。

2. 在弹出的 “定位条件”对话框中，勾选“空值”选项。

3. 点击“确定”，此时所有选定区域中的空白单元格已被选中。

4. 点击“开始”选项卡，在“单元格”组中，点击“删除” > “删除工作表行”。

现在包含空白单元格的行已被删除。

如果您需要一种快速且无错误的方法来从选定区域、当前工作表、选中的工作表或整个工作簿中删除所有空白行，可以考虑使用“Kutools for Excel”中的“删除空白行”工具。此工具简化了任务，只需单击一下即可删除空白行，从而避免使用更复杂的方法。

点击“Kutools” > “删除” > “删除空白行”，然后在子下拉列表中选择所需的操作。

1. 按“Alt” + “F11”键打开“Microsoft Visual Basic for Applications”窗口。

2. 点击“插入” > “模块”以创建一个新的“模块”脚本，复制并将以下代码粘贴到脚本中。

VBA：删除空白行

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 按“F5”键运行代码，然后在弹出的“KutoolsforExcel”对话框中选择要删除空白行的范围。

4. 点击“确定”。现在选定区域中的空白行已被删除。

1. 在数据范围前插入一列，例如插入A列，然后在A3单元格中输入以下公式以合并第3行的数据，见截图：

=B3&C3&D3

提示：如果您的数据跨越B3到N列，请将公式调整为=B3&C3&D3&E3&…&N3。

2. 然后通过拖动自动填充手柄向下填充公式到其他单元格。

3. 接着点击“数据” > “筛选”。

4. 然后点击辅助列上的“筛选图标”，在下拉列表中仅勾选“空白”选项。见截图：

5. 点击“确定”，所有空白行已被筛选出来。

6. 选择筛选出的行，点击“开始” > “删除” > “删除工作表行”以删除空白行。

7. 再次点击“数据” > “筛选”以关闭“筛选”功能。

点击下载示例文件