Hoe selecteer ik een kolom op basis van de kolomkop in Excel?
Stel dat u een groot werkblad heeft dat meerdere kolommen bevat, en nu wilt u de specifieke kolom selecteren op basis van de naam van een kolomkop. Om de kolom voor kolom in een groot werkblad te vinden, zal veel tijd worden verspild, in dit artikel zal ik een snelle methode introduceren om deze taak in Excel op te lossen.
Selecteer een kolom op basis van de naam van de kolomkop met VBA-code
Selecteer een kolom op basis van de naam van de kolomkop met VBA-code
De volgende VBA-code kan u helpen om de kolommen te selecteren op basis van een specifieke koptekstnaam, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: selecteer een kolom op basis van de naam van de kolomkop:
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
Note: In de bovenstaande code, A1: P1 is het bereik van kopteksten waaruit u kolommen wilt selecteren, en 'Naam”In het script xStr = "Naam" is de koptekstnaam waarop u kolommen wilt selecteren op basis van. Wijzig ze naar uw behoefte.
3. Druk na het kopiëren en plakken van de code op F5 sleutel om deze code uit te voeren, en alle kolommen met de specifieke koptekstnaam zijn in één keer geselecteerd, zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
