Всем привет,
Значит такая ситуация есть некая Книга в которой копятся данные, и после выполнения Макроса/Отчета формирует отчёт бывает на 1000 строк а бывает и 8000 строк,
специально для демонстрации собрал новый файл примера
так вот... коде выполнения очитки отчета стоит следующие строки:
из кода видно что очистка листа установлена строго в лоб, а хотелось, чтобы очистка производилась только в рамках последней не пустой строки по непустого столбца!
(при этом размер файла увеличивается в 15раз, это видно в примере файл до = 44КБ после очистки 642КБ, полосы прокрутки увеличивают рабочую зону до этого диапазона)
и второе:
как поправить код уже у готовой Книги, чтобы рабочий диапазон был = последней заполненной строки(+ - пара строк), а не A1:N10000
Значит такая ситуация есть некая Книга в которой копятся данные, и после выполнения Макроса/Отчета формирует отчёт бывает на 1000 строк а бывает и 8000 строк,
специально для демонстрации собрал новый файл примера
так вот... коде выполнения очитки отчета стоит следующие строки:
Код |
---|
Sub Clear_Report() 'очищаем отчет ActiveSheet.Range("A1:N10000").ClearContents 'отменяем форматировение и границы ячеек ActiveSheet.Range("A1:N10000").Borders.LineStyle = xlNone End Sub |
из кода видно что очистка листа установлена строго в лоб, а хотелось, чтобы очистка производилась только в рамках последней не пустой строки по непустого столбца!
(при этом размер файла увеличивается в 15раз, это видно в примере файл до = 44КБ после очистки 642КБ, полосы прокрутки увеличивают рабочую зону до этого диапазона)
и второе:
как поправить код уже у готовой Книги, чтобы рабочий диапазон был = последней заполненной строки(+ - пара строк), а не A1:N10000