VBA Row Count - Hur räknar man antalet använda rader i VBA?

Innehållsförteckning

Excel VBA radantal

I VBA-programmering är det också viktigast att referera till rader och att räkna rader är en av de saker du måste vara medveten om när det gäller VBA-kodning. Det finns mycket värde vi kan få om vi kan förstå vikten av att räkna rader som har data i kalkylbladet. I den här artikeln visar vi dig hur du räknar rader med VBA-kodning.

Hur räknar man rader i VBA?

Exempel 1

För att räkna rader måste vi använda RANGE-objekt, i det här objektet måste vi använda ROWS-objektet, och i detta måste vi använda COUNT-egenskapen.

Titta till exempel på nedanstående data i Excel.

Från ovanstående data måste vi identifiera hur många rader som finns från intervallet A1 till A8. Så definiera först variabeln som heltal för att lagra antalet rader.

Koda:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

För den här variabeln tilldelar vi radnummer, så ange variabelnamnet och lägg ut likhetstecknet.

Koda:

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

Vi måste tillhandahålla ett antal celler, så öppna RANGE-objektet och ange intervallet som “A1: A8”. Koda:

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

När intervallet har levererats måste vi räkna antalet rader, så välj ROWS-egenskapen för RANGE-objekt.

I ROWS-egenskapen för RANGE-objekt räknar vi ett antal rader, så välj "COUNT" -egenskap nu.

Visa nu värdet på variabeln i meddelandefältet.

Koda:

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

Kör nu koden och se antalet rader i det medföljande cellområdet.

Okej, det finns 8 rader för intervallet, så antalet rader är 8 i meddelandefältet.

Exempel 2

Vi har också andra sätt att räkna rader, för ovanstående metod måste vi ange ett antal celler, och i detta intervall visar det antalet valda rader.

Men föreställ dig scenariot där vi måste hitta det senast använda i vilken kolumn som helst, ta till exempel samma data som vi ser ovan.

För att flytta till den senast använda cellen från cell A1 trycker vi på snabbknappen excel-tangent "Ctrl + Pil ner" , så att den tar dig till den sista cellen före den tomma cellen.

Ange först cellen som A1 med RANGE-objektet.

Koda:

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

Från den här cellen måste vi flytta ner och i kalkylbladet använder vi Ctrl + nedåtpilen, men i VBA använder vi END-egenskapen, väljer den här egenskapen och öppnar parentes för att se alternativ.

Titta där med END-tangenten så kan vi se alla piltangenter som “xlDown, xlToLeft, xlToRight och xlUp” eftersom vi behöver flytta ner med alternativet “xlDown”.

Koda:

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

Detta tar dig till den sista cellen före någon paus, nu i den aktiva cellen behöver vi radnumret, så använd ROW-egenskapen.

Koda:

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

Okej gjort. Nu kommer detta att visa det sista radnumret, och det kommer att räkna med ett antal rader.

Så i rader har vi data.

Exempel # 3 - Hitta senast använda rad

Att hitta den senast använda raden är så viktigt att bestämma hur många gånger slingan ska köras och även i ovanstående metod slutar den sista raden för att välja om det finns någon brytpunktcell, så i den här metoden kan vi hitta den senast använda raden utan några problem.

Öppna CELL-egenskapen.

Koda:

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

Nu måste vi nämna radnumret till att börja med, problemet här är att vi inte är säkra på hur många rader med data vi har, så vad vi kan göra är att vi genast går till den sista raden i kalkylbladet, för detta omnämnande RADER .COUNT egendom.

Koda:

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

Därefter måste vi nämna i vilken kolumn vi hittar den senast använda raden, så i det här fallet hittar vi i den första kolumnen, så nämn 1.

Koda:

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

För närvarande tar det dig till den sista cellen i den första kolumnen, därifrån och framåt måste vi gå uppåt för att gå till den senast använda cellen, så använd End (xlUp) -egenskapen.

Koda:

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

Så det tar dig till den senast använda cellen i kolumn 1, och i den här cellen behöver vi radnumret, så använd ROW-egenskapen för att få radnumret.

Koda:

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

Saker att komma ihåg

  • COUNT ger ett antal rader i kalkylbladet.
  • Om du har ett intervall ger det ett antal rader som valts i intervallet.
  • ROW-egenskapen returnerar det aktiva cellradnumret.

Intressanta artiklar...