Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ջնջել Excel- ի բոլոր դատարկ աշխատաթերթերը:

Եթե ​​ունեք աշխատանքային գրքույկ, որն ունի շատ աշխատաթերթեր, մինչդեռ դրանում կան դատարկ աշխատաթերթեր: Եվ հիմա ուզում եք ջնջել դատարկ աշխատաթերթերը ՝ ֆայլը պահելու կամ արխիվացնելու համար: Ինչպե՞ս կարող եք բազմաթիվ թերթերից փնտրել դատարկ թերթերը և դրանք ավտոմատ կերպով ջնջել:

Deleteնջեք բոլոր դատարկ աշխատաթերթերը VBA կոդով

Deleteնջեք Kutools- ի բոլոր դատարկ աշխատաթերթերը Excel- ի համար

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Deleteնջեք բոլոր դատարկ աշխատաթերթերը VBA կոդով

Ձեզ համար անհանգստացնող է ստուգել դատարկ աշխատաթերթերը և դրանք մեկ առ մեկ հեռացնել, բայց հետևյալ VBA կոդով հեշտությամբ կարող եք միանգամից ջնջել բոլոր դատարկ աշխատաթերթերը:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA. Ջնջել բոլոր դատարկ աշխատաթերթերը

Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As Worksheet on Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False for Every Ws in Application. Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Ապա Ws.Delete End Եթե ​​Հաջորդ Դիմում. ScreenUpdating = Applicationշմարիտ Դիմում. Display-Alerts = True End Ենթ

3, Դրանից հետո սեղմեք F5 ստեղնը, և բոլոր դատարկ աշխատաթերթերը միանգամից ջնջվում են:


նետ կապույտ աջ պղպջակ Deleteնջեք Kutools- ի բոլոր դատարկ աշխատաթերթերը Excel- ի համար

Եթե ​​դուք ծանոթ չեք VBA կոդին, ես կարող եմ ձեզ ներկայացնել հեշտ գործիք- Excel- ի համար նախատեսված գործիքներԻր Deleteնջել դատարկ աշխատաթերթերը գործառույթը, կարող եք մեկ կտտոցով հեռացնել բոլոր դատարկ աշխատաթերթերը:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.

Երբ Kutools- ը տեղադրել եք Excel- ի համար, կատարեք հետևյալ քայլերը.

1: Սեղմեք ձեռնարկություն > Աշխատաթերթի գործիքներ > Deleteնջել դատարկ աշխատաթերթերը, տես նկարի նկարը.

փաստաթուղթ-ջնջել-դատարկ թերթեր 1

2. Եվ կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ `ուզում եք ջնջել բոլոր դատարկ աշխատաթերթերը, թե ոչ, տեսեք,

փաստաթուղթ-ջնջել-դատարկ թերթեր 2

3. Այնուհետեւ կտտացրեք այո, և դատարկ աշխատաթերթերը հաջողությամբ ջնջվել են: Տեսեք սքրինշոթերը.

փաստաթուղթ-ջնջել-դատարկ թերթեր 3
-1
փաստաթուղթ-ջնջել-դատարկ թերթեր 4

Եթե ​​ցանկանում եք ավելին իմանալ այս հատկության մասին, խնդրում ենք կտտացնել Deleteնջել դատարկ աշխատաթերթերը.


Առնչվող հոդված:

Ինչպե՞ս ջնջել թաքնված աշխատանքային թերթերը Excel- ում:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հանրային անդամ «WorksheetFunction» տիպի «WorkbookClass» չի գտնվել:
Ես օգտագործում եմ Interop.Excel-ը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Էստիմադո, նո սե սի մե պուեդա այուդար։ Tengo esta macro precisamente para eliminar hojas vacías, pero no logo hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías: Que esta Falando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Դիմ Նհոջաս որպես ամբողջ թիվ
Dim i As Integer- ը

Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Application.DisplayAlerts = Սխալ

Nhojas = Sheets.Count

For i = 1 To Nhojas

Եթե ​​WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Ապա

Թերթեր (i) Ջնջել

Ուրիշ
― Նադա
Վերջ: Եթե
Հաջորդ i

Սխալի դեպքում GoTo 0
Դիմում. ScreenUpdating = ueիշտ է
Application.DisplayAlerts = Ճիշտ է

Վերջ Sub

Gracias, espero sus commentarios.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չեմ կարող խոսել քո լեզվով, բայց քո ծածկագրում թերություն եմ տեսնում:
Խնդիրն այն է, >> Nhojas = Sheets.Count
Եվ հետո դուք կախված եք Nhojas-ից, բայց երբ ջնջում եք թերթիկը, դուք չեք կրճատում Nhojas-ը 1-ով

Այսպիսով, պարզապես ավելացրեք այս տողը ձեր կոդի մեջ «Sheets(i).Delete»-ից հետո և «Else»-ից առաջ.
Նհոջաս = Նհոջաս - 1

Նվիրաբերել :)

Այնուամենայնիվ, դուք լավ աշխատանք եք կատարել, բայց դուք պետք է չոր գործարկեք ձեր կոդը, երբ փորձում եք վրիպազերծել կոդը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից