用VBA删除EXCEL空白行

Alt+F11 召唤神龙!

复制下面的代码后执行即可~

Sub pp()
    Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注