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

[АННА-ЕАО]

Всем здравствуйте! В своей работе используем определенную программу из неё мы выгружаем документы в ексель. При выгрузке одного документа в книге ексель создается 8 листов из которых в дальнейшем мы работаем только с двумя из них, а другие удаляем. Но выгружаем мы не по одному документу, а по многу сразу (например 10), таким образом ексель создает книгу с 80 листами. Вручную удалять долго и нудно.

Мне очень помог бы в работе макрос благодаря которому можно было бы удалить листы из книги, в названиях которых содержится определенный текст. Либо удалить все листы, кроме тех которые нужно оставить (так как их меньше).

Сама я пользуюсь макросом по сортировки листов в книги, после чего удалять гораздо быстрее, но все же самой вручную.

Если не совсем все понятно написала, спрашивайте.

Файл для примера содержит 16 листов т.е. выгружен из 2-х документов. Листы, которые нужно удалить, выделены желтым цветом. Сам текст документов на листах я удалила, чтоб файл весил мало.

[EducatedFool]

А как определить, какие листы нужно оставить?
Оставляем те, в названиях которых есть числа 6907 и 630 (в скобках)?

[doober]

Sub Me_Killer()
Dim S_Del As String
S_Del = "СВОД_Изменения ассигнований,МДОУ ЦРР N22,МДОУ ЦРР N2,МДОУ Ц," ' и так далее список на ликвидацию.Либо надо найти что то общее у них
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Worksheets
If InStr(1, S_Del, sh.Name & ",", vbTextCompare) > 0 Then
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Или определить,что общее в нужных листах,их в условии прописать на ОСТАВИТЬ

[R Dmitry]

sub ggg()
Application.displayalerts = False
for i =1 to worksheets.count
if sheets(i).name like "*hhhhh" then sheets(i).delete
next
Application.displayalerts = true
end sub

[gluk_fm]

В вложении, просто в цикл (if ....... & end if)так же допишите только те листы которые не нужно удалять.

[АННА-ЕАО]

Нужно оставить листы в названиях которых содержится текст:

бух.уч.(лимиты)-МДОУ
СВОД_Изменения лимитов

Либо удалить листы в названиях которых содержится текст:

бух.уч.(лимиты) (
Изменения ассигнований
Изменения лимитов
Изменения общий
СВОД_Изменения ассигнова
СВОД_Изменения общий

[АННА-ЕАО]

R Dmitry Воспользовалась Вашим макросом - примером. Вот что у меня получилось:

Sub ggg()
Application.DisplayAlerts = False
For i = 1 To Worksheets.Count
If Sheets(i).Name Like "*Изменения ассигнов*" Then Sheets(i).Delete
If Sheets(i).Name Like "Изменения лимитов*" Then Sheets(i).Delete
If Sheets(i).Name Like "*Изменения общий*" Then Sheets(i).Delete
If Sheets(i).Name Like "*СВОД_Изменения ассигнов*" Then Sheets(i).Delete
If Sheets(i).Name Like "*СВОД_Изменения общий*" Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

Это почти работает. Спасибо.

[Hugo121]

If Sheets(i).Name Like "*СВОД_Изменения ассигнов*" Then Sheets(i).Delete
уже лишнее...

Хотя по коду есть подозрение, что неправильно - после удаления листа например 3 по первому совпадению - какой лист будет проверяться на "*Изменения общий*" ?

Если делать тупо так - то вводите переменную-флаг as boolean, которую взводите проверками, потом после всех проверок проверяете статус, по результату этой проверки удаляете, переменную сбрасываете.
И листы удалять нужно с конца
For i = Worksheets.Count To 1 step-1

[R Dmitry]

Сообщение от Hugo121

If Sheets(i).Name Like "*СВОД_Изменения ассигнов*" Then Sheets(i).Delete
уже лишнее...

Хотя по коду есть подозрение, что неправильно - после удаления листа например 3 по первому совпадению - какой лист будет проверяться на "*Изменения общий*" ?

Если делать тупо так - то вводите переменную-флаг as boolean, которую взводите проверками, потом после всех проверок проверяете статус, по результату этой проверки удаляете, переменную сбрасываете.
И листы удалять нужно с конца
For i = Worksheets.Count To 1 step-1

да точно , обратный цикл нужен при индексах.
написал не проверив
Спасибо Игорь.

[АННА-ЕАО]

Hugo121 , R Dmitry простите, что встреваю в ваш разговор , но как правельно то все это записать в коде? For i = Worksheets.Count To 1 step-1