如何一次删除多行而不是一行

Question

在此代码中，行被逐个删除，而不是全部同时删除。

对于每一行我都需要再次按下按钮。

Sub Clean() 
    disprow = 7 
    Range("a" & disprow).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.ClearContents 
    Range("a" & disprow).Select 
End Sub 

Answer 1

使用此代码没有任何味精删除行：

Function jkjDeleteRowsWithoutMsg() 
    Application.DisplayAlerts = False 
    Rows("4:8").Delete 'you may change row index 
    End Function