Как да премахнете празни листове от работни книги
Да предположим, че имате голяма работна книга с няколко листа, но в тази работна книга има няколко празни листа без никакво съдържание. За да направите работната книга по-професионална и формална, искате да премахнете тези празни листове от работната книга. Вместо да премахвам празните листове един по един, въвеждам методите за бързо премахване на всички празни листове.
Премахване на празни листове чрез VBA
Премахнете празните листове от Kutools за Excel
Премахване на празни листове чрез VBA
Тук представям VBA, за да ви помогна бързо да премахнете всички празни листове от отворена работна книга.
1. Натиснете Alt + F11 ключове за активиране Microsoft Visual за основни приложения прозорец.
2. И щракнете Поставете > Модули, поставете под кода на VBA в новото изскочило Модули прозорец.
VBA: Премахнете празните листове.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub
3. И натиснете F5 клавиш или бутон Run, за да изпълните VBA и изскача диалогов прозорец, за да ви напомни дали да премахнете празни листове, щракнете върху Да да продължа да премахвам, Не за да отмените този VBA.
4. След щракване Да, изскача диалогов прозорец, за да ви каже броя на премахнатите листове, щракнете OK да го затворите и всички празни листове са премахнати в този момент.
Премахнете празните листове от Kutools за Excel
За някои зелени ръце на Excel VBA е донякъде труден метод за изпълнение, но с Kutools за ExcelЕ Изтриване на празни работни листове функция, можете бързо да премахнете всички празни листове от работна книга с три щраквания на мишката!
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Активирайте работната книга, която искате да премахнете празните й листове, и щракнете Kutools плюс > Работен лист > Изтриване на празни работни листове. Вижте екранна снимка:
Относителни статии:
- Как да преброя и премахна дубликати от списък в Excel?
- Как да изтрия низ след n-тия знак в Excel?
- Как да премахнете текст в скоби/скоби в Excel?
- Как да премахнете фигурите на линиите в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!