Excel中经常需要使用到自动求和公式，自动求和具体该如何操作呢?接下来小编举例简单的例子告诉大家excel设置自动求和公式的方法。excel设置自动求和公式的方法设置自动求和公式步骤1：将鼠标放在要求和数据区域的紧挨着的下面一个单元格，如下图的D10单元格，然后点击【开始】-【自动求和】按钮就可以自动求D......
Excel 如何快速删除空白行
Excel函数
2021-11-17 14:06:05
Excel 中处理网络上或者第三方软件导出的数据时，经常遇到 Excel 文档行和行出现多余空白行的情况，这些多余的空白行会影响数据的直观且占用和浪费空间。怎么简单方便的删除这些空白行呢？肯定不能一行一行的删除，那样费时又费力，好，今天我么就给大家提供两种简变的方法(源数据如图)：
一、利用 Excel快速定位功能
1、选中需要删除空行的区域，点击 开始 标签 --> 编辑 组 --> 查找和选择 菜单 --> 定位条件... 菜单项 调出 定位条件 对话框，选择 空白 选项
2、右键单击任意一个定位中的整行都是空白的单元格，在弹出菜单中选择 删除 按钮
3、在弹出的删除对话框中选择 整行 选项，然后点击 确定 按钮即可
二、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
标签： excel删除空白行
相关文章