Hvordan slettes ark, hvis navnet indeholder specifik tekst fra projektmappen?
Antag, at du har en projektmappe, som indeholder flere regneark, og nu vil du slette arkene efter fanenavne. For eksempel, hvis arknavnet indeholder en specifik tekst "KTE", så slet den og få derefter følgende skærmbillede. Hvordan kan du slette arkene, hvis navnet indeholder en bestemt tekst med det samme uden at slette dem én efter én?
Slet ark, hvis navnet indeholder specifik tekst med VBA-kode
Slet ark, hvis navnet indeholder specifik tekst med VBA-kode
Her vil jeg oprette en VBA-kode, så du kan slette arkene ved navn, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Slet ark, hvis navnet indeholder specifik tekst
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. Tryk derefter på F5 tasten for at køre denne kode, og en promptboks vises for at minde dig om at indtaste den specifikke tekst, som du vil slette arkfanen baseret på, se skærmbillede:
4. Og klik derefter på OK, er alle de ark, hvis navn indeholder den angivne tekst "KTE", blevet slettet på én gang. Se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!