Jak odstranit list, pokud název listu není v seznamu?
Řekněme, že mám list, který obsahuje seznam názvů listů v sešitu ve sloupci A, jak je uvedeno níže, a některé určité názvy listů v sešitu nejsou v seznamu, nyní chci odstranit listy, které nejsou v seznamu sloupce A. Jak mohu rychle a snadno vyřešit tento úkol v aplikaci Excel?
Odstraňte listy, které nejsou v konkrétním seznamu, pomocí kódu VBA
Odstraňte listy, které nejsou v konkrétním seznamu, pomocí kódu VBA
Normálně můžete zkontrolovat názvy listů jeden po druhém a odstranit ty, které nejsou v seznamu názvů listů. Ale tady můžu mluvit o kódu VBA, abych se s ním vypořádal. Postupujte prosím následovně:
1. Přejděte na list, který obsahuje seznam názvů listů, a poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Pak klikněte na tlačítko Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Odstraňte listy, které nejsou v seznamu
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
Poznámka: Ve výše uvedeném kódu, A2: A6 je odkaz na buňku, který obsahuje názvy listů, můžete jej podle potřeby změnit.
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, listy, které nejsou v seznamu, byly odstraněny najednou, viz screenshot:
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!