Hoe verwijder je volledige kolommen op basis van de waarde in de koptekst in Excel?

In veel gevallen moet je mogelijk volledige kolommen verwijderen op basis van de waarde in de koptekst in Excel. Bijvoorbeeld, je wilt alle kolommen verwijderen die “oud” bevatten in de koptekst. In deze handleiding laten we je methoden zien om volledige kolommen te verwijderen op basis van de waarde in de koptekst.

Verwijder volledige kolommen op basis van koptekstwaarde met VBA-code
Verwijder volledige kolommen op basis van koptekstwaarde met Kutools voor Excel

Je kunt volledige kolommen verwijderen op basis van koptekstwaarde met behulp van VBA-code. Volg de onderstaande stappen.

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic Application-venster te openen.

2. Klik in het Microsoft Visual Basic Application-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande code in het Module-venster.

VBA-code: verwijder volledige kolommen op basis van koptekstwaarde

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

Opmerkingen:

3. Druk op de F5-toets om de code uit te voeren, de volledige kolom met een koptekst die gelijk is aan de gespecificeerde tekst wordt onmiddellijk verwijderd.

Met het hulpprogramma Specifieke cellen selecteren van Kutools voor Excel kun je eenvoudig eerst alle kolommen selecteren die een bepaalde koptekstwaarde bevatten, en vervolgens deze geselecteerde kolommen in één keer verwijderen. Volg de onderstaande stappen.

1. Selecteer het bereik dat de kolommen bevat die je wilt verwijderen, en klik vervolgens op Kutools > Selecteren > Specifieke cellen selecteren. Zie screenshot:

2. Selecteer in het dialoogvenster Specifieke cellen selecteren de optie Volledige kolom in de sectie Selectietype, en selecteer in de keuzelijst Specifiek type de optie Is gelijk aan, typ vervolgens de koptekstwaarde in het volgende vak. Klik ten slotte op de knop OK. Zie screenshot:

3. Klik op de knop OK in een ander pop-up dialoogvenster, dan worden de kolommen die de gespecificeerde koptekstwaarde bevatten onmiddellijk geselecteerd.

4. Klik met de rechtermuisknop op de kolomkop van de geselecteerde kolom, en klik vervolgens op Verwijderen in het rechtermuisknopmenu. Alle geselecteerde kolommen worden dan in één keer verwijderd.