Количество строк VBA

Количество строк Excel VBA

В программировании VBA обращение к строкам также является наиболее важным, и подсчет строк — это одна из вещей, о которых вы должны знать, когда дело доходит до кодирования VBA. Мы можем получить большую пользу, если поймем важность подсчета строк, содержащих данные на листе. В этой статье мы покажем вам, как подсчитывать строки, используя кодирование VBA.

Количество строк VBA

Вы можете использовать это изображение на своем веб-сайте, в шаблонах и т. д. Пожалуйста, предоставьте нам ссылку на авторствоКак предоставить атрибуцию?Ссылка на статью должна быть гиперссылкой
Например:
Источник: количество строк VBA (wallstreetmojo.com).

Как считать строки в VBA?

Вы можете скачать этот шаблон Excel для подсчета строк VBA здесь — Шаблон Excel для подсчета строк VBA

Пример №1

К количество строкКоличество строкСуществует множество способов подсчета строк в Excel с использованием соответствующей формулы, независимо от того, являются ли они строками данных, пустыми строками или строками, содержащими числовые/текстовые значения. В зависимости от обстоятельств вы можете использовать функции COUNTA, COUNT, COUNTBLANK или COUNTIF.читать далее, нам нужно использовать объект RANGE, в этом объекте нам нужно использовать объект ROWS, а в этом нам нужно использовать свойство COUNT.

Например, посмотрите на приведенные ниже данные в Excel.

Пример подсчета строк VBA 1

Из приведенных выше данных нам нужно определить, сколько строк находится в диапазоне от A1 до A8. Поэтому сначала определите переменную как целое число для хранения количества строк.

Код:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

End Sub
Пример подсчета строк VBA 1-1

Для этой переменной мы будем назначать номера строк, поэтому введите имя переменной и знак равенства.

Код:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

No_Of_Rows =

End Sub
Пример подсчета строк VBA 1-2

Нам нужно указать диапазон ячеек, поэтому откройте ДИАПАЗОН объектДИАПАЗОН ОбъектДиапазон — это свойство в VBA, которое помогает указать конкретную ячейку, диапазон ячеек, строку, столбец или трехмерный диапазон. В контексте рабочего листа Excel объект диапазона VBA включает одну или несколько ячеек, распределенных по различным строкам и столбцам.читать далее и укажите диапазон как «A1: A8». Код:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1:A8")

End Sub
Пример подсчета строк VBA 1-3

После того, как диапазон предоставлен, нам нужно подсчитать количество строк, поэтому выберите свойство ROWS объекта RANGE.

Пример подсчета строк VBA 1-4

В свойстве ROWS объекта RANGE мы подсчитываем количество строк, поэтому сейчас выберите свойство «COUNT».

Пример подсчета строк VBA 1-7

Теперь в окне сообщения покажите значение переменной.

Код:

Sub Count_Rows_Example1()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1:A8").Rows.Count

MsgBox No_Of_Rows

End Sub
Пример подсчета строк VBA 1-5

Теперь запустите код и посмотрите количество строк предоставленного диапазона ячеек.

Пример подсчета строк VBA 1-6

Хорошо, для диапазона предоставлено 8 строк, поэтому количество строк в окне сообщения равно 8.

Пример #2

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

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

Пример подсчета строк VBA 1

Чтобы перейти к последней использованной ячейке из ячейки A1, мы нажимаем кнопку горячая клавиша эксельКлавиша быстрого доступа ExcelЯрлык Excel — это способ более быстрого выполнения ручного задания.читать далее «Ctrl + стрелка вниз», поэтому он приведет вас к последней ячейке перед пустой ячейкой.

Сначала укажите ячейку как A1, используя объект RANGE.

Код:

Sub Count_Rows_Example2()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1")

MsgBox No_Of_Rows

End Sub
Пример подсчета строк VBA 2

