Доброго времени суток!
Подскажите пожалуйста, есть ли способ ускорить макрос, который вставляет строки с формулами. Компьютеры старые, листов много, формулы везде разные.
Макрос берет строку и копирует (протягивает) вниз на 10 000 строк. Формулы смотрят на другой лист.
Вот код:
Пробовал диапазон ячеек загнать в массив, но тогда формула остается как была. То есть она не протягивается вниз, а как-будто её скопировали текстом.
Ниже прикрепил файл с примером
Подскажите пожалуйста, есть ли способ ускорить макрос, который вставляет строки с формулами. Компьютеры старые, листов много, формулы везде разные.
Макрос берет строку и копирует (протягивает) вниз на 10 000 строк. Формулы смотрят на другой лист.
Вот код:
| Код |
|---|
Sub Zapolnit()
Application.ScreenUpdating = False ' отключает обновление экрана
' счетает 6 минут
Sheets("Лист1").Select
' цикл заполнения
For a = 1 To 10000
Rows(1).Copy
lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Rows(lLastRow).Insert
Next a
Application.ScreenUpdating = True ' включает обновление экрана
End Sub |
Пробовал диапазон ячеек загнать в массив, но тогда формула остается как была. То есть она не протягивается вниз, а как-будто её скопировали текстом.
Ниже прикрепил файл с примером
Изменено: - 03.04.2017 13:10:28
