Как удалить лист, если имя содержит определенный текст из книги?
Предположим, у вас есть книга, содержащая несколько листов, и теперь вы хотите удалить листы по именам вкладок. Например, если имя листа содержит определенный текст «KTE», удалите его, а затем получите следующий снимок экрана. Как вы могли удалить листы, если имя содержит определенный текст сразу, не удаляя их по одному?
Удалять листы, если имя содержит определенный текст с кодом VBA
Удалять листы, если имя содержит определенный текст с кодом VBA
Здесь я создам код VBA, чтобы вы могли удалять листы по имени, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: удалить листы, если имя содержит определенный текст
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно подсказки, чтобы напомнить вам ввести конкретный текст, на основе которого вы хотите удалить вкладку листа, см. снимок экрана:
4, Затем нажмите OK, все листы, в названии которых есть указанный текст «KTE», были удалены сразу. Смотрите скриншот:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!