In diesem Artikel erstellen wir ein Makro, um Daten früherer Daten zu löschen. Dieses Makro überprüft die Daten, speichert die heutigen Daten und löscht alle Daten aus früheren Daten.

Die Rohdaten in diesem Beispiel bestehen aus Datum, Agentennamen und Verkäufen des einzelnen Agenten an diesem bestimmten Datum.

ArrowRawData

Um das Makro auszuführen, klicken Sie auf die Schaltfläche im Hauptblatt, oder Sie können es sogar ausführen, indem Sie die Tastenkombinationen Alt + F8 drücken.

Das Makro löscht alle Datensätze mit früheren Daten. Da wir dieses Makro am 14. Dezember 2016 ausführen, werden in der Ausgabe nur Datensätze für dieses Datum angezeigt.

ArrowAfterRunningMacro

[_GoBack] # Erklärung der Logik In diesem Beispiel haben wir das Makro „RemovePreviousData“ erstellt. Dieses Makro verwendet die umgekehrte FOR-Schleife, dh die Schleife läuft in die entgegengesetzte Richtung. Die Schleife beginnt in der letzten Reihe und bewegt sich in Richtung der obersten Reihe.

Der Grund für die Verwendung der umgekehrten Schleife ist, dass, wenn wir eine normale FOR-Schleife verwendet hätten, die in den Daten vorhandenen Datensätze nach jeder Zeilenlöschung nach oben verschoben worden wären, was zu einer Änderung der Position bei jeder Zeilenlöschung geführt hätte. Um dem entgegenzuwirken, haben wir eine Rückwärtsschleife verwendet.

Wir haben die Step-Anweisung zusammen mit der FOR-Schleife zum Schleifen in umgekehrter Richtung verwendet. Die FOR-Schleife beginnt in der letzten Zeile und führt in Richtung der 11. Zeile.

Bitte folgen Sie unten für den Code

Option Explicit

Sub RemovePreviousData()

Dim Counter, LastRow As Integer

'Finding the row number of last row

LastRow = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row

'Looping from last row to 11th row

For Counter = LastRow To 11 Step -1

If Cells(Counter, 1).Value < Date Then

'Deleting the row

Rows(Counter).Delete

End If

Next Counter

End Sub

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]