用VBA代码删除空行

用 VBA 代码删除空行 Sub deleteemptyrows()'删除所有空行 Dim lastrow As LongDim r As LongDim counter As L

用VBA 代码删除空行 Sub deleteemptyrows() '删除所有空行 Dim lastrow As Long Dim rAs Long Dim counter As Long Application.ScreenUpdating =False '关闭屏幕更新，以提高宏的运行效率 lastrow =ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row -1 '例如，从第 2行开始有数据，到第 6行结束，中间有空白行。 'UsedRange.Rows.Count计算已经使用的单元格区域的行数， 返 回5；ActiveSheet.UsedRange.Rows(1).Row 返回已经使用的区域 第一行的行值，返回 2； lastrow 即最后一个非空行应该是 6=5+2-1 不能用 lastrow =Cells(Rows.Count, 1).End(xlUp).Row，此 种只能返回第一列最后一个非空行。即如果 A6 是空，但 B6 有值，返 回的结果是 5 For r= lastrow To 1Step -1 '从最后一行往上循环 If Application.WorksheetFunction.CountA(Rows(r)) =0 Then '计算 R行的非空单元格个数，如果结果为 0，则进行下一步 Rows(r).Delete 操作 '删除该行 counter =counter +1 '删除一行计一次数 End If Next r Application.ScreenUpdating =True