Hoe selecteert u in Excel een kolom via de kolomkop?
Stel dat u een groot werkblad hebt met meerdere kolommen en u de optie **Specificeer kolom** wilt gebruiken op basis van een kolomkopnaam. Het handmatig doorzoeken van kolom na kolom in een uitgebreid werkblad kost veel tijd. In dit artikel introduceer ik een snelle methode om deze taak in Excel efficiënt 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 helpt u kolommen te selecteren op basis van een specifieke kopnaam. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: kolom selecteren 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 koppen waaruit u kolommen wilt selecteren, en is „Name” in het script xStr = „Name" de kopnaam waarmee u kolommen wilt selecteren. Pas deze waarden aan naar wens.
3. Nadat u de code hebt gekopieerd en geplakt, drukt u op de toets F5 om deze code uit te voeren. Alle kolommen met de opgegeven kopnaam worden dan tegelijkertijd geselecteerd; zie de afbeelding hieronder:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins