Вниз до конца таблицы

[Ogeris]

Добрый день!

Есть столбец значений (А) от 2 строки до 556. Как в макросе прописать, чтобы был выделен диапазон таблицы А, но в столбце В? Диапазон данных в столбце А постоянно меняется, и необходимо, чтобы в соответствии с ним каждый раз выделялся соответствующий диапазон в столбце В

[Hugo121]

[a2].CurrentRegion.Offset(, 1).Select

[Ogeris]

Спасибище!

[Hugo121]

Но после того, как Вы сделаете что-то с диапазоном в B - не удивляйтесь...
Переделывайте код под задачу - основное тут .Offset(, 1).

[Казанский]

> Но после того, как Вы сделаете что-то с диапазоном в B - не удивляйтесь...

[a2].CurrentRegion.columns(1).Offset(, 1).Select

[Hugo121]

Вариант . Но может получиться, что будет выделен весь столбец B

Вообще, если сами наладить код не сумеете, нужно всегда показывать файл со всеми его особенностями.

[SAS888]

Вариант с использованием CurrentRegion возможно применять только тогда, когда в столбце значений отсутствуют пустые ячейки. Иначе, результат будет ошибочным. Надежнее использовать, например

Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row).Select

И "налаживать" ничего не нужно.

[IgorGO]

нарвался недавно:
Cells(Rows.Count, 1).End(xlUp).Row возвращает последнюю видимую строку. Если в конце списка скрытые строки - результат будет ПОСЛЕДНЯЯ ВИДИМАЯ строка, а не ПОСЛЕДНЯЯ.

[vikttur]

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

Если в конце списка скрытые строки - результат будет ПОСЛЕДНЯЯ ВИДИМАЯ строка, а не ПОСЛЕДНЯЯ.

Я тоже нарвался. Но в радость - теперь использую при выгрузке в сводную ведомость строк из базы данных:
For i= отсюда To последняя-видимая