Подпрограмма VBA сильно замедляется после первого выполнения

В данный момент у меня нет с собой ноутбука, но вы можете попробовать несколько вещей:

1. используйте явный параметр, чтобы убедиться, что вы объявили все переменные перед их использованием;
2. насколько я помню, собственный тип vba для чисел не integer, а long, и целые числа преобразуются в long, чтобы сэкономить время вычислений, используя long вместо целых чисел;
3. ваши семейные переменные определены как строки, но вы храните в них целые ячейки, а не их значения, т.е. =cells() вместо =cells().value;
4. эмпирическое правило состоит в том, чтобы использовать cells(rows.count, 4).end(xlup).row вместо cells(3, 4).end(xldown).row.;
5. условное форматирование может сильно замедлить работу;
6. по возможности используйте цикл for each для диапазона вместо while или даже скопируйте диапазон в массив вариантов и повторите его (это самое быстрое решение);
7. использовать раннее связывание вместо позднего связывания, т. е. определять объекты в правильном типе как можно скорее;
8. не показывать область печати (разрывы страниц и т.п.);
9. попробуйте профилировать и найти узкие места - см. поиск узких мест в excel vba;
10. вставляйте только значения, если вам не нужны форматы;
11. очищать буфер обмена после каждого копирования/вставки;
12. установите для объектов значение Ничего после завершения их использования;
13. используйте Value2 вместо Value — это будет игнорировать форматирование и принимать только числовое значение вместо форматированного значения;

14. использовать объекты листа и ссылаться на них, например

    Dim sh_raw As Sheet, sh_rap As Sheet set sh_raw = Sheets("RawDataMV") set sh_rap = Sheets("Rapport")

а затем везде использовать sh_raw вместо Sheets("RawDataMV");

У меня была такая же проблема, но я, наконец, понял это. Это прозвучит нелепо, но все это связано с настройкой страницы для печати. По-видимому, Excel пересчитывает его каждый раз, когда вы обновляете ячейку, и это вызывает замедление.

Попробуйте использовать

Sheets("Rapport").DisplayPageBreaks = False

в начале вашей рутины, перед любыми расчетами и

Sheets("Rapport").DisplayPageBreaks = True

в конце этого.

У меня такая же проблема. Я далек от профессионального программиста. Приведенные выше ответы помогли моей программе, но не решили проблему. Я запускаю Excel 2013 на 5-летнем ноутбуке. Откройте программу, не запуская ее, перейдите в меню «Файл»> «Параметры дополнительно», прокрутите вниз до раздела «Данные» и снимите флажок «Отключить отмену для обновления большой сводной таблицы…» и «Отключить отмену для операции с моделью больших данных». Вы также можете попробовать оставить их отмеченными, но уменьшить их значение. Один или оба из них, похоже, создают постоянно увеличивающийся файл, который замедляет макрос и, в конечном итоге, останавливает его. Я предполагаю, что закрытие Excel очищает файлы, которые они создают, поэтому он работает быстро, когда Excel закрывается и снова открывается, по крайней мере, на некоторое время. Кто-то с большим знанием должен будет объяснить, что будут делать эти изменения и каковы последствия их отмены. Похоже, эти изменения будут применены ко всем новым создаваемым вами электронным таблицам. Возможно, в этих изменениях не было бы необходимости, если бы у меня был более новый, более мощный компьютер.