Оглавление
Если вы ищете несколько самых простых способов подсчета строк с данными в столбце с помощью Excel VBA Тогда вы попали по адресу. Итак, давайте начнем с нашей основной статьи, чтобы узнать больше о том, как легко подсчитывать строки с данными в столбце.
Скачать рабочую тетрадь
Подсчет строк с данными.xlsm9 способов подсчета строк с данными в столбце с помощью Excel VBA
Здесь у нас есть следующий набор данных, содержащий записи о продажах компании. Мы будем использовать различные столбцы с данными из этого набора данных, чтобы объяснить различные способы подсчета строк на основе данных столбца.
Мы использовали Microsoft Excel 365 версию здесь, вы можете использовать любые другие версии в зависимости от вашего удобства.
Метод-1: Использование свойства VBA Rows.Count для подсчета строк с данными в столбце в Excel
Здесь мы будем подсчитывать строки из Продажи столбец со значениями продаж для продуктов, используя Rows. Свойство Count из 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 "Number of used rows is " & (X - 3) End Sub Здесь мы объявили X в качестве Целое число , "D4" это начальное значение диапазона, на основе столбца которого мы считаем строки, и, наконец, мы присвоили номер строки в X . X даст нам номер последней использованной строки, а не общее количество использованных строк этого столбца. Поэтому, чтобы получить общее количество строк, мы вычли 3 ( Начальный ряд Номер-1 = 4-1 = 3 ) от X .
Окно сообщения ( MsgBox ) появится общее количество строк.
➤ Нажмите F5 .
После этого у вас будет 8 как общее количество строк Продажи столбец в окне сообщения.
Подробнее: Как подсчитать строки с данными в Excel (4 формулы)
Метод-3: Использование комбинации свойств Rows.Count и End
Здесь мы будем использовать комбинацию двух свойств VBA как Rows. Свойство Count и Конечная собственность вместе, чтобы подсчитать общее количество строк Продажи колонна.
Шаги :
➤ Следуйте Шаг-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)
Похожие чтения:
- Подсчет строк в группе с помощью Pivot Table в 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 "Number of used rows is " & 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 "Number of used rows is " & 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 "Number of used rows is " & 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 "Number of used rows is " & X End Sub Здесь мы объявили X в качестве Длинный , Y и rng в качестве Диапазон , "B4:B11" это диапазон, на основе столбца которого мы считаем строки, и, наконец, мы присвоили его к rng .
Сайт НА цикл будет проверять, содержит ли какая-либо из ячеек этого диапазона текстовую строку "применять" используя Функция COUNTIF (здесь будут учитываться как точные, так и частичные совпадения с помощью параметра Звездочка символ до и после строки), и для ячеек, имеющих это значение, X будет увеличена на 1 каждый раз.
Наконец, мы получим общее количество строк с текстовой строкой яблоко через окно сообщений.
➤ Нажмите F5 .
Тогда у вас будет 2 как общее количество строк Продукт столбец, содержащий текстовые строки Apple и Ананас в окне сообщения.
Читать далее: Как подсчитать строки с помощью текста в Excel (8 самых простых способов)
Практическая секция
Для самостоятельного выполнения практики мы предоставили Практика раздел, как показано ниже, в листе с именем Практика Пожалуйста, сделайте это сами.
Заключение
В этой статье мы постарались рассказать о способах подсчета строк с данными в столбце с помощью Excel. VBA легко. надеюсь, вы найдете его полезным. если у вас есть какие-либо предложения или вопросы, не стесняйтесь поделиться ими в разделе комментариев.
