Ինչպե՞ս ջնջել Excel- ում վերնագրով դատարկ սյունակները:
Եթե ունեք մեծ աշխատաթերթ, որը պարունակում է բազմաթիվ սյունակներ, բայց սյունակների մի մասը պարունակում է միայն վերնագիր, և այժմ դուք ցանկանում եք ջնջել այդ դատարկ սյունակները, որոնք ունեն միայն վերնագիր `հետևյալ նկարը ցույց տալու համար: Արդյո՞ք դա կարելի է արագ և արագ լուծել Excel- ում:
Emptyնջեք դատարկ սյունակները վերնագրով ՝ օգտագործելով VBA կոդ
Emptyնջեք դատարկ սյունակները վերնագրով ՝ օգտագործելով VBA կոդ
Excel- ում այս գործով զբաղվելու ուղղակի մեթոդ գոյություն չունի, բացառությամբ դրանք մեկ առ մեկ ձեռքով ջնջելու, բայց, այստեղ, ես կարող եմ ձեզ համար ծածկագիր ներկայացնել, խնդրում եմ արեք հետևյալը.
1. Անջատեք ALT + F11 ստեղները, ապա այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Deleteնջել դատարկ սյունակները վերնագրով.
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ վերնագիրով դատարկ սյունները կջնջվեն, տես նկարի նկարը.
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, ընթացիկ աշխատանքային թերթում միայն վերնագիր ունեցող բոլոր դատարկ սյունները միանգամից ջնջվում են:
ՆշումԵթե կան դատարկ սյուններ, դրանք նույնպես կջնջվեն:
Excel- ի համար Kutools- ի հետ մի շարք դատարկ սյուններ ջնջեք տիրույթում / աշխատաթերթում / աշխատանքային գրքում
Երբեմն, պարզապես անհրաժեշտ է ջնջել միայն դատարկ սյունակները Excel- ի համար նախատեսված գործիքներ'S Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները օգտակարությունը կարող է օգնել ձեզ հեշտությամբ ավարտել այս խնդիրը:
| Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1, Ընտրեք սյունակների միջակայքը, որոնք պարունակում են դատարկ սյունակները, անհրաժեշտ է ջնջել:
2. Այնուհետեւ կտտացրեք Կուտոլս > ջնջել > Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները, տես նկարի նկարը.
3, Մեջ Deleteնջել թաքնված (տեսանելի) շարքերը և սյունակները երկխոսության տուփ, կարող եք ընտրել «Lookնջել» շրջանակը «Հայացք» բաժնից, որքան անհրաժեշտ է, ընտրեք Սյունակ - ից Deleteնջել տեսակը բաժինը, ապա ընտրեք Դատարկ սյուններ - ից Մանրամասն տեսակը բաժին, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք Ok կոճակը, և միանգամից ջնջվում են միայն դատարկ սյունները: Տեսեք,
TipsԱյս հզոր գործառույթի միջոցով կարող եք նաև ջնջել դատարկ շարքերը, տեսանելի սյունակները կամ տողերը, թաքնված սյունակները կամ տողերը, որքան ձեզ հարկավոր է:
Կտտացրեք անվճար ներբեռնման համար Excel- ի համար հիմա
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
