VBA 一键删除数据表中的空行（2018

在处理Excel数据时有时候难免会遇到数据中有一些空行需要删除，当非连续的空行较多时，一行一行选中再删除的方法显然不可以取。下面介绍如何通过几行VBA代码一键实现删除。

动态效果图

代码：

Sub deleblankrow()

Dim Frow, Erow, j As Integer

Frow = ActiveSheet.UsedRange.Row '获取第一个非空行的行号

Erow = Frow ActiveSheet.UsedRange.Rows.Count - 1 '获取最后一个非空行的行号

For j = Erow To 1 Step -1 '从数据最后一行依次向上查找，找到一个空行删除一行

If Application.WorksheetFunction.CountA(Rows(j)) = 0 Then

Rows(j).Delete

End If

Next j

End Sub

拓展：

如何删除数据中的空列？

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。