Як видалити аркуш на основі значення комірки в Excel?
Припустимо, у мене є кілька робочих аркушів у книзі, тепер я хочу видалити аркуші на основі значення комірки. Наприклад, якщо конкретна комірка А1 містить текст “KTE”, усі аркуші, в котрі А1 має цей текст, потрібно видалити відразу. Ця стаття може допомогти вам вирішити це завдання в Excel.
Видаліть аркуш на основі значення комірки за допомогою коду VBA
Видаліть аркуш на основі значення комірки за допомогою коду VBA
Тут я ввів код для видалення всіх аркушів, для яких конкретна комірка має певне значення, будь ласка, виконайте наступне:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Видалити аркуш на основі значення комірки:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
примітки: У наведеному вище коді, A1 це конкретна комірка, яка містить певний текст, на основі якого ви хочете видалити аркуші.
3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно запиту, щоб нагадати вам про введення конкретного значення, на основі якого ви хочете видалити аркуші, див. знімок екрана:
4. А потім клацніть OK кнопку, усі аркуші, в комірці А1 яких є текст KTE, були видалені відразу. Дивіться знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!