Как удалить лист, если имени листа нет в списке?
Скажем, у меня есть рабочий лист, который содержит список имен листов в книге в столбце A, как показано на скриншоте ниже, и некоторые определенные имена листов в книге отсутствуют в списке, теперь я хочу удалить листы, которые не в списке столбца A. Как быстро и легко решить эту задачу в Excel?
Удалите листы, которых нет в определенном списке, с кодом VBA
Удалите листы, которых нет в определенном списке, с кодом VBA
Обычно вы можете проверять имена листов по одному и удалять те, которых нет в списке имен листов. Но здесь я могу поговорить о коде VBA, чтобы справиться с этим. Пожалуйста, сделайте следующее:
1. Перейдите на рабочий лист, содержащий список имен листов, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Затем нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
