Як видалити певний аркуш, якщо він є у книзі?

Як можна видалити певний аркуш, якщо він існує в книзі? Зазвичай його потрібно знайти та перевірити, якщо він існує, а потім видалити вручну. Тут я розповім про простий спосіб безпосереднього видалення зазначеного аркуша, якщо він існує у файлі Excel.

Видаліть певний аркуш, якщо він існує у книзі з кодом VBA

---

Видаліть певний аркуш, якщо він існує у книзі з кодом VBA

Наступний код VBA може допомогти вам видалити вказаний аркуш, якщо він існує у книзі, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Видаліть певний аркуш, якщо він є у книзі

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

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

4. А потім клацніть OK Кнопка:

(1.) Якщо аркуш існує, його буде видалено відразу, див. Знімок екрана:

(2.) Якщо аркуша не існує, з’явиться підказка, щоб нагадати вам, як показано на наступному знімку екрана: