Cum se selectează o coloană pe baza antetului coloanei din Excel?
Presupunând că aveți o foaie de lucru mare care conține mai multe coloane și acum doriți să selectați coloana specifică pe baza unui nume de antet de coloană. Pentru a găsi coloană cu coloană într-o foaie de lucru mare, veți pierde mult timp, acest articol, voi introduce o metodă rapidă pentru a rezolva această sarcină în Excel.
Selectați o coloană pe baza numelui antetului coloanei cu cod VBA
Selectați o coloană pe baza numelui antetului coloanei cu cod VBA
Următorul cod VBA vă poate ajuta să selectați coloanele pe baza unui anumit nume de antet, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Selectați coloana pe baza numelui antetului coloanei:
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
notițe: În codul de mai sus, A1: P1 este gama de anteturi din care doriți să selectați coloanele și „Nume si Prenume”În scenariu xStr = "Nume" este numele antetului pe care doriți să selectați coloanele. Vă rugăm să le schimbați după nevoile dvs.
3. După copierea și lipirea codului, vă rugăm să apăsați F5 tasta pentru a rula acest cod și toate coloanele cu numele antetului specific au fost selectate simultan, consultați captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!