Vba: як підрахувати кількість використаних стовпців

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

У цьому конкретному прикладі підраховується кількість стовпців, що використовуються на аркуші під назвою Sheet1 , і відображається результат у клітинці A10 .

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

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

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

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

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

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

Зверніть увагу, що клітинка A10 містить значення 4 .

Це означає, що використовується 4 стовпці.

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

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

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

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

У вікні повідомлення повідомляється, що використовуються 4 стовпці.

Примітка . Якщо є порожні стовпці, за якими йдуть стовпці, що містять дані, VBA вважатиме порожні стовпці «використаними» в обчисленні.

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

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

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