With nedenfor VBA kode Excel?, Kan du slette alle ark i en arbeidsbok unntatt spesifikt i Excel.
1. Trykk ALT + F11 tastene samtidig for å åpne Microsoft Visual Basic programvinduet.
2. Klikk Sett > Modul, og deretter kopiere og lime inn under VBA kode i modulen vinduet
VBA-kode. Slett alle ark unntatt de angitte
Sub DeleteSheets1 () Dim xWs Som Regneark Application.ScreenUpdating = False Application.DisplayAlerts = False for hver xWs I Application.ActiveWorkbook.Worksheets Hvis xWs.Name < > "Ark1" Og xWs.Name < > "Ark2" Then xWs.Delete End If Neste Application.DisplayAlerts = true Application.ScreenUpdating = TrueEnd SubNotes:
1. "Ark1" og "Ark2" er ark du vil beholde i gjeldende arbeidsbok. Du kan endre dem basert på dine behov.
To. Hvis du vil slette alle, men holde flere ark, kan du legge koden Og xWs.Name < > "arket ditt navn" før Så ordet i den sjette linje av koden. For eksempel:
Hvis xWs.Name < > "Ark1" Og xWs.Name < > "Ark2" Og xWs.Name < > "arket ditt navn" Da
3. Hvis du bare ønsker å holde ett ark og slette alt fra arbeidsboken, må du fjerne alt Og tilstanden i koden. For eksempel, for å holde Ark1 i gjeldende arbeidsbok, må du endre den sjette linjekode til: Hvis xWs.Name < > "Ark1" Da
Hvis VBA-kode er vanskelig å håndtere, vil følgende metode slette alle inaktive ark med bare ett klikk.
Datamaskin læring 