张文保的博客
保哥笔记

技术性SEO实战经验分享博客

张文保微信

Excel批量删除空行和空列

删除空余行宏代码:

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

删除空余列宏代码:

Dim LastColumn As Long, c As Long
LastColumn = ActiveSheet.UsedRange.Columns.Count
LastColumn = LastColumn + ActiveSheet.UsedRange.Column
For c = LastColumn To 1 Step -1
If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete
Next c

 

TAG标签
EXCEL

相关文章
本文标题:《Excel批量删除空行和空列》
本文链接:https://zhangwenbao.com/excel-batch-deleting-empty-and-empty-columns.html
版权声明:本文原创,转载请注明出处和链接。许可协议:CC BY-NC-SA 4.0
发表新评论