Как да изтрия лист, ако името на листа не е в списък?
Да кажем, че имам работен лист, който съдържа списък с имена на листове в работната книга в колона A, както е показано на екранната снимка по-долу, и някои определени имена на листове в работната книга не са в списъка, сега искам да изтрия листовете, които не са в списъка на колона A. Как мога да реша тази задача в Excel бързо и лесно?
Изтрийте листове, които не са в конкретен списък с VBA код
Изтрийте листове, които не са в конкретен списък с VBA код
Обикновено можете да проверявате имената на листовете едно по едно и да изтривате онези, които не са в списъка с имена на листове. Но тук мога да говоря за VBA код, който да се справи с него. Моля, направете следното:
1. Отидете до работния лист, който съдържа списъка с имена на листове, и след това задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2, След това кликнете Поставете > Модулии поставете следния код в Модули Window.
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% и намалява стотици кликвания на мишката за вас всеки ден!