Ինչպե՞ս ջնջել թերթիկը, եթե թերթիկի անունը ցուցակում չէ:
Եկեք ասենք, որ ես ունեմ մի աշխատանքային թերթ, որը պարունակում է Ա սյունակում աշխատանքային գրքի թերթիկների անունների ցուցակ, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, և աշխատանքային գրքում որոշ թերթիկների անուններ ցուցակում չեն, հիմա ուզում եմ ջնջել այն թերթերը, որոնք չեն Ա սյունակի ցուցակում. Ինչպե՞ս կարող եմ արագ և հեշտությամբ լուծել այս խնդիրը Excel- ում:
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 այս կոդը գործարկելու համար ստեղնը, ցուցակում չհիշատակված թերթերը միանգամից ջնջվել են, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: