Нужен макрос, помогите плз.

[Demetros]

Добрый день всем!
Помогите, пожалуйста, справиться с проблемой.
Есть некая табличка (выгрузка из 1С) в ней число строк и столбцов периодически меняется (иногда в таблице встречаются и пустые ячейки). Нужен макрос который бы находил первую пустую строку после таблички и вставлял формулу в последний столбец таблицы этой (пустой) строки (ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109;ссылка на диапазон последнего столбца) т.е подставленная формула должна считать промежуточные итоги в последнем столбце вне зависимости от количества строк и столбцов.

[IgorGO]

е если формулу написать над шапкой таблицы и закрепить область
а) итоги будут видны всегда
б) следующая выгрузка не затрет Вашу строку с формулой и по барабану какого она размера и где там последняя строка

[Demetros]

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

е если формулу написать над шапкой таблицы и закрепить область
а) итоги будут видны всегда
б) следующая выгрузка не затрет Вашу строку с формулой и по барабану какого она размера и где там последняя строка

Как вариант, но хотелось бы что бы итоги все-таки были снизу таблички. Если будет макрос попробую в нем разобраться и вставлять им еще и другие формулы.

[IgorGO]

итог сверху - непривычно,
зато очень удобно и практично.

закрепляете вместе с шапкой (1-2 доп.строки), настроили фильтр - сразу видите результат, а не надо ничего каждый раз листать до конца таблицы и там высматривать.
фильтр еще и итог спрячет
итог снизу - принято на бумажном носителе, для таблицы ексель это тормоз в ее увеличении, усложнение формул и неудобства просмотра.

итоги сверху требуют только сломать психологический барьер - все остальное чистые простота и комфорт в эксплуатации.

[Demetros]

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

итог сверху - непривычно,
зато очень удобно и практично.

закрепляете вместе с шапкой (1-2 доп.строки), настроили фильтр - сразу видите результат, а не надо ничего каждый раз листать до конца таблицы и там высматривать.
фильтр еще и итог спрячет
итог снизу - принято на бумажном носителе, для таблицы ексель это тормоз в ее увеличении, усложнение формул и неудобства просмотра.

итоги сверху требуют только сломать психологический барьер - все остальное чистые простота и комфорт в эксплуатации.

А как же сводные таблицы?

[Demetros]

Помогите плз. очень нужно.

[Demetros]

Sub поиск_последней_ячейки_в_таблице()
RealLastRow = Cells.Find("*", [A1], xlValues, , xlByRows, xlPrevious).Row
RealLastColumn = Cells.Find("*", [A1], xlValues, , xlByColumns, xlPrevious).Column
Cells(RealLastRow + 1, RealLastColumn).Activate
End Sub

[Demetros]

Спасибо что не помогли