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

Ви можете використовувати метод CountA у VBA, щоб підрахувати кількість непорожніх клітинок у певному діапазоні.

Ось поширений спосіб використання цього методу на практиці:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

У цьому конкретному прикладі підраховується кількість непорожніх клітинок у діапазоні A1:A10 і відображається результат у клітинці C1 .

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

Приклад 1: підрахувати непорожні клітинки в діапазоні та відобразити результати в клітинці

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

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

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

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

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

Це означає, що в діапазоні A1:A10 є 7 непорожніх комірок.

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

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

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

У вікні повідомлення повідомляється, що в діапазоні A1:A10 є 7 непорожніх клітинок.

Зауважте, що якщо ви натомість хочете підрахувати кількість непорожніх клітинок у всьому стовпці, ви можете натомість ввести A:A .

Це обчислить кількість непорожніх клітинок у всьому стовпці A.

Примітка . Ви можете знайти повну документацію для методу VBA CountA тут .

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

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

VBA: як написати функції AVERAGEIF і AVERAGEIFS
VBA: як написати функції SUMIF і SUMIFS
VBA: як написати функції COUNTIF і COUNTIFS