Як видалити порожні аркуші з робочих книжок

Припустимо, у вас є велика книга з декількома аркушами, але в цій книзі є кілька порожніх аркушів без вмісту. Щоб зробити книгу більш професійною та офіційною, ви хочете видалити ці порожні аркуші із книги. Замість того, щоб видаляти порожні аркуші по одному, я представляю методи швидкого видалення всіх порожніх аркушів.

Видаліть чисті аркуші за допомогою VBA

Видаліть чисті аркуші Kutools для Excel

---

Видаліть чисті аркуші за допомогою VBA

Тут я представляю VBA, який допоможе вам швидко видалити всі порожні аркуші з відкритої книги.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual для основних програм вікна.

2. І клацніть Insert > Модулі, вставте нижче коду 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 клавіша або кнопка "Виконати" для запуску VBA, і з'явиться діалогове вікно, що нагадує вам, чи потрібно видаляти порожні аркуші, натисніть Так продовжувати видаляти, Немає скасувати цей VBA.

4 Після натискання Так, спливає діалогове вікно, щоб повідомити вам кількість видалених аркушів, натисніть OK щоб закрити його, і на цей момент усі порожні аркуші видалено.

---

Видаліть чисті аркуші Kutools для Excel

Для деяких зелених рук Excel VBA є дещо складним методом для виконання, але з Kutools для ExcelАвтора Видалити пусті робочі аркуші функція, ви можете швидко видалити всі порожні аркуші з книги трьома клацаннями миші!

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. Увімкніть книгу, для якої потрібно видалити порожні аркуші, і натисніть Kutools Plus > Робочий аркуш > Видалити пусті робочі аркуші. Дивіться знімок екрана:

 

---

Відносні статті:

• Як підрахувати та видалити дублікати зі списку в Excel?
• Як видалити рядок після n-го символу в Excel?
• Як видалити текст у дужках / дужках у Excel?
• Як видалити фігури лінії в Excel?

---