一度に1つの行ではなく複数の行を削除する方法

Question

このコードでは、行は1つずつ削除されていますが、同時に削除されることはありません。

すべての行について、もう一度ボタンを押す必要があります。

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

使用このコードは、任意のMSGなしで行を削除するには：このコードは、任意の行を削除されていない

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