Wie löscht man leere Spalten mit Überschrift in Excel?

Wenn Sie ein großes Arbeitsblatt haben, das mehrere Spalten enthält, aber einige der Spalten nur eine Überschrift enthalten, und Sie nun diese leeren Spalten, die nur eine Überschrift enthalten, löschen möchten, um das im folgenden Screenshot gezeigte Ergebnis zu erzielen. Kann dies in Excel schnell und einfach gelöst werden?

Löschen von leeren Spalten mit einer Überschrift mithilfe von VBA-Code

Löschen mehrerer leerer Spalten in einem Bereich / Arbeitsblatt / Arbeitsmappe mit Kutools für Excel

Löschen von leeren Spalten mit einer Überschrift mithilfe von VBA-Code

In Excel gibt es keine direkte Methode, um diese Aufgabe zu erledigen, außer sie manuell einzeln zu löschen, aber hier kann ich Ihnen einen Code vorstellen, bitte folgen Sie den Anweisungen:

1. Halten Sie die Tasten ALT + F11 gedrückt, dann öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Löschen leerer Spalten mit einer Überschrift:

Sub Macro1()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank columns with only headers are deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Hinweisfeld wird angezeigt, um Sie daran zu erinnern, dass die leeren Spalten mit Überschrift gelöscht werden.

4. Klicken Sie auf OK, und alle leeren Spalten mit nur Überschriften im aktuellen Arbeitsblatt werden auf einmal gelöscht.

Hinweis: Wenn es leere Spalten gibt, werden diese ebenfalls gelöscht.

Löschen mehrerer leerer Spalten in einem Bereich / Arbeitsblatt / Arbeitsmappe mit Kutools für Excel

Manchmal möchten Sie nur die leeren Spalten löschen. Das Hilfsprogramm „Ausgeblendete (Sichtbare) Zeilen & Spalten löschen“ von Kutools für Excel kann Ihnen helfen, diese Aufgabe problemlos zu erledigen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie den Spaltenbereich aus, der die zu löschenden leeren Spalten enthält.

2. Klicken Sie dann auf Kutools > Löschen > Ausgeblendete (Sichtbare) Zeilen & Spalten löschen, siehe Screenshot:

3. Wählen Sie im Dialogfeld „Ausgeblendete (Sichtbare) Zeilen & Spalten löschen“ den Bereich zum Löschen aus dem Dropdown-Menü „Suchen in“ wie benötigt aus, wählen Sie Spalten im Abschnitt „ Löschtyp“ und dann Leere Spalten im Abschnitt „Detaillierter Typ“, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und nur die leeren Spalten werden sofort gelöscht. Siehe Screenshot:

Tipps: Mit dieser leistungsstarken Funktion können Sie auch leere Zeilen, sichtbare Spalten oder Zeilen sowie ausgeblendete Spalten oder Zeilen nach Bedarf löschen.