Jak odstranit list, pokud název obsahuje konkrétní text ze sešitu?
Předpokládejme, že máte sešit, který obsahuje více listů, a nyní chcete odstranit listy podle názvů karet. Pokud například název listu obsahuje konkrétní text „KTE“, odstraňte jej a získejte následující snímek obrazovky. Jak byste mohli odstranit listy, pokud název obsahuje konkrétní text okamžitě, aniž byste je mazali jeden po druhém?
Odstraňte listy, pokud název obsahuje konkrétní text s kódem VBA
Odstraňte listy, pokud název obsahuje konkrétní text s kódem VBA
Tady pro vás vytvořím kód VBA k odstranění listů podle názvu, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Odstraňte listy, pokud název obsahuje konkrétní 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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste zadali konkrétní text, na kterém chcete odstranit kartu listu na základě, viz screenshot:
4. A pak klikněte na tlačítko OK, byly smazány všechny listy, jejichž název obsahuje zadaný text „KTE“. Viz snímek obrazovky:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
