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

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