Turinys
"Microsoft Excel" programoje galime ištrinti kelis lapus įvairiais paprastais būdais. Galime taikyti parinktis iš kontekstinio meniu arba "Excel" juostų, o kartais taip pat galime įterpti VBA kodus, atitinkančius mūsų reikalavimus. Šiame straipsnyje sužinosite visus tinkamus kelių lapų ištrynimo "Excel" programoje metodus, pateikdami tinkamus pavyzdžius ir iliustracijas.
Praktikos sąsiuvinis
Atsisiųskite šį sąsiuvinį ir pratybas.
Ištrinti kelis lapus.xlsx4 paprasti būdai ištrinti kelis "Excel" lapus
1. Naudokite juostos parinktį keliems "Excel" lapams ištrinti
Iš Lentelė parinktį, galime ištrinti kelis lapus.
ŽINGSNIAI:
- Pasirinkite lapus, kuriuos norime ištrinti, paspausdami ir laikydami Pamaina raktas.
- Dabar eikite į Pagrindinis skirtuką ir pasirinkite Ištrinti > Ištrinti lapą .
- Atsidarys dialogo langas.
- Spustelėkite GERAI .
- Tada matome, kad pasirinkti lapai yra ištrinti.
2. Naudokite lapo parinktį keliems "Excel" lapams ištrinti
2.1 Dėl gretimų darbalapių
Norėdami ištrinti kelis gretimus darbalapius, turime atlikti toliau nurodytus veiksmus.
ŽINGSNIAI:
- Paspausdami ir laikydami Pamaina pelės klavišu pasirinkite pirmąjį ir paskutinį lapą, kurį norite ištrinti.
- Dešiniuoju pelės klavišu spustelėkite pelės mygtuką ant skirtuko Lapas ir pasirinkite Ištrinti .
- Galiausiai lapai ištrinami.
2.2 Ne gretimam darbalapiui
Taip pat galime ištrinti nesusijusius darbalapius.
ŽINGSNIAI:
- Pasirinkite ląsteles, kurias norime ištrinti, paspausdami Ctrl raktas.
- Dabar skirtuke Lapas, Dešiniuoju pelės klavišu spustelėkite ant pelės ir pasirinkite Ištrinti .
- Pasirodo dialogo langas.
- Spustelėkite GERAI ir pamatysite rezultatą.
3. Kelių darbalapių ištrynimas naudojant hibridinę klaviatūrą
Kelių darbalapių pašalinimas "Excel" programoje spaudžiant klaviatūrą yra vienas paprasčiausių ir greičiausių būdų. Mums tereikia pasirinkti lapus, Dešiniuoju pelės klavišu spustelėkite kortelėje Lapas ir paspauskite D iš klaviatūros. Lapai bus ištrinti.
4. Įterpti VBA kodus keliems "Excel" lapams ištrinti
4.1 Ištrinti visus lapus, išlaikant aktyvųjį lapą
VBA yra vienas iš tinkamiausių būdų ištrinti visus lapus, išskyrus aktyvųjį lapą.
ŽINGSNIAI:
- Kortelėje lapas pasirinkite aktyvųjį lapą, Dešiniuoju pelės klavišu spustelėkite ant pelės ir pasirinkite Peržiūrėti kodą .
- Dabar nukopijuokite toliau nurodytus kodus ir įklijuokite juos į VBA modulį.
Option Explicit Sub deletemultiplesheets() Dim spreadsheet As Worksheet Application.DisplayAlerts = False For Each spreadsheet In Sheets If spreadsheet.Name ActiveSheet.Name Then spreadsheet.Delete End If Next spreadsheet Application.DisplayAlerts = True End Sub 
- Paspauskite Paleisti parinktį ir pamatysime, kad visi lapai ištrinti, išskyrus aktyvųjį.
Skaityti daugiau: Kaip ištrinti "Excel" lapą naudojant VBA (10 VBA makrokomandų)
4.2 Lapų su konkrečia teksto eilute šalinimas
Galime lengvai ištrinti visus lapus su tam tikra teksto eilute.
ŽINGSNIAI:
- Pasirinkite lapą iš lapo skirtuko lapas.
- Dabar Dešiniuoju pelės klavišu spustelėkite ant pelės ir pasirinkite Peržiūrėti kodą .
- Tada nukopijuokite toliau nurodytus kodus ir įklijuokite juos į savo VBA modulį. Ir spustelėkite Paleisti galimybė.
Option Explicit Sub DeleteSheetWithSameName() Dim spreadsheet As Worksheet Application.DisplayAlerts = False For Each spreadsheet In sheets If spreadsheet.Name Like "*" & "Sales1" & "*" Then MsgBox spreadsheet.Name spreadsheet.Delete End If Next spreadsheet Application.DisplayAlerts = True End Sub 
- Bus rodomas dialogo langas, kuriame reikės patvirtinti ir pasirinkti GERAI .
- Galiausiai matome, kad pasirinkti lapai su pasirinktomis teksto eilutėmis yra ištrinti.
Išvada
Vadovaudamiesi šiais metodais galime lengvai ištrinti kelis "Excel" lapus. Pridėtas pratybų sąsiuvinis. Eikite į priekį ir pabandykite. Galite ko nors paklausti arba pasiūlyti naujų metodų.
