Выделение диапазона ячеек с нефиксироваными границами

[Je11]

Прошу сильно не пинать новичка. Только начал осваивать VBA.

Вопрос. Как выделить диапазон ячеек, если правая граница, к примеру столбец D, а вниз - по последней заполненной строке?


Спасибо.

[EducatedFool]

Если определять последнюю строку по столбцу D:

Dim ra As Range: Set ra = Range([A1], Range("D" & Rows.Count).End(xlUp))
ra.select

Если определять последнюю строку по столбцу A:

Dim ra As Range: Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp)).resize(,4)
ra.select

[Je11]

Спасибо, но почему-то выдляется большая область, чем до столбца D

[IgorGO]

замечено, что обычно выделяется тот диапазон, который описан в коде, а не тот, о котором Вы думаете...

файл-пример, прикрепленный к сообщению позволит Вам получить более конкретный ответ

[Казанский]

кросс http://www.cyberforum.ru/vba/thread802134.html