So löschen Sie mehrere Zeilen statt einer Zeile gleichzeitig

Question

In diesem Code werden die Zeilen einzeln nacheinander gelöscht, nicht alle gleichzeitig.

Für jede Zeile muss ich den Knopf immer wieder drücken.

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

Verwenden Sie diesen Code löschen Zeilen ohne msg:

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