Как да изтрия всички празни работни листове в Excel?
Ако имате работна книга, която има много работни листове, междувременно има някои празни работни листове в нея. И сега искате да изтриете празните работни листове, за да запазите или архивирате файла. Как бихте могли да търсите празните листове от множество работни листове и да ги изтриете автоматично?
Изтрийте всички празни работни листове с VBA код
Изтрийте всички празни работни листове с Kutools за Excel
Изтрийте всички празни работни листове с VBA код
За вас е неприятно да проверявате за празни работни листове и да ги премахвате един по един, но със следния VBA код можете лесно да изтриете всички празни работни листове наведнъж.
1. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
VBA: изтрийте всички празни работни листове
Sub DeleteBlankWorksheets() 'Update 20130830 Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False For Every Ws In Application.Worksheets If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then Ws.Delete End Ако Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
3. След това натиснете F5 и всички празни работни листове се изтриват наведнъж.
Изтрийте всички празни работни листове с Kutools за Excel
Ако не сте запознати с кода на VBA, мога да ви представя лесен инструмент - Kutools за Excel, Със своята Изтриване на празни работни листове можете да премахнете всички празни работни листове с едно щракване.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.
Когато сте инсталирали Kutools за Excel, моля, направете следните стъпки:
1. Щракнете Enterprise > Инструменти за работни листове > Изтриване на празни работни листове, вижте екранна снимка:
2. И ще се появи поле за подкана, за да ви напомни дали искате да изтриете всички празни работни листове или не, вижте екранна снимка:
3, След това кликнете Да, а празните работни листове са изтрити успешно. Вижте екранни снимки:
Ако искате да научите повече за тази функция, моля щракнете Изтриване на празни работни листове.
Свързана статия:
Как да изтриете скрити работни листове в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!