Як порахувати рядки за допомогою VBA в Excel (5 способів)

Hugh West

16-10-2023 Макроси & Excel VBA
  • Поділитися Цим
Hugh West

Сьогодні я покажу вам, як можна рахувати рядки за допомогою VBA Я покажу, як можна підрахувати рядки з певного діапазону, з виділеного діапазону, за певним критерієм, за певним текстовим значенням, а також за виключенням порожніх клітинок.

Завантажити Практичний посібник

Підрахунок рядків за допомогою VBA.xlsm

5 способів підрахунку рядків за допомогою VBA в Excel

Тут ми маємо набір даних з іменами деяких учнів та їх оцінками з англійської мови у школі, яка називається "Дитячий садок "Соняшник".

Сьогодні наше завдання - підрахувати загальну кількість рядків за допомогою VBA код .

1. використання коду VBA для підрахунку рядків заданого діапазону

⧪ Крок 1:

➤ Преса ALT+F11 на клавіатурі. Вікно VBA відкриється.

⧪ Крок 2:

➤ Перейдіть на сторінку Вставка у вкладці VBA вікно.

➤ З доступних варіантів виберіть Модуль .

I

⧪ Крок 3:

➤ З'явилося нове вікно модуля під назвою "Модуль 1" відкриється.

➤ Вставте наступне VBA код в модулі.

Код: 

 Sub Count_Rows() Dim rng As Range Set rng = Range("B4:C13") MsgBox rng.Rows.Count End Sub

Нотатки:

  • Цей код видає Макрос під назвою Count_Rows .
  • На сьогоднішній день, на жаль, це не так. 3-й рядок коду містить вказаний діапазон " B4:C13". Я хочу порахувати кількість рядків у цьому діапазоні.
  • Ти використовуй свій.

⧪ Крок 4:

➤ Збережіть книгу як Книга Excel з підтримкою макросів .

⧪ Крок 5:

Поверніться на робочий аркуш і натисніть ALT+F8 на клавіатурі.

➤ З'явиться діалогове вікно з назвою Макрос Відкриється вікно. Виберіть Count_Rows ( Ім'я та прізвище учасника Макро) і натисніть на Біжи .

⧪ Крок 6:

➤ Ви побачите невелике вікно з повідомленням, що показує кількість всіх рядків ( 10 в даному випадку).

➤ Натисніть ГАРАЗД. на вихід.

Читати далі: Excel VBA для підрахунку рядків з даними

2. Виконання коду Excel VBA для підрахунку рядків виділеного діапазону

У попередньому методі ми підраховували кількість рядків певного діапазону ( B4:C13 ).

Але ми також можемо використовувати VBA код для підрахунку кількості рядків у будь-якому обраному діапазоні за нашим бажанням.

Всі кроки такі ж, як і Спосіб 1 ( Крок 1-6 ).

⧪ Тільки що Крок 3 замість попереднього коду вставити цей код:

Код: 

 Sub Count_Selected_Rows() Dim rng As Range Set rng = Selection MsgBox rng.Rows.Count End Sub

Зауважте:

  • Даний код створює модуль з іменем Кількість_виділених_рядків .

⧪ А в Крок 5 Перед запуском коду спочатку виберіть діапазон. Тут я вибрав весь свій набір даних (без Заголовки колонок ).

⧪ Потім натисніть ALT+F8 виберіть Кількість_виділених_рядків і натисніть на кнопку Біжи .

Ви отримаєте вікно з повідомленням про загальну кількість рядків у вибраному діапазоні ( 10 в даному випадку).

3. Вставка коду VBA для підрахунку рядків з критеріями в Excel

Ми також можемо використовувати VBA код для підрахунку загальної кількості рядків, що відповідають певному критерію.

Наприклад, давайте створимо Макрос який буде підраховувати кількість студентів, які отримали оцінки менше 40 балів.

Етапи також не відрізняються від етапів Спосіб 1 ( Крок 1-6 ).

⧪ Тільки що Крок 3 , змініть VBA код до цього:

Код: 

 Sub Count_Rows_with_Criteria() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) <40 Then Count = Count + 1 End If Next i MsgBox Count End Sub

