Брой редове на VBA - Как да преброите броя на използваните редове във VBA?

Брой редове в Excel VBA

При програмирането на VBA позоваването на редове също е най-важно и броенето на редове е едно от нещата, с които трябва да сте наясно, когато става въпрос за кодиране на VBA. Има много стойност, която можем да получим, ако можем да разберем важността на броенето на редове, които съдържат данни в работния лист. В тази статия ще ви покажем как да броите редове с помощта на VBA кодиране.

Как да броим редове във VBA?

Пример # 1

За да броим редове, трябва да използваме обект RANGE, в този обект трябва да използваме обекта ROWS и в това трябва да използваме COUNT свойство.

Например погледнете данните по-долу в Excel.

От горните данни трябва да определим колко реда има от диапазона А1 до А8. Така че първо дефинирайте променливата като цяло число, за да съхраните броя на редовете.

Код:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

За тази променлива ще присвоим номера на редове, така че въведете името на променливата и изведете знака за равенство.

Код:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Трябва да предоставим диапазон от клетки, така че отворете RANGE обект и предоставете диапазона като „A1: A8“. Код:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub

След като диапазонът е предоставен, трябва да преброим броя на редовете, така че изберете свойството ROWS на обекта RANGE.

В свойството ROWS на обект RANGE броим редица редове, така че изберете свойството „COUNT“ сега.

Сега в полето за съобщения покажете стойността на променливата.

Код:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Сега стартирайте кода и вижте броя на редовете на предоставения диапазон от клетки.

Добре, за диапазона има 8 реда, така че броят на редовете е 8 в полето за съобщения.

Пример # 2

Имаме и други начини за броене на редове, за горния метод трябва да предоставим набор от клетки и в този диапазон клетки той показва броя на избраните редове.

Но представете си сценария, при който трябва да намерим последния използван от която и да е колона, например да вземем същите данни, както се вижда по-горе.

За да се придвижим до последната използвана клетка от клетка А1, натискаме клавиша за бърз достъп „Ctrl + стрелка надолу“ , така че ще ви отведе до последната клетка преди празната клетка.

Първо, предоставете клетката като A1, като използвате обекта RANGE.

Код:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

От тази клетка трябва да се придвижим надолу и в работния лист използваме Ctrl + стрелка надолу, но във VBA използваме свойството END, изберете това свойство и отворете скобата, за да видите опциите.

Погледнете там с бутона 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

Това ще ви отведе до последната клетка преди всяко прекъсване, сега в активната клетка се нуждаем от номера на реда, така че използвайте свойството 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

ОК, готово. Сега това ще покаже номера на последния ред и това ще бъде броят на броя на редовете.

Така че в редове имаме данни.

Пример # 3 - Намерете последния използван ред

Намирането на последния използван ред е толкова важно, за да се реши колко пъти трябва да се изпълни цикълът, а също и в горния метод последният ред спира, за да избере дали има клетка с точка на прекъсване, така че в този метод можем да намерим последния използван ред без някакви проблеми.

Отворете свойството CELL.

Код:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Клетки (MsgBox No_Of_Rows End Sub

Сега трябва да споменем номера на реда, за да започнем, проблемът тук е, че не сме сигурни колко реда данни имаме, така че това, което можем да направим, е да преминем веднага към последния ред на работния лист, за това споменаване ROWS .COUNT имот.

Код:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

След това трябва да споменем в коя колона намираме последния използван ред, така че в този случай намираме в първата колона, така че споменете 1.

Код:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub

В този момент ще ви отведе до последната клетка на първата колона, от там нататък трябва да се движим нагоре, за да преминем към последната използвана клетка, така че използвайте свойството 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

Така че това ще ви отведе до последната използвана клетка от колона 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

Неща за запомняне

  • COUNT ще даде брой редове в работния лист.
  • Ако имате диапазон, той ще даде брой редове, избрани в диапазона.
  • Свойството ROW ще върне номера на активния ред на клетката.

Интересни статии...