VBA实例：删除空白行
来源：华佗健康网
VBA实例：删除空⽩⾏
如图，A列中有许多空⽩⾏，需要把它们删除
⽅法1：
Sub 删除1()Dim tt = TimerDim i As Long
For i = 1000 To 1 Step -1If Cells(i, 1) = '' ThenCells(i, 1).EntireRow.DeleteEnd IfNext
MsgBox Format(Timer - t, '程序执⾏时间为：0.00秒'), 64, '时间统计'End Sub
⽅法1程序运⾏时间：
⽅法2：
Sub 删除2()Dim tt = Timer
Sheet3.Columns('a').SpecialCells(xlCellTypeBlanks).EntireRow.DeleteMsgBox Format(Timer - t, '程序执⾏时间为：0.00秒'), 64, '时间统计'End Sub
⽅法2程序运⾏时间：
程序运⾏结果：
因篇幅问题不能全部显示，请点此查看更多更全内容