Kazalo
V programu Microsoft Excel lahko izbrišemo več listov z različnimi preprostimi pristopi. Uporabimo lahko možnosti iz kontekstnega menija ali trakov Excel, včasih pa lahko vstavimo tudi kode VBA, da izpolnimo svoje zahteve. V tem članku boste spoznali vse ustrezne metode za brisanje več listov v programu Excel z ustreznimi primeri in ilustracijami.
Praktični delovni zvezek
Prenesite naslednji delovni zvezek in vaje.
Brisanje več listov.xlsx4 preprosti načini za brisanje več listov v Excelu
1. Za brisanje več listov v Excelu uporabite možnost traku
Od Trakovi lahko izbrišemo več listov.
KORAKI:
- Izberite liste, ki jih želite izbrisati, tako da pritisnete in držite tipko Sprememba ključ.
- Zdaj pojdite v Domov in izberite zavihek Izbriši > Izbriši list .
- Odprlo se bo pogovorno okno.
- Kliknite . V REDU .
- Nato lahko vidimo, da so izbrani listi izbrisani.
2. Uporabite možnost Sheet za brisanje več listov v Excelu
2.1 Za sosednji delovni list
Če želimo izbrisati več delovnih listov, ki mejijo drug na drugega, moramo slediti spodnjim korakom.
KORAKI:
- S pritiskom in držanjem gumba Sprememba z miško izberite prvi in zadnji list, ki ju želite izbrisati.
- Z desno tipko miške kliknite miško na zavihku List in izberite Izbriši .
- Na koncu so listi izbrisani.
2.2 Za nesorodne delovne liste
Izbrišemo lahko tudi nesorodne delovne liste.
KORAKI:
- Izberite celice, ki jih želite izbrisati, tako da pritisnete Ctrl ključ.
- Zdaj v zavihku List, Z desno tipko miške kliknite na miški in izberite Izbriši .
- Odpre se pogovorno okno.
- Kliknite . V REDU in si oglejte rezultat.
3. Brisanje več delovnih listov s hibridno tipkovnico
Brisanje več delovnih listov v Excelu s pritiskom na tipkovnico je eden najlažjih in najhitrejših načinov. Izbrati moramo le liste, Z desno tipko miške kliknite na zavihku List in pritisnite D s tipkovnice. Listi se izbrišejo.
4. Vstavljanje kod VBA za brisanje več listov programa Excel
4.1 Brisanje vseh listov, ki ohranjajo aktivni list
VBA je ena najprimernejših metod za brisanje vseh listov razen aktivnega lista.
KORAKI:
- V zavihku list izberite aktivni list, Z desno tipko miške kliknite na miški in izberite Prikaži kodo .
- Zdaj kopirajte naslednje kode in jih prilepite v modul VBA.
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
- Pritisnite na Spustite in videli bomo, da so izbrisani vsi listi razen aktivnega.
Preberite več: Kako izbrisati Excelov list z uporabo VBA (10 makrov VBA)
4.2 Brisanje listov z določenim besedilnim nizom
Enostavno lahko izbrišemo vse liste z določenim besedilnim nizom.
KORAKI:
- V zavihku list izberite list.
- Zdaj Z desno tipko miške kliknite na miški in izberite Prikaži kodo .
- Nato kopirajte naslednje kode in jih prilepite v modul VBA. Nato kliknite na Spustite možnost.
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.End If Next spreadsheet Application.DisplayAlerts = True End Sub
- Pojavilo se bo pogovorno okno za potrditev in izberite V REDU .
- Na koncu lahko vidimo, da so izbrani listi z izbranimi besedilnimi nizi izbrisani.
Zaključek
Z uporabo teh metod lahko v Excelu preprosto izbrišemo več listov. Dodan je vadbeni delovni zvezek. Preizkusite ga. Lahko vprašate kar koli ali predlagate nove metode.