Зауважте:

  • Даний код створює модуль з іменем Підрахунок_рядків_з_критеріями .
  • У черзі 6 ми використовували "<40" Тому що це критерій, яким ми користуємося, а ви змінюєте його відповідно до своєї потреби.

⧪ А в Крок 5 Перед виконанням коду необхідно виділити діапазон комірок з критеріями. Тут я виділив тільки стовпець C ( C4:C13 ), тому що критерій лежить там.

⧪ Потім натисніть ALT+F8 виберіть Підрахунок_рядків_з_критеріями і натисніть на кнопку Біжи .

Ви отримаєте вікно з повідомленням про загальну кількість рядків, які відповідають вашому критерію ( 3 в даному випадку).

Схожі читання

  • Підрахунок видимих рядків у Excel (формула та код VBA)
  • Як Excel рахує рядки зі значенням (8 способів)

4. вбудувати код VBA для підрахунку рядків з певним текстовим значенням

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

Подивіться на цей новий набір даних.

У нас є Книжкові рекорди деяких книг книгарні під назвою "Мартін Букстор".

Давайте створимо Макрос який підрахує кількість книг з певним текстом з цього набору даних.

Етапи також не відрізняються від етапів Спосіб 1 ( Крок 1-6 ).

⧪ Тільки що Крок 3 , змініть VBA код до цього:

Код: 

 Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Введіть текстове значення: ") LText = LCase(Text) For i = 1 To Selection.Rows.Count Words = Split(Selection.Cells(i, 1)) For Each j In Words LWord = LCase(j) If LText = LWord Then Count = Count + 1 End If Next j Next i MsgBox Count End Sub

Зауважте:

  • Даний код створює модуль з іменем Кількість_рядків_з_конкретним_текстом .

⧪ А в Крок 5 Перед виконанням коду необхідно виділити діапазон комірок з текстовими значеннями. Тут я виділив діапазон B4:B13 ( Назва книг ).

⧪ Потім натисніть ALT+F8 виберіть Кількість_рядків_з_конкретним_текстом і натисніть на кнопку Біжи .

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

Заради цього прикладу я ввів його як "історія" .

Нарешті, ви отримаєте вікно з повідомленням про загальну кількість рядків, які містять певний текст ( 3 в даному випадку).

Читати далі: Як порахувати рядки з текстом в Excel

5. Підрахунок рядків з порожніми комірками за допомогою VBA в Excel

Нарешті, ми розробимо макрос, який буде підраховувати загальну кількість рядків, виключаючи порожні клітинки з набору даних.

Подивіться на цей новий набір даних.

У нас є Знаки деяких кандидатів під час тесту при прийомі на роботу в компанію під назвою APEX group.

Але, на жаль, деякі кандидати не змогли з'явитися на тестування і на місці їхніх оцінок стоять порожні клітинки.

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

Тобто, скільки кандидатів з'явилося на тестування.

Всі кроки такі ж, як і Спосіб 1 ( Крок 1-6 ).

⧪ Тільки що Крок 3 введіть це VBA замість попереднього коду:

Код: 

 Sub Count_Rows_with_Blank_Cells() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) "" Then Count = Count + 1 End If Next i MsgBox Count End Sub

Зауважте:

  • Даний код створює модуль з іменем Кількість_рядків_з_порожніми_комірками .

⧪ в Крок 5 Перед виконанням коду необхідно виділити діапазон комірок з порожніми комірками. Тут я виділив діапазон C4:C13 ( Відмітки в тестах t).

⧪ Потім натисніть ALT+F8 виберіть Кількість_рядків_з_порожніми_комірками і натисніть на кнопку Біжи .

Ви отримаєте вікно з повідомленням про загальну кількість рядків без урахування порожніх клітинок ( 7 в даному випадку).

Висновок

За допомогою цих методів можна порахувати рядки з VBA з набору даних в Excel, що відповідають різним умовам. У вас виникли проблеми? Не соромтеся звертатися до нас.

Попередній пост Як використовувати COUNTIF для діапазону дат в Excel (6 підходів)
Наступний пост Як використовувати формулу зіставлення індексів в Excel (9 прикладів)

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.