Свод нескольких файлов Excel в один 2

[AnnaVild]

Сообщение от nilem

Для других листов - в коде в этой строке:

[a1].Formula = "=ToArr2('" & ThisWorkbook.Path & "\[" & f & "]Р-2.1'!AS9:EK17)"

Р-2.1 - имя листа, AS9:EK17 - диапазон на листе. И то, и другое можно поменять, как необходимо.
Одну кнопку для всех листов - скорее всего можно.

Попробовала исправить макрос для листа "стр.9". Ячейки с данными посчитались, а вот на остальных появились #Н/Д (
Не посмотрите еще лист "стр.6"? На нем сразу 2 формы. Для каждой надо будет исправлять макрос или возможно сразу прописать параметры рассчетов для обеих форм?

[nilem]

Ну, вот так примерно. Да, можно все повесить на одну кнопку - код будет меньше, но толще (или жирнее, если хотите ). Надо будет перебирать в массивах адреса диапазонов - работа на внимательность, неинтересно.
Попробуйте сделать, теперь подход должен быть понятен.

[Alex (2112)]

Помогите!
Второй день не могу разобраться!

При своде одних файлов код прекрасно работает!

При своде прикрепленных выскакивает 13 ошибка, на не соответствие типов при любом обращении к массиву arr.

Проблема решена! Необходимо было разместить код в модуле а не на листе.