中处理网络上或者第三方软件导出的数据时,经常遇到 Excel 文档行和行出现多余空白行的情况,这些多余的空白行会影响数据的直观且占用和浪费空间。怎么简单方便的删除这些空白行呢?肯定不能一行一行的删除,那样费时又费力,好,今天我么就给大家提供两种简变的方法(源数据如图):

  Office Excel 如何快速删除空白行

一、利用 Excel快速定位功能

1、选中需要删除空行的区域,点击 开始 标签 –> 编辑 组 –> 查找和选择 菜单 –> 定位条件… 菜单项 调出 定位条件 对话框,选择 空白

Office Excel 如何快速删除空白行

2、右键单击任意一个定位中的整行都是空白的单元格,在弹出菜单中选择 删除 按钮

Office Excel 如何快速删除空白行

3、在弹出的删除对话框中选择 整行 ,然后点击 确定 按钮即可

Office Excel 如何快速删除空白行

Office Excel 如何快速删除空白行

二、VBA 代码

打开 VBE 编辑器,新建一个标注模块,在模块中添加后面所列的代码,然后将光标定位到代码中,按 F5 键运行代码即可,代码如下:

Sub DeleteBlankRows()

Dim I As Long
Dim Rg As Range
Dim xCalculation As XlCalculation
Dim xScreenUpdating As Boolean

xCalculation = Application.Calculation
xScreenUpdating = Application.ScreenUpdating

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Set Rg = ThisWorkbook.ActiveSheet.UsedRange
For I = Rg.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Rg.Rows(I)) = 0 Then
Rg.Rows(I).EntireRow.Delete
End If
Next I

Application.Calculation = xCalculation
Application.ScreenUpdating = xScreenUpdating

End Sub

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注