Ինչպե՞ս ջնջել բոլոր թերթերը, բացառությամբ նշված / ներկա Excel- ի:
Excel աշխատանքային գրքում բոլոր թերթերը ջնջելու համար, բացառությամբ նշված մեկ կամ ընթացիկ ակտիվ թերթի, կարող եք դրանով զբաղվել, ինչպես ցույց է տրված ստորև ներկայացված մեթոդները:
Deleteնջեք բոլոր թերթերը, բացառությամբ նշված մեկի ՝ VBA կոդով
Մեկ կտտոցով ջնջեք բոլոր թերթերը, բացառությամբ ընթացիկ ակտիվի, Kutools- ի համար Excel- ի համար
Deleteնջեք բոլոր թերթերը, բացառությամբ նշված մեկի ՝ VBA կոդով
Ստորև ներկայացված VBA կոդով դուք կարող եք ջնջել աշխատանքային գրքում եղած բոլոր թերթերը, բացառությամբ Excel- ի հատուկ մեկի:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելված պատուհան.
2: սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք և տեղադրեք ներքևում VBA կոդի մեջ Մոդուլի պատուհանում:
VBA կոդ. Deleteնջեք բոլոր թերթերը, բացառությամբ նշվածների
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Notes:
1: «Sheet1"Եւ"Sheet2”Թերթեր են, որոնք ցանկանում եք պահել ընթացիկ աշխատանքային գրքում: Դրանք կարող եք փոխել ՝ ելնելով ձեր կարիքներից:
2. Եթե ցանկանում եք ջնջել բոլորը, բայց պահել ավելի շատ թերթեր, խնդրում ենք ավելացնել ծածկագիր Իսկ xWs.Name <> "ձեր թերթիկի անունը" նախքան Ապա կոդը ծածկագրի վեցերորդ տողում: Ինչպիսիք են.
Եթե xWs.Name <> "Sheet1" Եվ xWs.Name <> "Sheet2" Եվ xW. Անունը <> «ձեր թերթիկի անունը» Ապա
3. Եթե պարզապես ուզում եք մեկ թերթ պահել և բոլորն էլ ջնջել աշխատանքային գրքից, խնդրում ենք հեռացնել բոլորը Իսկ պայմանը ծածկագրում: Օրինակ, ընթացիկ աշխատանքային գրքում թերթիկը պահելու համար հարկավոր է վեցերորդ տողի կոդը փոխել հետևյալի. Եթե xWs.Name <> "Sheet1" ապա
Deleteնջել բոլոր թերթերը, բացառությամբ ընթացիկ ակտիվի, Excel- ի համար Kutools- ով (միայն մեկ կտտոցով)
YԴուք կարող եք հեշտությամբ հեռացնել բոլոր թերթերը, բացառությամբ ընթացիկ ակտիվ թերթի, ընդամենը մեկ կտտոցով Deleteնջել բոլոր ոչ ակտիվ թերթերը օգտակարությունը Excel- ի համար նախատեսված գործիքներ.
Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.
1: սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Deleteնջել բոլոր ոչ ակտիվ թերթերը.
3. Դրանից հետո հայտնվում է երկխոսության տուփ, եթե որոշում եք ջնջել բոլոր թերթերը, բացառությամբ ակտիվի, կտտացրեք այն OK կոճակը, հակառակ դեպքում կտտացրեք վերացնել կոճակը:
Այնուհետև բոլոր թերթերը ջնջվում են, բացառությամբ ձեր աշխատանքային գրքում առկա գործողի:
Եթե ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:
Excel- ի համար Kutools- ով ընտրված բջիջների մեջտեղում ավելացրեք տեքստ
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: