Як видалити аркуш, якщо назви аркуша немає у списку?
Скажімо, у мене є аркуш, який містить список назв аркушів у книзі у стовпці А, як показано нижче, на скріншоті, а деяких певних імен аркушів у книзі немає в списку, тепер я хочу видалити аркуші, які не є у списку стовпця А. Як я міг швидко та легко вирішити це завдання в Excel?
Видаліть аркуші, яких немає у певному списку, за допомогою коду VBA
Видаліть аркуші, яких немає у певному списку, за допомогою коду VBA
Зазвичай ви можете перевіряти назви аркушів по черзі та видаляти їх, яких немає в списку імен аркушів. Але тут я можу поговорити про код VBA, щоб з ним боротися. Будь ласка, виконайте наступне:
1. Перейдіть на аркуш, що містить список назв аркушів, а потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Потім натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Видаліть аркуші, яких немає у списку
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
примітки: У наведеному вище коді, A2: A6 - це посилання на клітинку, яке містить назви аркушів, ви можете змінити його відповідно до своїх потреб.
3. А потім натисніть F5 для запуску цього коду, аркуші, яких немає в списку, були видалені відразу, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!