Ինչպե՞ս ջնջել թերթիկը, եթե անունը աշխատանքային գրքից որոշակի տեքստ է պարունակում:
Ենթադրելով, որ դուք ունեք աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատանքային թերթեր, և այժմ ցանկանում եք ջնջել թերթերը ըստ ներդիրների անունների: Օրինակ, եթե թերթիկի անունը պարունակում է հատուկ «KTE» տեքստ, ապա ջնջեք այն, ապա ստացեք հետևյալ նկարը: Ինչպե՞ս կարող եք ջնջել թերթերը, եթե անունը անմիջապես պարունակում է որոշակի տեքստ ՝ առանց դրանք մեկ առ մեկ ջնջելու:
Sheetsնջեք թերթերը, եթե անունը պարունակում է հատուկ տեքստ VBA կոդով
Sheetsնջեք թերթերը, եթե անունը պարունակում է հատուկ տեքստ VBA կոդով
Այստեղ ես կստեղծեմ VBA կոդ, որպեսզի թերթերը անունով ջնջեք, արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Deleteնջել թերթերը, եթե անունը պարունակում է որոշակի տեքստ
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3, Դրանից հետո սեղմեք F5 Այս կոդն աշխատեցնելու համար ստեղնը դուրս է գալիս, և հուշվում է, որ հուշում է ձեզ մուտքագրել այն հատուկ տեքստը, որի վրա ցանկանում եք ջնջել թերթիկի ներդիրը:
4. Եվ այնուհետեւ կտտացրեք OK, բոլոր թերթերը, որոնց անունը պարունակում է նշված «KTE» տեքստը, միանգամից ջնջվել են: Տեսեք,
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: