Как да изтрия лист, ако името съдържа конкретен текст от работна книга?
Да предположим, че имате работна книга, която съдържа множество работни листове, и сега искате да изтриете листовете по имена на раздели. Например, ако името на листа съдържа конкретен текст „KTE“, изтрийте го и след това вземете следната екранна снимка. Как можете да изтриете листовете, ако името съдържа конкретен текст веднага, без да ги изтривате един по един?
Изтрийте листове, ако името съдържа конкретен текст с VBA код
Изтрийте листове, ако името съдържа конкретен текст с VBA код
Тук ще създам VBA код, за да изтриете листовете по име, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!