Wie löscht man ganze Spalten basierend auf dem Kopfzeilenwert in Excel?

In vielen Fällen müssen Sie möglicherweise ganze Spalten basierend auf dem Kopfzeilenwert in Excel löschen. Zum Beispiel müssen Sie alle Spalten löschen, die den Wert „alt“ in der Kopfzeile enthalten. In diesem Tutorial zeigen wir Ihnen Methoden zum Löschen ganzer Spalten basierend auf dem Kopfzeilenwert im Detail.

Löschen ganzer Spalten basierend auf dem Kopfzeilenwert mit VBA-Code
Löschen ganzer Spalten basierend auf dem Kopfzeilenwert mit Kutools für Excel

Sie können ganze Spalten basierend auf dem Kopfzeilenwert mit VBA-Code löschen. Bitte gehen Sie wie folgt vor.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren und fügen Sie dann den folgenden Code in das Modulfenster ein.

VBA-Code: Löschen ganzer Spalten basierend auf dem Kopfzeilenwert

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

Hinweise:

3. Drücken Sie die Taste F5, um den Code auszuführen. Die gesamte Spalte mit einer Kopfzeile, die dem angegebenen Text entspricht, wird sofort gelöscht.

Mit dem Hilfsprogramm „Bestimmte Zellen auswählen“ von Kutools für Excel können Sie ganz einfach zuerst alle Spalten auswählen, die einen bestimmten Kopfzeilenwert enthalten, und diese ausgewählten Spalten dann auf einmal löschen. Gehen Sie wie folgt vor.

1. Wählen Sie den Bereich aus, der die zu löschenden Spalten enthält, und klicken Sie dann auf Kutools > Auswählen > Bestimmte Zellen auswählen. Siehe Screenshot:

2. Wählen Sie im Dialogfeld „Bestimmte Zellen auswählen“ die Option Gesamte Spalte im Abschnitt Auswahltyp aus, und wählen Sie in der Dropdown-Liste Spezifischer Typ die Option Gleich aus, und geben Sie dann den Kopfzeilenwert in das folgende Feld ein. Klicken Sie abschließend auf die Schaltfläche OK. Siehe Screenshot:

3. Klicken Sie in einem weiteren aufpoppenden Dialogfeld auf die Schaltfläche OK, dann werden die Spalten, die den angegebenen Kopfzeilenwert enthalten, sofort ausgewählt.

4. Klicken Sie mit der rechten Maustaste auf die Spaltenüberschrift der ausgewählten Spalte und dann im Kontextmenü auf Löschen. Dann werden alle ausgewählten Spalten auf einmal gelöscht.