Hoe een blad te verwijderen als de naam specifieke tekst uit de werkmap bevat?
Stel dat u een werkmap heeft die meerdere werkbladen bevat, en nu wilt u de bladen op tabnaam verwijderen. Als de bladnaam bijvoorbeeld een specifieke tekst "KTE" bevat, verwijdert u deze en krijgt u de volgende schermafbeelding. Hoe zou je de bladen kunnen verwijderen als de naam een specifieke tekst onmiddellijk bevat zonder ze een voor een te verwijderen?
Verwijder bladen als de naam specifieke tekst bevat met VBA-code
Verwijder bladen als de naam specifieke tekst bevat met VBA-code
Hier zal ik een VBA-code voor u maken om de bladen op naam te verwijderen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verwijder bladen als de naam specifieke tekst bevat
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de specifieke tekst in te voeren waarvan u de bladtab wilt verwijderen, zie screenshot:
4. En klik vervolgens op OK, zijn alle bladen waarvan de naam de gespecificeerde tekst "KTE" bevat in één keer verwijderd. Zie screenshot:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
