Alt+F11 召唤神龙!
复制下面的代码后执行即可~
Sub pp() Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub
原文标题:用VBA删除EXCEL空白行|落絮飞雁的个人网站
授权协议:创作共用 署名-非商业性使用 2.5 中国大陆
除注明外,本站文章均为原创;转载时请保留上述链接。
Alt+F11 召唤神龙!
复制下面的代码后执行即可~
Sub pp() Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub