In diesem Artikel erfahren Sie, wie Sie leere Spalten über VBA in Microsoft Excel löschen. Wir werden die Spalten löschen, die vollständig leer sind, dh wenn keine Daten in der gesamten Spalte vorhanden sind, diese Daten.
Nehmen wir ein Beispiel und verstehen:
Wir haben Daten im Bereich A1:I21, wobei Spalte A Name enthält, Spalte B leer ist, Spalte C enthält Straße, Spalte D Stadt, Spalte E ist leer, Spalte F enthält Region, Spalte G ist leer, Spalte H enthält Land Name und Spalte I enthält die Telefonnummer.
Wir möchten die leeren Spalten aus den Daten löschen, folgen Sie den unten angegebenen Schritten und Code:
- Öffnen Sie die VBE-Seite, um die Taste Alt+F11 . zu drücken
- Fügen Sie das Modul ein, um den Code zu schreiben
- Schreiben Sie den unten genannten Code:
Sub Delete_Columns() Dim C As Integer C = ActiveSheet.Cells.SpecialCells(xlLastCell).Column Do Bis C = 0 If WorksheetFunction.CountA(Columns(C)) = 0 Then Columns(C).Delete End If C = C - 1 Loop End Sub
Code-Erklärung:
Zuerst haben wir alle Variablen definiert. Dann der Bereich der leeren Spalten, dann haben wir "Do until loop" verwendet, um die leeren Spalten zu löschen. Und jetzt haben wir die leere Spalte und den Löschbefehl definiert.
Um den Code auszuführen, drücken Sie die Taste F5 auf Ihrer Tastatur,
- Alle leeren Spalten werden gelöscht.
Auf diese Weise können wir die leeren Spalten über VBA in Microsoft Excel 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