Зміст
Якщо ви шукаєте кілька найпростіших способів підрахунку рядків з даними в стовпці за допомогою Excel VBA Отже, давайте почнемо з нашої основної статті, щоб дізнатися більше про те, як легко порахувати рядки з даними в стовпчику.
Завантажити Робочий зошит
Підрахунок рядків з даними.xlsm9 способів підрахунку рядків з даними у стовпчику за допомогою Excel VBA
Тут ми маємо наступний набір даних, що містить записи про продажі компанії. Ми будемо використовувати різні стовпці з даними з цього набору даних, щоб пояснити різні способи підрахунку рядків на основі даних стовпця.
Ми використовували Microsoft Excel 365 тут, ви можете використовувати будь-які інші версії відповідно до вашої зручності.
Спосіб-1: Використання властивості VBA Rows.Count для підрахунку рядків з даними в стовпці в Excel
Тут ми будемо рахувати рядки Продажі стовпчик зі значеннями продажів для товарів з використанням Ряди. Порахувати майно. з VBA .
Крок-01 :
➤ Перейдіть до Розробник Вкладка>>; Visual Basic Варіант.
Після цього, на засіданні Редактор Visual Basic відкриється.
➤ Перейдіть до Вставка Вкладка>>; Модуль Варіант.
Після цього було проведено Модуль буде створено.
Крок-02 :
Напишіть наступний код
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Кількість використаних рядків становить " & X End Sub Тут ми задекларували X як Ціле число , "D4:D11" це діапазон, на основі якого стовпця ми рахуємо рядки і, нарешті, ми присвоїли номер рядка X .
З'явиться вікно повідомлення ( MsgBox ) дасть нам результат у вигляді загальної кількості рядків.
Натисніть F5 .
Тоді загальна кількість рядків з даними матиме вигляд 8 про Продажі у колонці у вікні повідомлення.
Читати далі: Excel VBA для підрахунку рядків з даними (4 приклади)
Спосіб-2: Використання властивості End для підрахунку рядків з даними в стовпці
У цьому розділі ми будемо використовувати Кінцева нерухомість з VBA порахувати рядки зі значеннями продажів Продажі колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Кількість використаних рядків становить " & (X - 3) End Sub Тут ми задекларували X як Ціле число , "D4" початкове значення діапазону, на основі якого стовпця ми рахуємо рядки і, нарешті, присвоїли номер рядка X . X дасть нам номер останнього використаного рядка, а не загальну кількість використаних рядків цього стовпчика. Отже, щоб отримати загальний номер рядка, ми відняли 3 ( Початковий номер ряду-1 = 4-1 = 3 ) від X .
З'явиться вікно повідомлення ( MsgBox ) з'явиться загальна кількість рядків.
Натисніть F5 .
Після цього у вас буде 8 як загальна кількість рядків у Продажі у колонці у вікні повідомлення.
Читати далі: Як порахувати рядки з даними в Excel (4 формули)
Спосіб 3: Використання комбінації властивості Rows.Count та властивості End
Тут ми будемо використовувати поєднання двох властивостей VBA на кшталт Ряди. Порахувати майно. та Кінцева нерухомість разом, щоб підрахувати загальну кількість рядків Продажі колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Кількість використаних рядків становить " & (X - 3) End Sub Тут ми задекларували X як Ціле число , 4 в (Рядів. Кількість, 4) це для Продажі стовпчик, на основі якого стовпчика ми рахуємо рядки, і, нарешті, ми присвоїли номер рядка X .
X поверне номер останнього використаного рядка, а не загальну кількість використаних рядків цього стовпця. Отже, щоб отримати загальну кількість рядків, ми відняли 3 ( Початковий номер ряду-1 = 4-1 = 3 ) від X .
З'явиться вікно повідомлення ( MsgBox ) з'явиться загальна кількість рядків.
Натисніть F5 .
Після цього ми отримаємо 8 як загальна кількість рядків у Продажі у колонці у вікні повідомлення.
Стаття на тему: Як порахувати рядки з декількома критеріями в Excel (6 способів)
Спосіб 4: Використання властивості виділення VBA для підрахунку рядків з даними в стовпці в Excel
Ви можете скористатися Властивість вибору а також підрахувати загальну кількість рядків на основі даних Продажі колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Кількість використаних рядків становить " & X End Sub Тут ми задекларували X як Ціле число тут будуть рахуватися рядки вибраного діапазону, і, нарешті, ми присвоїли номер рядка X .
З'явиться вікно повідомлення ( MsgBox ) дасть нам результат у вигляді загальної кількості рядків.
Потім ми повинні повернутися до основного аркуша.
➤ Виберіть діапазон Продажі а потім, перейдіть до колонки Розробник Вкладка>>; Макроси Варіант.
Після цього, в рамках візиту в Україну Макрос з'явиться діалогове вікно.
Виберіть пункт Назва макросу графства4 , а потім натисніть кнопку Біжи варіант.
Нарешті, ми отримаємо наступне вікно з повідомленням "Кількість використаних рядків - 8" .
Читати далі: Як порахувати рядки за допомогою VBA в Excel (5 підходів)
Спосіб 5: Підрахунок рядків з даними у стовпчику за допомогою функції FIND
Тут ми будемо використовувати Функція FIND порахувати рядки з текстовими рядками в Регіон колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub CountRows5() Dim X As Integer Dim rng As Range Set rng = Range("C4:C11") With rng X = .Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row End With MsgBox "Кількість використаних рядків становить " & (X - 3) End Sub Тут ми задекларували X як Ціле число , rng як Діапазон , "C4:C11" це діапазон, на основі якого стовпця ми рахуємо рядки і нарешті присвоїли його rng .
Ми використовували З оператор, щоб уникнути повторення використання імені об'єкту на зразок rng .
За допомогою Функція FIND , X дасть нам номер останнього використаного рядка, а не загальну кількість використаних рядків цього стовпчика. Отже, щоб отримати загальний номер рядка, ми відняли 3 ( Початковий номер ряду-1 = 4-1 = 3 ) від X .
З'явиться вікно повідомлення ( MsgBox ) з'явиться загальна кількість рядків.
Натисніть F5 .
Нарешті, ви отримаєте 8 як загальна кількість рядків у Продажі у колонці у вікні повідомлення.
Стаття на тему: Підрахунок видимих рядків у Excel (формула та код VBA)
Схожі читання:
- Підрахунок рядків у групі за допомогою зведеної таблиці в Excel (покрокова інструкція)
- Excel VBA: підрахунок рядків на аркуші (5 прикладів)
Спосіб 6: Підрахунок непустих рядків з даними в стовпчику за допомогою VBA
Тут у нас є кілька порожніх клітинок в Продажі (ми видалили деякі значення для цього методу) і використовуючи стовпчик VBA ми будемо рахувати тільки загальну кількість рядків зі значеннями.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows6() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountA(Y)> 0 Then X = X + 1 End If Next End With MsgBox "Кількість використаних рядків становить " & X End Sub Тут ми задекларували X як Довгий , Y і rng як Діапазон , "D4:D11" це діапазон, на основі якого стовпця ми рахуємо рядки і нарешті присвоїли його rng .
На сьогоднішній день, на жаль, це не так. ЗА цикл перевірить, чи кожна з комірок цього діапазону містить якесь значення з допомогою функції Функція COUNTA і для комірок, що мають значення, X буде збільшено на 1 кожного разу.
Нарешті, ми отримаємо загальні номери рядків з незаповненими комірками через вікно повідомлення.
Натисніть F5 .
Зрештою, у вас буде 5 як загальна кількість непорожніх рядків у Продажі у колонці у вікні повідомлення.
Докладніше: Як порахувати відфільтровані рядки в Excel за допомогою VBA (покрокова інструкція)
Спосіб 7: Порахувати рядки з певним значенням
Тут ми будемо рахувати загальну кількість рядків з продажною вартістю $2,522.00 від Продажі колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows7() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, 2522)> 0 Then X = X + 1 End If Next End With MsgBox "Кількість використаних рядків становить " & X End Sub Тут ми задекларували X як Довгий , Y і rng як Діапазон , "D4:D11" це діапазон, на основі якого стовпця ми рахуємо рядки і, нарешті, присвоїли його rng .
На сьогоднішній день, на жаль, це не так. ЗА цикл перевірить, чи не містить якась з комірок цього діапазону значення продажу 2522 за допомогою Функція COUNTIF і для комірок, що мають це значення, X буде збільшено на 1 кожного разу.
В результаті отримаємо сумарні номери рядків зі значенням 2522 через поштову скриньку.
Натисніть F5 .
В кінцевому підсумку, ви будете мати 3 як загальна кількість рядків у Продажі стовпчик, що містить вартість реалізації $2,522.00 у вікні повідомлень.
Читати далі: Excel VBA: підрахунок рядків з конкретними даними (8 прикладів)
Спосіб-8: Підрахунок рядків зі значеннями, що перевищують певне значення
У цьому розділі ми будемо підраховувати загальну кількість рядків зі значеннями, що перевищують $3000.00 в Продажі колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows8() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, ">3000")> 0 Then X = X + 1 End If Next End With MsgBox "Кількість використаних рядків становить " & X End Sub Тут ми задекларували X як Довгий , Y і rng як Діапазон , "D4:D11" це діапазон, на основі якого стовпця ми рахуємо рядки і нарешті присвоїли його rng .
На сьогоднішній день, на жаль, це не так. ЗА цикл перевірить, чи не містить якась з комірок цього діапазону значення продажу більше, ніж 3000 за допомогою Функція COUNTIF (або можна спробувати для будь-яких інших умов, наприклад, менше, більше, дорівнює і т.д.) і для клітинок, що мають це значення, X буде збільшено на 1 кожного разу.
Нарешті, ми отримаємо сумарні номери рядків зі значеннями, більшими за 3000 через поштову скриньку.
Натисніть F5 .
Після цього у вас буде 3 як загальна кількість рядків у Продажі стовпчик, що містить значення продажів, які перевищують $3,000.00 у вікні повідомлень.
Читати далі: Як в Excel порахувати рядки зі значенням (8 способів)
Спосіб-9: Підрахунок рядків з певним текстовим рядком
Тут ми отримаємо кількість рядків, що містять яблуко повністю або частково в Продукт колонка.
Кроки :
Слідкуйте за Крок-01 з Спосіб-1 .
Напишіть наступний код
Sub countrows9() Dim X As Long Dim Y, rng As Range Set rng = Range("B4:B11") With rng For Each Y In .Rows If Application.CountIf(Y, "*apple*")> 0 Then X = X + 1 End If Next End With MsgBox "Кількість використаних рядків становить " & X End Sub Тут ми задекларували X як Довгий , Y і rng як Діапазон , "B4:B11" це діапазон, на основі якого стовпця ми рахуємо рядки і, нарешті, присвоїли його rng .
На сьогоднішній день, на жаль, це не так. ЗА цикл перевірить, чи містить будь-яка з комірок цього діапазону текстовий рядок "застосувати" за допомогою Функція COUNTIF (тут буде враховано як повні збіги, так і часткові збіги за допомогою функції Asterisk символ до і після рядка), а також для комірок, що мають це значення, X буде збільшено на 1 кожного разу.
У підсумку отримаємо загальну кількість номерів рядків з текстовим рядком яблуко через поштову скриньку.
Натисніть F5 .
Тоді у вас буде 2 як загальна кількість рядків у Продукт стовпець, що містить текстові рядки Apple і Ананас у вікні повідомлень.
Читати далі: Як порахувати рядки з текстом в Excel (8 найпростіших способів)
Практична секція
Для самостійного проходження практики ми надали Практика розділ, як показано нижче, на аркуші з назвою Практика Будь ласка, зробіть це самі.
Висновок
У даній статті ми спробували висвітлити способи підрахунку рядків з даними в стовпці засобами Excel VBA Сподіваємось, він стане вам у нагоді. Якщо у вас є якісь пропозиції чи запитання, будь ласка, діліться ними у коментарях.
