Hur tar jag bort ark om namnet innehåller specifik text från arbetsboken?
Om du antar att du har en arbetsbok som innehåller flera kalkylblad, och nu vill du radera arken efter flikenamn. Till exempel, om arknamnet innehåller en specifik text ”KTE”, ta bort den och få sedan följande skärmdump. Hur kan du ta bort arken om namnet innehåller en specifik text omedelbart utan att ta bort dem en efter en?
Ta bort ark om namnet innehåller specifik text med VBA-kod
Ta bort ark om namnet innehåller specifik text med VBA-kod
Här skapar jag en VBA-kod för att du ska ta bort arken efter namn, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Ta bort ark om namnet innehåller specifik text
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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta visas för att påminna dig om att ange den specifika text som du vill ta bort arkfliken baserat på, se skärmbild:
4. Och klicka sedan på OK, alla ark där namnet innehåller den angivna texten ”KTE” har tagits bort på en gång. Se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!