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

在这段代码中，一行一行地删除，而不是同时删除所有行

对于每一行，我都需要一次又一次地按下按钮

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

---

使用此代码删除不包含任何消息的行：

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

---

该代码没有删除任何行。它所做的只是清除一些细胞的内容物。