Як видалити аркуш, якщо ім'я містить певний текст із книги?
Припустимо, у вас є книга, яка містить кілька аркушів, і тепер ви хочете видалити аркуші за іменами вкладок. Наприклад, якщо назва аркуша містить певний текст “KTE”, видаліть його та отримайте наступний знімок екрана. Як ви могли видалити аркуші, якщо ім'я містить певний текст одразу, не видаляючи їх по одному?
Видаліть аркуші, якщо ім'я містить певний текст із кодом VBA
Видаліть аркуші, якщо ім'я містить певний текст із кодом VBA
Тут я буду створювати код VBA для видалення аркушів за іменами, будь-ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!
