Страницы: 1
RSS
Удаление листов из книги по заданому списку, Удаление листов из книги по заданому списку_макрос
 
Добрый день,

Нужен макрос для удаления листов книги по заданному списку

Название листа             Операция
1                                      удалить
2                                      удалить
3                                      оставить
4                                      оставить
Список для удаления    оставить

Пример файла во вложении
Спасибо
 
А что именно не получается?
"Все гениальное просто, а все простое гениально!!!"
 
Код
Sub delsheet()
    Application.DisplayAlerts = False
    For i = 2 To [a1000000].End(xlUp).Row
        If Cells(i, 2) = "удалить" Then Sheets(Cells(i, 1)).Delete
    Next
    Application.DisplayAlerts = True
    MsgBox "Done!"
End Sub
Изменено: buchlotnik - 08.07.2020 11:04:29
Соблюдение правил форума не освобождает от модераторского произвола
 
Миша, может есть смысл добавить проверку на наличие листа?  А то в списке может быть указан, а по факту... )
 
Цитата
Nordheim написал: А что именно не получается?
Не силен в макросах, в книге порядка 300 листов, часть нужно удалить

buchlotnik, спасибо, вы очень помогли
 
Цитата
Юрий М написал:
может есть смысл добавить проверку на наличие листа?
можно, конечно, но сегодня как-то лень  ;)  :
Код
 Sub delsheet()
    Application.DisplayAlerts = False
    On Error Resume Next
    For i = 2 To [a1000000].End(xlUp).Row
        s = CStr(Cells(i, 1))
        If Cells(i, 2) = "óäàëèòü" Then Sheets(s).Delete
    Next
    Application.DisplayAlerts = True
    MsgBox "Done!"
End Sub
Соблюдение правил форума не освобождает от модераторского произвола
Страницы: 1
Наверх