Numărul de rânduri VBA - Cum să numărăm numărul de rânduri utilizate în VBA?

Numărul de rânduri VBA Excel

În programarea VBA, referirea la rânduri este, de asemenea, cea mai importantă, iar numărarea rândurilor este unul dintre lucrurile de care trebuie să fii conștient atunci când vine vorba de codificarea VBA. Există o mare valoare pe care o putem obține dacă putem înțelege importanța numărării rândurilor care are date în foaia de lucru. În acest articol, vă vom arăta cum să contați rândurile folosind codarea VBA.

Cum se numără rândurile în VBA?

Exemplul nr. 1

Pentru a număra rânduri, trebuie să folosim obiectul RANGE, în acest obiect, trebuie să folosim obiectul ROWS, iar în acesta, trebuie să folosim proprietatea COUNT.

De exemplu, uitați-vă la datele de mai jos în Excel.

Din datele de mai sus, trebuie să identificăm câte rânduri există din intervalul A1 până la A8. Deci, mai întâi definiți variabila ca număr întreg pentru a stoca numărul de rânduri.

Cod:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Pentru această variabilă, vom atribui numere de rând, deci introduceți numele variabilei și scoateți semnul egal.

Cod:

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

Trebuie să oferim o gamă de celule, deci deschideți obiectul RANGE și furnizați gama ca „A1: A8”. Cod:

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

Odată furnizat intervalul, trebuie să numărăm numărul de rânduri, deci alegeți proprietatea ROWS a obiectului RANGE.

În proprietatea ROWS a obiectului RANGE numărăm un număr de rânduri, deci alegeți proprietatea „COUNT” acum.

Acum, în caseta de mesaj afișați valoarea variabilei.

Cod:

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

Acum rulați codul și vedeți numărul de rânduri ale gamei de celule furnizate.

Ok, există 8 rânduri furnizate pentru interval, deci numărul de rânduri este 8 în caseta de mesaje.

Exemplul nr. 2

Avem și alte modalități de numărare a rândurilor, pentru metoda de mai sus, trebuie să furnizăm o gamă de celule și, în acest interval, arată numărul de rânduri selectate.

Dar imaginați-vă scenariul în care trebuie să găsim ultima folosită a oricărei coloane, de exemplu, luați aceleași date ca mai sus.

Pentru a trece la ultima celulă utilizată din celula A1, apăsăm tasta excelă de comandă rapidă „Ctrl + Săgeată în jos” , așa că vă va duce la ultima celulă înainte de celula goală.

Mai întâi, furnizați celula ca A1 folosind obiectul RANGE.

Cod:

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

Din această celulă, trebuie să ne deplasăm în jos și, în foaia de lucru, folosim Ctrl + Săgeată în jos, dar în VBA folosim proprietatea END, alegem această proprietate și deschidem paranteză pentru a vedea opțiunile.

Uită-te acolo cu tasta END, putem vedea toate tastele săgeată, cum ar fi „xlDown, xlToLeft, xlToRight și xlUp”, deoarece trebuie să ne deplasăm în jos folosind opțiunea „xlDown”.

Cod:

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

Acest lucru vă va duce la ultima celulă înainte de orice pauză, acum în celula activă avem nevoie de numărul rândului, deci utilizați proprietatea ROW.

Cod:

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

Bine gata. Acum, acesta va afișa ultimul număr de rând și acesta va fi numărul unui număr de rânduri.

Deci, pe rânduri, avem date.

Exemplul # 3 - Găsiți ultimul rând folosit

Găsirea ultimului rând utilizat este atât de importantă pentru a decide de câte ori trebuie să ruleze bucla și, de asemenea, în metoda de mai sus, ultimul rând se oprește pentru a selecta dacă există vreo celulă de punct de întrerupere, deci în această metodă putem găsi ultimul rând folosit orice probleme.

Deschideți proprietatea CELL.

Cod:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Celule (MsgBox No_Of_Rows End Sub

Acum trebuie să menționăm numărul rândului pentru a începe, problema aici este că nu suntem siguri câte rânduri de date avem, deci ceea ce putem face este să mergem imediat la ultimul rând al foii de lucru, pentru această mențiune ROWS .COUNT proprietate.

Cod:

Sub Count_Rows_Example3 () Dim No_Of_Rows as Integer No_Of_Rows = Celule (Rows.Count, MsgBox No_Of_Rows End Sub

În continuare, trebuie să menționăm în ce coloană găsim ultimul rând folosit, așa că, în acest caz, găsim în prima coloană, deci menționați 1.

Cod:

Sub Count_Rows_Example3 () Dim No_Of_Rows as Integer No_Of_Rows = Celule (Rows.Count, 1) MsgBox No_Of_Rows End Sub

În acest moment, vă va duce la ultima celulă a primei coloane, de acolo înainte trebuie să ne deplasăm în sus pentru a merge la ultima celulă utilizată, deci utilizați proprietatea End (xlUp).

Cod:

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

Deci, acest lucru vă va duce la ultima celulă utilizată a coloanei 1 și, în această celulă, avem nevoie de numărul rândului, deci utilizați proprietatea ROW pentru a obține numărul rândului.

Cod:

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

Lucruri de amintit

• COUNT va da un număr de rânduri în foaia de lucru.
• Dacă aveți un interval, atunci acesta va da un număr de rânduri selectate în interval.
• Proprietatea ROW va returna numărul rândului de celulă activ.