Страницы: 1
RSS
Макрос для очистки определенного диапазона листов
 
Доброго времени суток!

Предварительно искала, но не нашла. Нужен макрос для очистки листов с 1 по 25. Так как число периодически меняется (может возрасти), нужно, чтоб была возможность в дальнейшем расширить диапазон. Файл прилагаю. В файле уже есть макрос очистки, но примитивный... Выбор листа - выделить все - очистить - выбор листа - выделить все - очистить. Хочется попроще и покороче.
 
Попроще - нажмите запись макроса во вкладке "Разработчик" проделайте свои действия, потом остановить запись, и теперь можно повторять эти действия по вызову макроса.
 
Попробуйте этот код. Очищает все листы, кроме указанных Вами.

Код
Application.DisplayAlerts = False        
  
x = Array("SVODANAYA", "NOMER ZAK")       
  For Each s In Sheets        
   Z = True        
    For i = LBound(x) To UBound(x)            
    If s.Name = x(i) Then Z = False        
  Next i        
If Z Then s.Cells.Clear    

Application.DisplayAlerts = True

Если нужно очистить сохраняя форматирование можете команду Clear поменять на ClearContents. Пример во вложении.
Изменено: Paul Zealand - 05.01.2019 10:22:08
 
Цитата
neira написал:
попроще и покороче.
Код
Sub qq()
    Sheets(Array("1", "2")).Select
    Cells.Select
    Selection.Clear
End Sub
 
Спасибо большое!
Изменено: neira - 05.01.2019 13:27:48
Страницы: 1
Наверх