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: