Удаление листа по значению ячейки.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление листа по значению ячейки. (Удаление листа, если значения ячейки нет в списке.)

Удаление листа по значению ячейки.

SkyPro

Дата: Воскресенье, 20.01.2013, 19:40 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Есть файл с множеством листов.
Названия листов и текст в ячейке G2 совпадают.
Необходимо удалить все листы, названия которых нет в списке.

Нашел макрос с условием удаления листов. если ячейка А2 пустая.
[vba]

Код

Sub DeleteSheets()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
  If IsEmpty(Sheets(i).Cells(2, 1)) Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

[/vba]

Методом "научного тыка" пробовал переделать под свою задачу, но моих "знаний" определенно не хватает.
Буду очень благодарен за помощь.

К сообщению приложен файл: Primer.xlsx (12.2 Kb)

skypro1111@gmail.com

Ответить

Michael_S

Дата: Воскресенье, 20.01.2013, 20:53 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

[vba]

Код

Sub DeleteSheets()
Dim i As Long, Str As String
  Application.DisplayAlerts = False
  Str = " " & ActiveSheet.Name & " "
  For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
     Str = Str & " " & Cells(i, 1) & " "
  Next

For i = Sheets.Count To 1 Step -1
     If Not Str Like "* " & Sheets(i).Name & " *" Then Sheets(i).Delete
Next
  Application.DisplayAlerts = True
End Sub

[/vba]