Из этой ячейки нам нужно двигаться вниз, и на листе мы используем Ctrl + стрелка вниз, но в VBA мы используем END свойствоКОНЕЦ СвойствоEnd — это оператор VBA, который можно использовать различными способами в приложениях VBA. В любом месте кода можно использовать простой оператор End, чтобы мгновенно завершить выполнение кода. В процедурах оператор end используется для завершения подпроцедуры или любой функции цикла, например «End if».читать далее, выберите это свойство и откройте квадратную скобку, чтобы увидеть параметры.

Пример 2-1

Посмотрите туда с помощью клавиши END, мы можем увидеть все клавиши со стрелками, такие как «xlDown, xlToLeft, xlToRight и xlUp», так как нам нужно двигаться вниз, используя опцию «xlDown».

Код:

Sub Count_Rows_Example2()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1").End(xlDown)

MsgBox No_Of_Rows

End Sub
Пример 2-2

Это приведет вас к последней камере перед любым перерывом, теперь в активная ячейкаАктивная ячейкаАктивная ячейка — это выделенная в данный момент ячейка на листе. Активную ячейку в VBA можно использовать в качестве ссылки для перехода к другой ячейке или изменения свойств той же активной ячейки или ссылки на ячейку, полученной из активной ячейки.читать далее нам нужен номер строки, поэтому используйте свойство ROW.

Код:

Sub Count_Rows_Example2()

Dim No_Of_Rows As Integer

No_Of_Rows = Range("A1").End(xlDown).Row

MsgBox No_Of_Rows

End Sub
Пример 2-3

Готово. Теперь это покажет номер последней строкиНомер последней строкиМетод End(XLDown) чаще всего используется в VBA для поиска последней строки, но есть и другие методы, например поиск последнего значения в VBA с помощью функции поиска (XLDown).читать далее, и это будет количество строк.

Пример подсчета строк VBA 2-4

Итак, в строках у нас есть данные.

Пример № 3 — найти последнюю использованную строку

Поиск последней использованной строки настолько важен, чтобы решить, сколько раз должен выполняться цикл, а также в приведенном выше методе последняя строка останавливается, чтобы выбрать, есть ли какая-либо ячейка точки останова, поэтому в этом методе мы можем найти последнюю использованную строку без какие-то проблемы.

Открытым CELL-свойствоЯЧЕЙКА СвойствоЯчейки — это ячейки рабочего листа, и в VBA, когда мы ссылаемся на ячейки как на свойство диапазона, мы ссылаемся на одни и те же ячейки. В концепциях VBA ячейки также одинаковы, ничем не отличаются от обычных ячеек Excel.читать далее.

Код:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(

MsgBox No_Of_Rows

End Sub
Пример подсчета строк VBA 3

Теперь нам нужно указать номер строки для начала, проблема здесь в том, что мы не уверены, сколько строк данных у нас есть, поэтому мы можем сразу перейти к последней строке рабочего листа, для этого упомяните ROWS .COUNT свойство.

Код:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count,

MsgBox No_Of_Rows

End Sub
Пример 3-1

Затем нам нужно указать, в каком столбце мы находим последнюю использованную строку, поэтому в этом случае мы находим в первом столбце, поэтому укажите 1.

Код:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count, 1)

MsgBox No_Of_Rows

End Sub
Пример 3-2

В этот момент вы перейдете к последней ячейке первого столбца, оттуда нам нужно двигаться вверх, чтобы перейти к последней использованной ячейке, поэтому используйте свойство End (xlUp).

Код:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count, 1).End(xlUp)

MsgBox No_Of_Rows

End Sub
Пример 3-3

Таким образом, вы перейдете к последней использованной ячейке столбца 1, и в этой ячейке нам нужен номер строки, поэтому используйте свойство ROW, чтобы получить номер строки.

Код:

Sub Count_Rows_Example3()

Dim No_Of_Rows As Integer

No_Of_Rows = Cells(Rows.Count, 1).End(xlUp).Row

MsgBox No_Of_Rows

End Sub
Пример подсчета строк VBA 3-4

То, что нужно запомнить

  • COUNT даст количество строк на листе.
  • Если у вас есть диапазон, то он даст количество строк, выбранных в диапазоне.
  • Свойство ROW вернет номер строки активной ячейки.

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *