Hogyan menthet csak egy munkalapot az Excel munkafüzetébe?

Excel használatakor egyszerűen csak egy munkalapot menthet el egy munkafüzetből új Excel-fájlként. De mi van akkor, ha csak egy munkalapot tart meg, és törli a többi munkalapot a munkafüzetben? Ez a cikk bemutatja, hogyan menthet csak egy munkalapot új Excel-fájlként, majd törölheti az inaktív munkalapokat az aktuális munkafüzetből.

Csak egy munkalapot menthet el új Excel fájlként az Áthelyezés vagy Másolás paranccsal
Mentse el csak egy munkalapot a jelenlegi munkafüzetbe a VBA segítségével
Mentse el egyetlen munkalapot a jelenlegi munkafüzetbe egyetlen kattintással

---

Csak egy munkalapot menthet el új Excel fájlként az Áthelyezés vagy Másolás paranccsal

A Áthelyezés vagy Másolás Az Excel szolgáltatás segédprogramja segítségével könnyedén menthet egy adott munkalapot új Excel fájlként. A következőket teheti.

1. Kattintson a jobb gombbal a lap fülre (a munkalapra, amelyet új fájlként kell mentenie) a lap fülén, majd kattintson a gombra Áthelyezés vagy Másolás.

2. Ban,-ben Áthelyezés vagy Másolás párbeszédpanelen válassza a (új könyv) tól Foglalni legördülő listában ellenőrizze a Hozzon létre egy példányt jelölőnégyzetet, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

3. Ezután a megadott munkalap áthelyezésre kerül egy új létrehozott munkafüzetbe, kérjük, manuálisan mentse el ezt a munkafüzetet.

---

Mentse el csak egy munkalapot a jelenlegi munkafüzetbe a VBA segítségével

Ha törölni szeretné az összes munkalapot, és csak egy bizonyos munkalapot szeretne menteni az aktuális munkafüzetbe, a következő VBA-kód segíthet.

1. nyomja meg más + F11 egyszerre nyissa meg a Microsoft Visual Basic alkalmazásokhoz ablak.

2. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kód alatt a Modul ablakba.

VBA-kód: az összes munkalap kivételével törölje az összes lapot

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 Sub

Megjegyzések: a kódban:teszt”A munkalap neve, amelyet csak az aktuális munkafüzetben kell megőriznünk. Kérjük, módosítsa a munkalap nevére.

3. Nyomja meg az F5 billentyűt a kód futtatásához. Ekkor láthatja, hogy az aktuális munkafüzetek összes munkalapja törlődik, de a megadott. Ezután mentse el a munkafüzetet, amire szüksége van.

---

Mentse el egyetlen munkalapot a jelenlegi munkafüzetbe egyetlen kattintással

A Az összes inaktív lap törlése hasznossága Kutools az Excel számára segít az összes munkalap gyors törlésében, egyetlen kattintással.

1. Váltás a munkalapra, amelyet csak az aktuális munkafüzetben kell megőriznie, majd kattintson a gombra Kutools Plus > Munkalap > Az összes inaktív lap törlése. Lásd a képernyőképet:

Ezután megjelenik egy gyors párbeszédpanel, ha úgy dönt, hogy törli őket, kattintson a gombra OK gombot.

Ezután az összes inaktív munkalapot azonnal törli az aktuális munkafüzetből.

---

Csak egy munkalapot mentse el