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 "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:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
