展开全部
按CTRL+END,能到最后的单元格,这个单元格与有效的数据之间的行和列,分别删除一次,再保存
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Sub 删除空行()
Application.ScreenUpdating = False
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
For r = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |