Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 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 - 8 июл 2020 11:04:29
Каждому For свой Next
 
Миша, может есть смысл добавить проверку на наличие листа?  А то в списке может быть указан, а по факту... )
 
Цитата
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
Каждому For свой Next
Страницы: 1
Читают тему (гостей: 1)
Наверх