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

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