Hogyan lehet törölni az összes lapot a megadott / aktuális kivételével az Excelben?
Az Excel-munkafüzet összes lapjának törléséhez a megadott egy vagy aktuális aktív lap kivételével ezt az alább bemutatott módszerekkel kezelheti.
Töröljön minden lapot, kivéve a megadottat, VBA kóddal
Egy kattintással törölheti az összes lapot, kivéve az aktuális aktívat a Kutools for Excel segítségével
Töröljön minden lapot, kivéve a megadottat, VBA kóddal
Az alábbi VBA-kóddal törölheti a munkafüzet összes lapját, az Excel egy kivételével.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazás ablak.
2. kettyenés betétlap > Modulok, majd másolja és illessze be a VBA kód alatt a Modul ablakba.
VBA kód: Töröljön minden lapot, kivéve a megadottakat
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubMegjegyzések:
1. "Sheet1"És"Sheet2”Azok a lapok, amelyeket meg akar tartani az aktuális munkafüzetben. Az igényei alapján megváltoztathatja őket.
2. Ha az összeset törölni kívánja, de több lapot megtart, kérjük, adjon hozzá kódot És xWs.Name <> "lapneved" előtte Majd szó a kód hatodik sorában. Mint például:
Ha xWs.Name <> "Sheet1" és xWs.Name <> "Sheet2" És xWs.Name <> "a lap neve" Majd
3. Ha csak egy lapot szeretne megőrizni, és az összeset törölni szeretné a munkafüzetből, kérjük, távolítsa el az összeset És feltétel a kódban. Például ahhoz, hogy az 1. lapot az aktuális munkafüzetben tartsa, meg kell változtatnia a hatodik sor kódját: Ha xWs.Name <> "Sheet1" Akkor
Törölje az összes lapot, kivéve a jelenlegi aktívat a Kutools for Excel segítségével (csak egy kattintás)
YEgyetlen kattintással egyszerűen eltávolíthatja az összes lapot, az aktuális aktív lap kivételével Az összes inaktív lap törlése hasznossága Kutools az Excel számára.
Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.
1. kettyenés Kutools Plus > Munkalap > Az összes inaktív lap törlése.
3. Ezután megjelenik egy párbeszédpanel. Ha úgy dönt, hogy az aktívakat leszámítva törölje az összes lapot, kattintson a gombra OK gombra, ellenkező esetben kattintson a gombra Mégsem gombot.
Ezután minden munkalap törlésre kerül, kivéve a munkafüzet aktuális aktív lapját.
Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
Adjon hozzá szöveget a kijelölt cellák közepéhez a Kutools for Excel segítségével
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
