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

Ինչպե՞ս ջնջել թերթիկը, եթե թերթիկի անունը ցուցակում չէ:

Եկեք ասենք, որ ես ունեմ մի աշխատանքային թերթ, որը պարունակում է Ա սյունակում աշխատանքային գրքի թերթիկների անունների ցուցակ, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, և աշխատանքային գրքում որոշ թերթիկների անուններ ցուցակում չեն, հիմա ուզում եմ ջնջել այն թերթերը, որոնք չեն Ա սյունակի ցուցակում. Ինչպե՞ս կարող եմ արագ և հեշտությամբ լուծել այս խնդիրը Excel- ում:

փաստաթուղթը ջնջելու թերթիկը 1 ցուցակում չէ

Deleteնջեք թերթերը, որոնք VBA կոդով հատուկ ցուցակում չեն


նետ կապույտ աջ պղպջակ Deleteնջեք թերթերը, որոնք VBA կոդով հատուկ ցուցակում չեն

Սովորաբար, դուք կարող եք մեկ առ մեկ ստուգել թերթիկների անունները և ջնջել դրանք, որոնք թերթիկների անունների ցուցակում չեն: Բայց, այստեղ, ես կարող եմ խոսել VBA կոդի մասին `դրանով զբաղվելու համար: Խնդրում ենք անել հետևյալը.

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

2. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Deleteնջել թերթերը, որոնք չկան ցուցակում

Sub Deletenotinlist()
'Updateby Extendoffice
    Dim i As Long
    Dim cnt As Long
    Dim xWb, actWs As Worksheet
    Set actWs = ThisWorkbook.ActiveSheet
    cnt = 0
    Application.DisplayAlerts = False
    For i = Sheets.Count To 1 Step -1
        If Not ThisWorkbook.Sheets(i) Is actWs Then
            xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
            If IsError(xWb) Then
                ThisWorkbook.Sheets(i).Delete
                cnt = cnt + 1
            End If
        End If
    Next
    Application.DisplayAlerts = True
    If cnt = 0 Then
        MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted" & cnt & "worksheets"
    End If
End Sub

ՆշումՎերոհիշյալ ծածկագրում A2: A6 այն բջջային տեղեկանքն է, որը պարունակում է թերթի անուններ, այն կարող եք փոխել ըստ ձեր կարիքի:

3, Եվ հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, ցուցակում չհիշատակված թերթերը միանգամից ջնջվել են, տես նկարի նկարը.

փաստաթուղթը ջնջելու թերթիկը 2 ցուցակում չէ


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (4)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,


Թերթիկների անունների իմ ցուցակը միայն թվեր է, և այս կոդը դեռ ջնջում է բոլոր թերթերի անունները, որոնք պարզապես համար են, այսինքն՝ ես ունեմ «1», «2» և «3» անուններով թերթեր, և իմ ցուցակը միայն 1 և 3 է՝ թերթը ջնջելու փոխարեն։ «2»-ը ջնջում է բոլոր համարակալված թերթերը: Եթե ​​թերթի անունը տառեր ունի, ապա կոդը լավ է աշխատում: Ինչ-որ մեկը կարո՞ղ է օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող է սա փոխվել, որպեսզի եթե թերթի անվանումը պարունակում է ցուցակի տեքստը, այն չի ջնջում դրանք, այլ ոչ թե համընկնում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Կոդը ջնջել է բոլոր թերթերը, նույնիսկ նրանք, որոնք ներառված են ցուցակում:

Խնդրում եմ, լուծում առաջարկեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Նելավայ
Կոդը լավ է աշխատում իմ աշխատանքային գրքում, կարո՞ղ եք այստեղ վերբեռնել ձեր խնդրի սքրինշոթը կամ ձեր աշխատանքային գրքույկի հավելվածը: Այսպիսով, մենք կարող ենք օգնել ստուգել խնդիրը:
Thank you!
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

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