Ինչպե՞ս ընտրել սյունակ Excel- ի սյունակի վերնագրի հիման վրա:
Ենթադրելով, որ դուք ունեք մի մեծ աշխատանքային թերթ, որը պարունակում է բազմաթիվ սյունակներ, և այժմ կցանկանայիք ընտրել սյունակը վերնագրի անվանման հիման վրա: Խոշոր աշխատանքային թերթում սյուն առ սյուն գտնելու համար շատ ժամանակ է վատնում, այս հոդվածում ես կներկայացնեմ Excel- ում այս աշխատանքը լուծելու արագ մեթոդ:
Ընտրեք սյուն `հիմնվելով սյունակի վերնագրի անվան վրա` VBA կոդով
Ընտրեք սյուն `հիմնվելով սյունակի վերնագրի անվան վրա` VBA կոդով
Հաջորդ VBA կոդը կարող է օգնել ձեզ ընտրել սյունակները ՝ ելնելով հատուկ վերնագրի անունից, խնդրում ենք արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Ընտրեք սյունը ՝ հիմնվելով սյունակի վերնագրի անվան վրա.
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
ՆշումՎերոհիշյալ ծածկագրում A1: P1 վերնագրերի շարքն է, որից ուզում եք սյուններ ընտրել, և «Անուն»Սցենարում xStr = "Անուն" վերնագրի անունն է, որի հիման վրա ցանկանում եք ընտրել սյունակները: Խնդրում եմ դրանք փոխեք ձեր կարիքի:
3, Կոդը պատճենելուց և տեղադրելուց հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և հատուկ վերնագրի անունով բոլոր սյունակները միանգամից ընտրվել են, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: