Як видалити стовпці у vba (з прикладами)

Щоб видалити стовпці в Excel за допомогою VBA, можна скористатися такими методами:

Спосіб 1: видалити стовпець

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

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

Спосіб 2. Видаліть усі стовпці з діапазону

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

У цьому конкретному прикладі буде видалено всі стовпці в діапазоні від B до D у поточній книзі.

Спосіб 3. Видалення кількох певних стовпців

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

У цьому прикладі буде видалено стовпці B і D із поточної книги.

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

Приклад 1: видалення стовпця у VBA

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

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що лише стовпець C (стовпець «Допомога») було видалено з набору даних.

Приклад 2: видалення всіх стовпців із діапазону

Ми можемо створити такий макрос, щоб видалити всі стовпці в діапазоні B–D:

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зауважте, що кожен стовпець між B і D (стовпці «Очки», «Асисти» та «Підбирання») видалено з набору даних.

Приклад 3. Видалення кількох певних стовпців

Ми можемо створити такий макрос, щоб видалити стовпці B і D із набору даних:

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зауважте, що стовпці B і D (стовпці «Очки» та «Підбирання») видалено з набору даних.

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

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

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