EXCEL中，要批量取消已经插入的空行，怎么写公式

EXCEL批量删除空行的VBA怎么写~

方法是：选择包含需要删除的数据区域，比如A2：D10，然后按F5键，打开“定位”对话框，单击“定位条件”，打开“定位条件”对话框，选择“空值”，可以批量选择空行，然后单击右键，选择删除即可。

excel批量删除空行方法二：
我们可以在旁边的空白列输入1，然后下拉，作为辅助列。然后开启“筛选”，筛选“空白”，在筛选状态删除这些空白行，最后关闭筛选。
excel批量删除空行方法三：
如果工作表中有大量的空行，可以使用VBA代码实现。方法是：按ALT+F11，打开VBE编辑器，插入——模块，复制下面的代码，然后按F5键运行。
Sub 批量删除空行()
Dim LastRow As Long
Dim r As Long
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub

CTRL+H 查找内容 按下 ALT+小键盘上的1和0
替换为 （不填）
替换或全部替换

不能用自动筛选？那么用【定位】，点击【编辑】--【定位】--【定位条件】--【空值】 然后删除整行。
如果还嫌不够快，就用下面的宏程序吧：

Sub Del_EmpRows()
'删除工作表中的空白行
j = Range("A65536").End(xlup).Row
i = 1
For a = 1 To j
Rows(i).Select
If Application.CountA(Selection.Rows) = 0 Then
Selection.Rows.Delete
i = i - 1
End If
i = i + 1
Next a
End Sub

通过自动筛选，条件选择“空白”然后将删除，选整行，确定。

排序即可，条件多设几个，空行自动到最下面去了。

---

EXCEL中，要批量取消已经插入的空行，怎么写公式视频