Добрый день, форумчане.
Хочу спросить Вашего мудрого совета.
Добавил в файл (в файле 1 лист) небольшой макрос, который при сохранении копии файла очищает содержимое диапазона D2:F90
Но вот незадача, делает он это долго - задержка при очистке составляет - секунд 10-15, что при массовости операции даст большие потери по времени.
Подскажите, есть ли способ ускорить процесс? Может добавить условие, чтобы он очищал только непустые ячейки, а не проходил по всем? Если да, то как?
Может еще способ есть?
Хочу спросить Вашего мудрого совета.
Добавил в файл (в файле 1 лист) небольшой макрос, который при сохранении копии файла очищает содержимое диапазона D2:F90
| Код |
|---|
Sub saveas()
ActiveWorkbook.SaveCopyAs "C:\\" & Range("O1") & ".xls"
Dim cell As Range
For Each cell In Range("D2:F90")
cell.ClearContents
Next
Range("O1").ClearContents
End Sub |
Подскажите, есть ли способ ускорить процесс? Может добавить условие, чтобы он очищал только непустые ячейки, а не проходил по всем? Если да, то как?
Может еще способ есть?
