Comment sélectionner une colonne en fonction de l'en-tête de colonne dans Excel?

Supposons que vous ayez une grande feuille de calcul contenant plusieurs colonnes et que vous souhaitiez maintenant sélectionner la colonne spécifique en fonction d'un nom d'en-tête de colonne. Pour trouver la colonne par colonne dans une grande feuille de calcul va perdre beaucoup de temps, cet article, je vais vous présenter une méthode rapide pour résoudre ce travail dans Excel.

Sélectionnez une colonne en fonction du nom de l'en-tête de colonne avec le code VBA

Sélectionnez une colonne en fonction du nom de l'en-tête de colonne avec le code VBA

Le code VBA suivant peut vous aider à sélectionner les colonnes en fonction d'un nom d'en-tête spécifique, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: sélectionnez la colonne en fonction du nom de l'en-tête de colonne:

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

Notes: Dans le code ci-dessus, A1: P1 est la plage d'en-têtes dans laquelle vous souhaitez sélectionner des colonnes, et "Prénom”Dans le script xStr = "Nom" est le nom d'en-tête sur lequel vous souhaitez sélectionner les colonnes. Veuillez les modifier selon vos besoins.

3. Après avoir copié et collé le code, veuillez appuyer sur F5 clé pour exécuter ce code, et toutes les colonnes avec le nom d'en-tête spécifique ont été sélectionnées à la fois, voir capture d'écran: