VBA Row Count - Hvordan teller antall brukte rader i VBA?

Innholdsfortegnelse

Excel VBA radtall

I VBA er det også viktigst å referere til rader, og å telle rader er en av tingene du må være oppmerksom på når det gjelder VBA-koding. Det er mye verdi vi kan få hvis vi kan forstå viktigheten av å telle rader som har data i regnearket. I denne artikkelen vil vi vise deg hvordan du teller rader ved hjelp av VBA-koding.

Hvordan teller du rader i VBA?

Eksempel 1

For å telle rader, må vi bruke RANGE-objekt, i dette objektet må vi bruke ROWS-objektet, og i dette må vi bruke COUNT-egenskapen.

Se for eksempel på dataene nedenfor i Excel.

Fra dataene ovenfor må vi identifisere hvor mange rader det er fra området A1 til A8. Så først definerer du variabelen som heltall for å lagre antall rader.

Kode:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

For denne variabelen vil vi tildele radnumre, så skriv inn variabelnavnet og ut likhetstegnet.

Kode:

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

Vi må gi et utvalg av celler, så åpne RANGE-objektet og oppgi området som "A1: A8". Kode:

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

Når området er levert, må vi telle antall rader, så velg ROWS-egenskapen til RANGE-objektet.

I ROWS-egenskapen til RANGE-objektet teller vi et antall rader, så velg "COUNT" -egenskap nå.

Vis nå verdien i variabelen i meldingsboksen.

Kode:

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

Kjør nå koden og se antall rader med medfølgende utvalg av celler.

Ok, det er 8 rader levert for området, så antall rader er 8 i meldingsboksen.

Eksempel 2

Vi har andre måter å telle rader også, for metoden ovenfor må vi levere et område med celler, og i dette området viser det antall rader som er valgt.

Men forestill deg scenariet der vi trenger å finne den sist brukte av en hvilken som helst kolonne, for eksempel ta de samme dataene som vist ovenfor.

For å flytte til den sist brukte cellen fra celle A1, trykker vi snarvei excel-tasten "Ctrl + Pil ned" , så den tar deg til den siste cellen før den tomme cellen.

Først må du angi cellen som A1 ved hjelp av RANGE-objektet.

Kode:

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

Fra denne cellen må vi bevege oss ned, og i regnearket bruker vi Ctrl + Pil ned, men i VBA bruker vi END-egenskap, velger denne egenskapen og åpner parentes for å se alternativer.

Se der med END-tasten, vi kan se alle piltastene som "xlDown, xlToLeft, xlToRight og xlUp" siden vi trenger å flytte ned, bruk "xlDown" -alternativet.

Kode:

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

Dette tar deg til den siste cellen før en pause, nå i den aktive cellen trenger vi radnummeret, så bruk ROW-egenskapen.

Kode:

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

Ok ferdig. Nå vil dette vise det siste radnummeret, og det vil være antallet av rader.

Så i rader har vi data.

Eksempel # 3 - Finn sist brukte rad

Å finne den sist brukte raden er så viktig å bestemme hvor mange ganger sløyfen må kjøre, og i den ovennevnte metoden stopper den siste raden for å velge om det er noen brytpunktcelle, så i denne metoden kan vi finne den sist brukte raden uten noen problemer.

Åpne CELL-egenskapen.

Kode:

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

Nå må vi nevne radnummeret til å begynne med, problemet her er at vi ikke er sikre på hvor mange rader med data vi har, så det vi kan gjøre er at vi straks går til den siste raden i regnearket, for dette nevner RADER .COUNT eiendom.

Kode:

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

Deretter må vi nevne i hvilken kolonne vi finner den sist brukte raden, så i dette tilfellet finner vi i den første kolonnen, så nevn 1.

Kode:

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

For øyeblikket tar det deg til den siste cellen i den første kolonnen, derfra og fremover må vi bevege oss oppover for å gå til den siste brukte cellen, så bruk End (xlUp) -egenskapen.

Kode:

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å dette tar deg til den sist brukte cellen i kolonne 1, og i denne cellen trenger vi radnummeret, så bruk ROW-egenskapen for å få radnummeret.

Kode:

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

Ting å huske

  • COUNT vil gi et antall rader i regnearket.
  • Hvis du har et område, vil det gi et antall rader valgt i området.
  • ROW-egenskapen returnerer det aktive cellelinjenummeret.

Interessante artikler...