Hoe kan ik slechts één werkblad in een werkmap in Excel opslaan?
Wanneer u Excel gebruikt, is het eenvoudig om slechts één werkblad uit een werkmap op te slaan als een nieuw Excel-bestand. Maar wat als u slechts één werkblad bewaart en de andere werkbladen in de werkmap verwijdert? In dit artikel wordt uitgelegd hoe u slechts één werkblad als een nieuw Excel-bestand kunt opslaan en vervolgens de inactieve werkbladen in de huidige werkmap kunt verwijderen.
Sla slechts één werkblad op als nieuw Excel-bestand met Verplaatsen of Kopiëren
Sla slechts één werkblad op in de huidige werkmap met VBA
Sla met één klik slechts één werkblad op in de huidige werkmap
Sla slechts één werkblad op als nieuw Excel-bestand met Verplaatsen of Kopiëren
De Verplaatsen of kopiëren hulpprogramma van Excel-functie helpt u om eenvoudig een bepaald werkblad op te slaan als een nieuw Excel-bestand. U kunt het volgende doen.
1. Klik met de rechtermuisknop op de werkbladtab (het werkblad dat u als nieuw bestand moet opslaan) in de werkbladtabbalk en klik vervolgens op Verplaatsen of kopiëren.
2. In de Verplaatsen of kopiëren dialoogvenster, selecteer (nieuw boek) van het Boeken vervolgkeuzelijst, controleer het Maak een kopie vak en klik vervolgens op het OK knop. Zie screenshot:
3. Vervolgens wordt het opgegeven werkblad verplaatst naar een nieuw gemaakte werkmap. Sla deze werkmap handmatig op.
Sla slechts één werkblad op in de huidige werkmap met VBA
Als u alle werkbladen wilt verwijderen en slechts één bepaald werkblad in de huidige werkmap wilt opslaan, kan de volgende VBA-code u helpen.
1. druk op anders + F11 gelijktijdig om het Microsoft Visual Basic voor toepassing venster.
2. In de Microsoft Visual Basic voor toepassing venster klikt Invoegen > Module. Kopieer en plak vervolgens onder VBA-code in het modulevenster.
VBA-code: verwijder alle bladen behalve bepaalde in de huidige werkmap
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "test" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubNote: in de code, "proef”Is de werkbladnaam die we alleen in de huidige werkmap hoeven te bewaren. Wijzig het in uw werkbladnaam.
3. Druk op de F5-toets om de code uit te voeren. Vervolgens kunt u zien dat alle werkbladen in de huidige werkmappen zijn verwijderd, maar de opgegeven. En sla vervolgens de werkmap op zoals u nodig heeft.
Sla met één klik slechts één werkblad op in de huidige werkmap
De Verwijder alle inactieve bladen nut van Kutools for Excel helpt u bij het snel verwijderen van alle werkbladen behalve het huidige met slechts één klik.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Ga naar het werkblad dat u alleen in de huidige werkmap hoeft te bewaren en klik op Koetools Plus > Werkblad > Verwijder alle inactieve bladen. Zie screenshot:
Vervolgens verschijnt er een promptvenster. Als u besluit om ze te verwijderen, klikt u op OK knop.
Vervolgens worden alle inactieve werkbladen onmiddellijk uit de huidige werkmap verwijderd.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Sla slechts één werkblad op
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor 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-tabblad 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!
