Zeilen löschen mit leeren Zellen in einer bestimmten Spalte mit VBA in Microsoft Excel
In diesem Artikel erstellen wir ein Makro zum Löschen unvollständiger Datensätze, die leere Zellen enthalten.
Rohdaten bestehen aus einigen Beispieldaten, einschließlich Name, Alter und Geschlecht. Es enthält auch einige leere Zellen.
Wir möchten die Datensätze entfernen, die leere Zellen enthalten.
Logische Erklä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.
Code Erklärung
Setze Rng = Range („A9: C“ & LastRow)
Der obige Code wird verwendet, um ein Bereichsobjekt für die angegebenen Daten zu erstellen.
Rng.SpecialCells (xlCellTypeBlanks) .Select Mit dem obigen Code werden leere Zellen innerhalb des angegebenen Bereichs ausgewählt.
Selection.EntireRow.Delete Mit dem obigen Code wird die gesamte Zeile für die ausgewählte Zelle gelöscht.
Bitte folgen Sie unten für den Code
Option Explicit
Sub BlankRowDeletion()
'Declaring variables
Dim LastRow As Long
Dim Rng As Range
'Getting row number of last cell
LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row
'Selecting all data
Set Rng = Range("A9:C" & LastRow)
'Selecting Blank cells
Rng.SpecialCells(xlCellTypeBlanks).Select
'Deleting complete row
Selection.EntireRow.Delete
Range("A9").Select
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]