Wie lösche ich leere Spalten mit Kopfzeile in Excel?
Wenn Sie ein großes Arbeitsblatt haben, das mehrere Spalten enthält, einige der Spalten jedoch nur eine Überschrift enthalten, möchten Sie jetzt diese leeren Spalten löschen, die nur eine Überschrift enthalten, um den folgenden Screenshot anzuzeigen. Kann dies in Excel schnell und einfach gelöst werden?
Löschen Sie leere Spalten mit einem Header mithilfe von VBA-Code
Löschen Sie leere Spalten mit einem Header mithilfe von VBA-Code
In Excel gibt es keine direkte Methode, um diesen Job zu bearbeiten, außer sie einzeln manuell zu löschen. Hier kann ich jedoch einen Code für Sie einführen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Leere Spalten mit einem Header löschen:
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 and column(s) with only a header row have now been 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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass die leeren Spalten mit der Kopfzeile gelöscht werden (siehe Abbildung):
4. Und dann klick OK Schaltfläche werden alle leeren Spalten mit nur Überschrift im aktuellen Arbeitsblatt auf einmal gelöscht.
Note: Wenn leere Spalten vorhanden sind, werden diese ebenfalls gelöscht.
Löschen Sie mit Kutools for Excel mehrere leere Spalten in einem Bereich / Arbeitsblatt / Arbeitsmappe
Manchmal müssen Sie nur die leeren Spalten löschen, die Kutools for Excel Versteckte (sichtbare) Zeilen und Spalten löschen Das Dienstprogramm kann Ihnen dabei helfen, diese Aufgabe mühelos zu erledigen.
Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie den Spaltenbereich aus, der die leeren Spalten enthält, die gelöscht werden sollen.
2. Dann klick Kutoolen > Löschen > Versteckte (sichtbare) Zeilen und Spalten löschen, siehe Screenshot:
3. In dem Versteckte (sichtbare) Zeilen und Spalten löschen Im Dialogfeld können Sie den Löschbereich nach Bedarf aus der Dropdown-Liste Suchen in auswählen Spalten von dem Typ löschen Abschnitt, und wählen Sie dann Leere Spalten von dem Detaillierter Typ Abschnitt, siehe Screenshot:
4. Dann klick Ok Schaltfläche, und nur die leeren Spalten werden sofort gelöscht. Siehe Screenshot:
Tips: Mit dieser leistungsstarken Funktion können Sie bei Bedarf auch leere Zeilen, sichtbare Spalten oder Zeilen, versteckte Spalten oder Zeilen löschen.
Klicken Sie auf Free Download Kutools for Excel Now!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!