Vba: як вибрати всі клітинки, що містять дані

Ви можете використовувати такі методи у VBA, щоб вибрати всі клітинки, що містять дані на аркуші:

Спосіб 1. Виділіть клітинку сітки з даними

 SubSelectCellsWithData ()

Range(" A1 ").CurrentRegion.Select

End Sub

Цей конкретний макрос вибере сітку клітинок із даними, починаючи з клітинки A1 поточного активного аркуша.

Спосіб 2: Виділіть окремі клітинки з даними

 SubSelectCellsWithData ()

Worksheets(" Sheet1 ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate

End Sub

Цей конкретний макрос вибере всі окремі комірки, що містять дані з аркуша Sheet1 .

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

Приклад 1: виберіть клітинку сітки з даними

Припустімо, ми хочемо вибрати клітинку сітки, що містить дані в Sheet1 .

Для цього ми можемо створити такий макрос:

 SubSelectCellsWithData ()

Range(" A1 ").CurrentRegion.Select

End Sub

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

Зауважте, що цей метод використовує властивість CurrentRegion для вибору діапазону клітинок, оточених порожніми клітинками.

Повну документацію щодо властивості CurrentRegion можна знайти тут .

Приклад 2: Виділіть окремі клітинки з даними

Припустімо, ми хочемо вибрати лише всі окремі клітинки, що містять дані в Sheet1 .

Для цього ми можемо створити такий макрос:

 SubSelectCellsWithData ()

Worksheets(" Sheet1 ").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Activate

End Sub

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

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

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

VBA: як встановити значення клітинки на іншому аркуші
VBA: Як вибрати діапазон в активній клітинці
VBA: як видалити рядки на основі значення клітинки