Hogyan lehet törölni a lapot, ha a név konkrét szöveget tartalmaz a munkafüzetből?
Tegyük fel, hogy van egy munkafüzete, amely több munkalapot tartalmaz, és most törölni szeretné a lapokat fülnév szerint. Például, ha a lap neve tartalmaz egy meghatározott „KTE” szöveget, akkor törölje, majd kapja meg a következő képernyőképet. Hogyan lehet törölni a lapokat, ha a név azonnal tartalmaz egy konkrét szöveget anélkül, hogy egyesével törölné őket?
Törölje a lapokat, ha a név konkrét szöveget tartalmaz VBA kóddal
Törölje a lapokat, ha a név konkrét szöveget tartalmaz VBA kóddal
Itt létrehozok egy VBA kódot a lapok név szerinti törléséhez, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Törölje a lapokat, ha a név konkrét szöveget tartalmaz
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy beírja azt a szöveget, amely alapján törölni szeretné a lapfület, lásd a képernyőképet:
4. Kattintson a gombra OK, az összes olyan lap, amelynek neve tartalmazza a „KTE” szöveget, egyszerre törölve lett. Lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!