So extrahieren Sie einen Datensatz mit Nicht-Kriterien über VBA

Anonim

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 setzen und die Kriterien auswählen und dann die erforderlichen Maßnahmen ergreifen können:-

Wir haben Daten im Bereich A: G Spalten, 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 Kriterien enthält.

Wir möchten das Makro schreiben, um den Filter zu setzen 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. Und dann den Filter entfernen und alle Daten anzeigen.

Um einen Datensatz mit Nicht-Kriterien zu extrahieren, führen Sie die folgenden Schritte aus:

  • Öffnen Sie die VBA-Seite und drücken Sie die Taste Alt+F11
  • Ein Modul einfügen
  • Gehen Sie dann erneut zum Menü Einfügen und klicken Sie auf Prozedur, wo Sie die Prozedur erhalten, wenn Sie nicht wissen, wie das Makro gestartet werden soll
  • Schreiben Sie den unten genannten 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.

Code-Erklärung:

  • Wir haben den Header-Datenbereich definiert, um den Filter mit Kriterien für nicht leere Zellen in die Berechtigungsspalte zu setzen
  • Definieren Sie im Code, um die Zeile auszuwählen und dann die gesamte Zeile zu löschen
  • Am Ende den Filter öffnen

Auf diese Weise können wir den Filter nach bestimmten Kriterien setzen und die Daten anschließend löschen.

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

Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site