INDEX
如何在 Excel 中删除空白行并向上移动数据方法 1: 使用筛选器功能删除空白行方法 2: 使用“定位条件”功能删除空白行方法 3: 使用 VBA 宏批量删除空白行 (推荐)示例结果总结
スポンサーリンク
如何在 Excel 中删除空白行并向上移动数据
当 Excel 数据中存在空白行时，可能会影响汇总和分析的效率。在这种情况下，通过删除空白行并向上移动数据，可以更方便地整理数据。本文将介绍几种有效删除空白行的方法。
方法 1: 使用筛选器功能删除空白行
利用筛选器功能，可以轻松删除空白行并向上移动数据。
步骤
选择包含空白行的数据范围（例如：A2:A20）。
点击“数据”选项卡，启用“筛选器”功能。
在筛选器下拉菜单中选择“空白单元格”，仅显示空白行。
选择所有空白行，右键单击并选择“删除”。
关闭筛选器，确认数据已向上移动。
方法 2: 使用“定位条件”功能删除空白行
通过“定位条件”（跳转功能），可以快速选择空白单元格，并删除其所在的行。
步骤
选择数据范围（例如：A2:A20）。
点击“开始”选项卡，选择“查找和选择”→“定位条件”，打开“定位条件”对话框。
选择“空值”选项，点击“确定”。这样，选定范围内的所有空白单元格将被选中。
保持空白单元格选中状态，右键单击选择“删除”，然后选择“整行”以删除空白行。
方法 3: 使用 VBA 宏批量删除空白行 (推荐)
当空白行较多时，使用 VBA 宏可以更高效地删除空白行。
VBA 宏代码步骤
点击“开发工具”选项卡，打开“Visual Basic”编辑器。
选择“插入”→“模块”，然后输入以下代码。
VBA 代码:
Sub DeleteEmptyRows()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
End Sub
VBA 代码说明
LastRow: 获取包含数据的最后一行。
For i = LastRow To 1 Step -1: 从下往上逐行检查。
CountA(Rows(i)) = 0: 判断行内单元格是否全为空。如果为空，则删除该行。
示例
以下表格包含 A 列中的空白行。通过删除空白行，数据被向上移动。
A
B
1
数据1
值1
2
3
数据2
值2
4
5
数据3
值3
结果
空白行被删除，数据向上移动并紧密排列。
总结
在 Excel 中删除空白行并向上移动数据的方法包括使用筛选器功能、定位条件功能和 VBA 宏。根据数据量和操作需求选择最适合的方法。