Этот пример иллюстрирует свойство End объекта Range в Excel VBA. Мы будем использовать это свойство, чтобы выбрать диапазон от активной ячейки к последней записи в столбце.

Ситуация:

Некоторые данные о продажах в столбце A. Предположим, что вы будете добавлять больше цифры продаж в течение долгого времени.

From Active Cell to Last Entry in Excel VBA

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Для того, чтобы выбрать последнюю запись в колонке, просто добавьте следующую строку кода:

Range("A5").End(xlDown).Select

Примечание: вместо Range ( «A5»), вы можете также использовать Range ( «A1»), Range ( «A2») и т.д. Эта строка кода эквивалентно нажатию END + ВНИЗ.

Результат при нажатии на кнопку управления на листе:

Last Entry

  1. Для того, чтобы выбрать диапазон от ячейки А5 до последней записи в столбце, добавьте следующую строку кода:

Range(Range("A5"), Range("A5").End(xlDown)).Select

Результат при нажатии на кнопку управления на листе:

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(«A5») with ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

Результат при выборе ячейки А2 и нажмите кнопку команды на листе:

From Active Cell to Last Entry Result

Примечание: вы можете использовать константы xlUp, xlToRight и xlToLeft двигаться в других направлениях. Таким образом, вы можете выбрать диапазон от активной ячейки к последней записи в строке.