В Microsoft Excel можем да изтрием няколко листа с различни лесни подходи. Можем да приложим опции от контекстното меню или лентите на Excel, а понякога можем да вмъкнем и VBA кодове, за да отговорим на изискванията си. В тази статия ще научите всички подходящи методи за изтриване на няколко листа в Excel с подходящи примери и илюстрации.

Практическа работна тетрадка

Изтеглете следната работна тетрадка и упражнение.

4 лесни начина за изтриване на няколко листа в Excel

1. Използвайте опцията на лентата за изтриване на няколко листа в Excel

От Лента можем да изтрием няколко листа.

СТЪПКИ:

• Изберете листата, които искате да изтриете, като натиснете и задържите Смяна ключ.

• Сега отидете в Начало и изберете Изтриване на > Изтриване на лист .

• Ще се отвори диалогов прозорец.
• Кликнете върху ОК .

• След това можем да видим, че избраните листове са изтрити.

2. Използвайте опцията Sheet за изтриване на няколко листа в Excel

2.1 За съседни работни листове

Трябва да следваме стъпките по-долу, за да изтрием няколко работни листа, които са съседни.

СТЪПКИ:

• С натискане и задържане на Смяна изберете първия и последния лист с мишката, които искате да изтриете.

• Кликнете с десния бутон на мишката върху бутона на мишката върху раздела Sheet и изберете Изтриване на .

• Накрая листовете се изтриват.

2.2 За работни листове, които не са в съседство

Можем също така да изтрием несъседните работни листове.

СТЪПКИ:

• Изберете клетките, които искате да изтриете, като натиснете бутона Ctrl ключ.

• Сега в раздела Лист, Кликнете с десния бутон на мишката върху на мишката и изберете Изтриване на .

• Появява се диалогов прозорец.
• Кликнете върху ОК и вижте резултата.

3. Изтриване на няколко работни листа чрез хибридна клавиатура

Изтриването на няколко работни листа в Excel чрез натискане на клавиатурата е един от най-лесните и бързи начини. Трябва само да изберем листовете, Кликнете с десния бутон на мишката върху в раздела Лист и натиснете D от клавиатурата. Листовете ще бъдат изтрити.

4. Вмъкване на кодове VBA за изтриване на няколко листа на Excel

4.1 Изтриване на всички листове, запазващи активния лист

VBA е един от най-подходящите методи за изтриване на всички листове с изключение на активния лист.

СТЪПКИ:

• В раздела Лист изберете активния лист, Кликнете с десния бутон на мишката върху на мишката и изберете Вижте кода .

• Сега копирайте следните кодове и ги поставете във вашия модул 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 

• Натиснете Изпълнявайте и ще видим, че всички листове са изтрити с изключение на активния.

Прочетете още: Как да изтриете лист от Excel с помощта на VBA (10 макроса на VBA)

4.2 Изтриване на листове с определен текстов низ

Можем лесно да изтрием всички листове с определен текстов низ.

СТЪПКИ:

• Изберете листа от раздела с листове.
• Сега Кликнете с десния бутон на мишката върху на мишката и изберете Вижте кода .

• След това копирайте следните кодове и ги поставете във вашия модул VBA. И щракнете върху Изпълнявайте опция.

 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 

• Ще се появи диалогов прозорец за потвърждение и изберете OK .

• Накрая виждаме, че избраните листове с избраните текстови низове са изтрити.

Заключение

Като следваме тези методи, можем лесно да изтрием няколко листа в Excel. Добавена е работна книга за упражнения. Опитайте я. Не се колебайте да попитате нещо или да предложите нови методи.