Как удалить конкретный лист, если он существует в книге?
Как вы могли удалить конкретный лист, если он существует в книге? Обычно вам нужно найти и проверить его, если он существует, а затем удалить его вручную. Здесь я расскажу о простом способе прямого удаления указанного листа, если он существует в файле Excel.
Удалить конкретный лист, если он существует в книге с кодом VBA
Удалить конкретный лист, если он существует в книге с кодом VBA
Следующий код VBA может помочь вам удалить указанный рабочий лист, если он существует в книге, сделайте следующее:
1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код 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.) Если лист не существует, появится всплывающее окно с напоминанием, как показано на следующем снимке экрана:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!