In diesem Artikel erfahren Sie, wie Sie Datensätze ohne Kriterien über VBA in Microsoft Excel extrahieren.

Nehmen wir ein Beispiel, um zu verstehen, wie wir den Filter einsetzen und die Kriterien auswählen und dann die erforderlichen Maßnahmen ergreifen können: – Wir haben Daten in Spalten des Bereichs A: G, in denen Spalte A Name enthält, Spalte b Adresse enthält, Spalte C Stadt enthält , Spalte D Region, Spalte E Land, Spalte F Telefonnummer und Spalte G enthält Kriterien.

image 1

Wir möchten das Makro schreiben, um den Filter einzufügen und dann die Daten nach Nicht enthält Daten in der Spalte G zu filtern und dann die Nicht enthält Daten zu löschen. Entfernen Sie dann den Filter und zeigen Sie alle Daten an.

Um einen Datensatz mit Nicht-Kriterien zu extrahieren, gehen Sie wie folgt vor:

Öffnen Sie die VBA-Seite. Drücken Sie die Taste Alt + F11. Einfügen eines Moduls Gehen Sie dann erneut zum Menü Einfügen und klicken Sie auf Prozedur. Dort erhalten Sie die Prozedur, wenn Sie nicht wissen, wie das Makro gestartet werden soll. Schreiben Sie den folgenden Code:

Sub Delete_NotEligible()

ActiveSheet.Range("$A$1:$G$15").AutoFilter Field:=7, Criteria1:="<>"

Rows("2:12").Select

Selection.Delete Shift:=xlUp

Range("B1").Select

Selection.AutoFilter

End Sub
  • Um den Code auszuführen, drücken Sie die Taste F5 auf der Tastatur.

  • Daten werden gefiltert und dann nach festgelegten Kriterien gefilterte Daten gelöscht.

image 2

Code Erläuterung:

Wir haben den Header-Datenbereich definiert, um den Filter mit Kriterien für nicht leere Zellen in die Berechtigungsspalte einzufügen. Definieren Sie im Code, um die Zeile auszuwählen, und löschen Sie dann die gesamte Zeile. * Am Ende öffnen Sie den Filter. Auf diese Weise öffnen wir kann den Filter auf der Grundlage bestimmter Kriterien setzen und dann die Daten löschen.

image 48

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Sie können uns auch auf Twitter und Facebook folgen.

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