Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Определение последнего столбца в списке

Автор Dr_Lex, 21.07.2015, 13:48

« назад - далее »

Dr_Lex

Здравствуйте, столкнулся с очередной проблемой. Есть список, который с помощью макроса постоянно заполняется новыми строками, но помимо поступающих туда данных, есть столбцы с расчётными формулами и их тоже нужно протягивать вслед за новыми строками. Проблема в том, что количество столбцов расчётных формул может меняться в сторону увеличения. А значит, перед тем как выделить диапазон, который будет протягиваться, нужно определить его правую границу, то есть последний столбец. С номером последней строки в списке у меня проблем не возникло, но попытка сделать аналогичную формулу для последнего столбца, приводите к ошибке. Можно посмотреть в примере, но по сути формулы у меня такие:
Для последней строки
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row

Для последнего столбца, по аналогии
    FinalColumn = Cells(4, Columns.Count).End(xlLeft).Column

Когда макрос доходит до этой строки, он выдаёт ошибку и останавливается.

_Boroda_

Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Dr_Lex

Спасибо, помогло. Всё моё не знание английского. Ну, и VBA.