Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe verwijder ik volledige kolommen op basis van de koptekstwaarde in Excel?

In veel gevallen moet u mogelijk de volledige kolommen verwijderen op basis van de koptekstwaarde in Excel. U moet bijvoorbeeld alle kolommen verwijderen die de waarde "oud" in de koptekst bevatten. In deze zelfstudie laten we u methoden zien om volledige kolommen te verwijderen op basis van de koptekstwaarde in details.

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


Verwijder volledige kolommen op basis van de koptekstwaarde met VBA-code

U kunt volledige kolommen verwijderen op basis van de koptekstwaarde met VBA-code. Ga als volgt te werk.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic-toepassing venster.

2. In de Microsoft Visual Basic-toepassing venster klikt Invoegen > Module. En kopieer en plak vervolgens onderstaande code in het modulevenster.

VBA-code: verwijder volledige kolommen op basis van de koptekstwaarde

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

Opmerking:: in de code, "oud”Is de koptekstwaarde waarop u de hele kolom wilt verwijderen op basis van. Wijzig uw koptekstwaarde handmatig. En A1: D1 is het kolombereik dat u wilt gebruiken.

3. druk de F5 sleutel om de code uit te voeren, wordt de volledige kolom die de opgegeven headerwaarde bevat onmiddellijk verwijderd.


Verwijder volledige kolommen op basis van de koptekstwaarde met Kutools voor Excel

met Kutools for Excel's Selecteer specifieke cellen hulpprogramma, kunt u eenvoudig alle kolommen selecteren die eerst de bepaalde koptekstwaarde bevatten en deze geselecteerde kolommen vervolgens in één keer verwijderen. Ga als volgt te werk.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Selecteer het bereik met de kolommen die u wilt verwijderen en klik op Kutools > kies > Selecteer specifieke cellen. Zie screenshot:

2. In de Selecteer specifieke cellen dialoogvenster, selecteert u het Volledige kolom optie in het Selectie type sectie en in het Specifiek type vervolgkeuzelijst, selecteer Is gelijk aan optie en typ vervolgens de koptekstwaarde in het volgende vak. En klik ten slotte op het OK knop. Zie screenshot:

3. Klik op het OK knop in een ander pop-upvenster, dan worden de kolommen die de gespecificeerde header-waarde bevatten onmiddellijk geselecteerd.

4. Klik met de rechtermuisknop op de kolomkop van de geselecteerde kolom en klik vervolgens op Delete vanuit het rechtsklikmenu. Vervolgens worden alle geselecteerde kolommen in één keer verwijderd.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jonathan · 5 months ago
    The VBA example states that the code will delete all columns whose headers CONTAIN "old." That is not the case. The = operator will only delete exact matches. You need to use the LIKE operator with a wildcard.

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

  • To post as a guest, your comment is unpublished.
    Mark · 1 years ago
    Hi, is it possible to do this with multiple column names?
    • To post as a guest, your comment is unpublished.
      Rahul · 5 months ago
      What if the headers are starting from 4th row
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Mark,
      Try the below code. In the eighth line, please enclose each column name with double quotes and separate them by comma. Hope I can help. Thank you.

      Sub DeleteSpecifcColumn()
      Dim xFNum, xFFNum, xCount As Integer
      Dim xStr As String
      Dim xArrName As Variant
      Dim MR, xRg As Range
      On Error Resume Next
      Set MR = Range("A1:N1")
      xArrName = Array("old", "new", "get") 'enclose each column name with double quotes and separate them by comma
      xCount = MR.Count
      xStr = xArrName(xFNum)
      For xFFNum = xCount To 1 Step -1
      Set xRg = Cells(1, xFFNum)
      For xFNum = 0 To UBound(xArrName)
      xStr = xArrName(xFNum)
      If xRg.Value = xStr Then xRg.EntireColumn.Delete
      Next xFNum
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    Elias · 3 years ago
    Hey! This works well until you have two contiguous columns with the same header. Say your range is A1:A5, and A2 and A3 have the header 'old'. It will delete A2, but then the A3 will move to the place A2 used to occupy, and the code will skip it, as it will be looking at the new A3, the next cell on its range.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Elias,
      As you mentioned, A2 and A3 have he same header "old". But they are in the same column, after applying the code, the whole column A will be removed immediately.
      I am not sure I get your point. Would be nice if you could provide screenshot of what you are trying to do.
  • To post as a guest, your comment is unpublished.
    Leonard Staggs · 4 years ago
    Sorry if this seems super basic but this is my first time trying vba. Using this how would I apply it to delete multiple column headers. I am actually trying to only keep certain header columns and delete the rest of a changing list.
    • To post as a guest, your comment is unpublished.
      Ata · 2 months ago
      In the first code just copy the 4th row and change the "old" into the second column name and it will work