Hogyan válasszon oszlopot az Excel oszlopfejléce alapján?
Tegyük fel, hogy van egy nagy munkalapja, amely több oszlopot tartalmaz, és most egy oszlopfejléc neve alapján szeretné kiválasztani az adott oszlopot. Ha egy nagy munkalapon oszloponként találhatók, sok időt fog pazarolni. Ez a cikk bemutat egy gyors módszert a feladat megoldására az Excel programban.
Válasszon egy oszlopot az oszlopfejléc neve alapján, VBA kóddal
Válasszon egy oszlopot az oszlopfejléc neve alapján, VBA kóddal
A következő VBA-kód segíthet az oszlopok kiválasztásában egy adott fejlécnév alapján, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Oszlop kiválasztása az oszlopfejléc neve alapján:
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
Megjegyzések: A fenti kódban A1: P1 az a fejléc tartomány, amelyből oszlopokat szeretne választani, ésNév”A forgatókönyvben xStr = "Név" az a fejléc neve, amely alapján oszlopokat szeretne kiválasztani. Kérjük, változtassa meg őket az Ön igényeinek megfelelően.
3. A kód másolása és beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és az összes oszlop a fejléc nevével egyszerre lett kiválasztva, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!