In diesem Artikel erstellen wir ein Makro zum Löschen unvollständiger Datensätze, die leere Zellen enthalten.
Rohdaten bestehen aus einigen Beispieldaten, darunter Name, Alter und Geschlecht. Es enthält auch einige leere Zellen.
Wir möchten diejenigen Datensätze entfernen, die leere Zellen enthalten.
Logikerklärung
Wir haben das Makro „BlankRowDeletion“ erstellt, um unvollständige Datensätze zu löschen. Es sucht und wählt leere Zellen aus und löscht dann die gesamte Zeile, die eine leere Zelle enthält.
Codeerklärung
Set Rng = Range("A9:C" & LastRow)
Der obige Code wird verwendet, um ein Bereichsobjekt für die angegebenen Daten zu erstellen.
Rng.SpecialCells(xlCellTypeBlanks).Select
Der obige Code wird verwendet, um leere Zellen innerhalb des angegebenen Bereichs auszuwählen.
Auswahl.EntireRow.Delete
Der obige Code wird verwendet, um die gesamte Zeile für die ausgewählte Zelle zu löschen.
Bitte folgen Sie unten für den Code
Option Explicit Sub BlankRowDeletion() 'Variablen deklarieren Dim LastRow As Long Dim Rng As Range 'Zeilennummer der letzten Zelle abrufen LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Alle Daten auswählen Set Rng = Range("A9 :C" & LastRow) 'Auswählen von leeren Zellen Rng.SpecialCells(xlCellTypeBlanks).Select 'Löschen der kompletten Zeile Selection.EntireRow.Delete Range("A9").Select End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site