Vba: як вибрати діапазон в активній клітинці

Ви можете використовувати такі методи у VBA, щоб вибрати діапазон клітинок у Excel із поточної активної клітинки:

Спосіб 1: Виберіть нижній діапазон із активної комірки

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

Цей макрос вибере діапазон від активної клітинки до останньої використаної клітинки в стовпці.

Спосіб 2: Виберіть Range Up з Active Cell

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Цей макрос вибере діапазон від активної клітинки до першої використаної клітинки в стовпці.

Спосіб 3: виділіть діапазон праворуч від активної клітинки

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Цей макрос вибере діапазон від активної комірки до останньої використаної комірки праворуч у тому самому рядку.

Спосіб 4: виділіть діапазон ліворуч в активній клітинці

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Цей макрос вибере діапазон від активної клітинки до останньої використаної клітинки ліворуч у тому ж рядку.

У наведених нижче прикладах показано, як використовувати кожен метод із таким аркушем у Excel:

Приклад 1: Виберіть нижній діапазон із активної клітинки

Припустімо, що клітинка C3 наразі вибрана.

Ми можемо створити такий макрос, щоб вибрати діапазон від активної комірки до останньої використаної комірки в стовпці:

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

Коли ми запускаємо цей макрос, автоматично вибирається такий діапазон:

Зверніть увагу, що тепер вибрано діапазон від клітинки C3 до останньої клітинки, що використовується в стовпці.

Приклад 2: Виберіть діапазон вище від активної комірки

Припустімо, що клітинка C3 наразі вибрана.

Ми можемо створити наступний макрос, щоб вибрати діапазон від активної клітинки до першої клітинки, що використовується в стовпці:

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Коли ми запускаємо цей макрос, автоматично вибирається такий діапазон:

Зверніть увагу, що діапазон від клітинки C3 до першої клітинки, що використовується в стовпці, тепер вибрано.

Приклад 3: виберіть діапазон праворуч від активної клітинки

Припустімо, що клітинка B2 наразі вибрана.

Ми можемо створити такий макрос, щоб вибрати діапазон від активної комірки до останньої використаної комірки праворуч у тому самому рядку:

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Коли ми запускаємо цей макрос, автоматично вибирається такий діапазон:

Зверніть увагу, що тепер виділено діапазон від комірки B2 до останньої використаної комірки праворуч у тому ж рядку.

Приклад 4: виберіть діапазон зліва в активній комірці

Припустімо, що наразі вибрано комірку D6 .

Ми можемо створити такий макрос, щоб вибрати діапазон від активної клітинки до останньої використаної клітинки ліворуч у тому ж рядку:

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Коли ми запускаємо цей макрос, автоматично вибирається такий діапазон:

Зверніть увагу, що тепер виділено діапазон від клітинки D6 до останньої використаної клітинки ліворуч у тому самому рядку.

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як знайти останній використаний рядок
VBA: як знайти останній використаний стовпець
VBA: як вставити кілька рядків