excel批量删除空行的vba怎么写

方法是：选择包含需要删除的数据区域，比如A2：D10，然后按F5键，打开“定位”对话框，单击“定位条件”，打开“定位条件”对话框，选择“空值”，可以批量选择空行，然后单击右键，选择删除即可。excel批量删除空行方法二：我们可以在旁边的空白列输入1，然后下拉，作为辅助列。然后开启“筛选”，筛选“空白”，在筛选状态删除这些空白行，最后关闭筛选。excel批量删除空行方法三：如果工作表中有大量的空行，可以使用VBA代码实现。方法是：按ALT+F11，打开VBE编辑器，插入——模块，复制下面的代码，然后按F5键运行。

Sub 批量删除空行()Dim LastRow As LongDim r As LongLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.CountApplication.ScreenUpdating = FalseFor r = LastRow To 1 Step -1If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).DeleteNext rApplication.ScreenUpdating = TrueEnd Sub