Frage : Reihen und Inhalt entfernen

Ich benötige Expertenhilfe, einen Index zu schreiben, der ist, Reihe zwischen Linie 12 zu löschen, „auf Stunden sich zu belaufen“ rudern und löschen allen Inhalt zwischen Linie 7 „zu den Gesamtstunden“ rudern. Hoffnung-Experten helfen mir, diesen Index zu schreiben. Gebracht das Arbeitsbuch für Expertendurchsicht an.

Attachments:

RemoveData.xls (93 KBS)  (Akten-Art Details)  

xls

Antwort : Reihen und Inhalt entfernen

Trauriges Oops, anstelle vom freien Raum, sollten Sie ClearContents setzen, konnten es von Ihrer Frage gesehen haben.

VorDeleteRows ()
Schwaches LR, i als lang
Schwaches WS als Arbeitsblatt
Einstellen WS = ThisWorkbook.Worksheets („TaskTracker“)
LR = WS. Strecke („A65536“). Ende (xlUp). Reihe
Für i = LR - 1 bis 12 Schritt -1
    WS. Zellen (i, 1).EntireRow.Delete
Zunächst I
Für i = 11 bis 7 Schritt -1
    WS. Zellen (i, 1).EntireRow.ClearContents
Zunächst I
Enden-Unterseeboot