Hoe selecteer je een kolom op basis van de kolomkop in Excel?
Stel dat je een groot werkblad hebt met meerdere kolommen, en nu wil je een specifieke kolom selecteren op basis van de naam van de kolomkop. Het handmatig zoeken van kolom naar kolom in een groot werkblad kost veel tijd. In dit artikel introduceer ik een snelle methode om deze taak in Excel uit te voeren.
Selecteer een kolom op basis van de kolomkopnaam met VBA-code
Selecteer een kolom op basis van de kolomkopnaam met VBA-code
De volgende VBA-code kan je helpen om kolommen te selecteren op basis van een specifieke kopnaam. Doe het volgende:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Selecteer kolom op basis van kolomkopnaam:
Sub FindAddressColumn()
'Updateby Extendoffcie
Dim xRg As Range
Dim xRgUni As Range
Dim xFirstAddress As String
Dim xStr As String
On Error Resume Next
xStr = "Name"
Set xRg = Range("A1:P1").Find(xStr, , xlValues, xlWhole, , , True)
If Not xRg Is Nothing Then
xFirstAddress = xRg.Address
Do
Set xRg = Range("A1:P1").FindNext(xRg)
If xRgUni Is Nothing Then
Set xRgUni = xRg
Else
Set xRgUni = Application.Union(xRgUni, xRg)
End If
Loop While (Not xRg Is Nothing) And (xRg.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Select
End Sub
Opmerking: In de bovenstaande code is A1:P1 het bereik van de kopteksten waaruit je kolommen wilt selecteren, en “Naam” in het script xStr = "Naam" is de kopnaam waarop je kolommen wilt selecteren. Pas ze aan naar wens.
3. Nadat je de code hebt gekopieerd en geplakt, druk op de F5-toets om de code uit te voeren, en alle kolommen met de specifieke kopnaam worden tegelijk geselecteerd, zie screenshot:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen