VBA Row Count - Hvordan tæller antallet af brugte rækker i VBA?

Indholdsfortegnelse

Excel VBA rækkeoptælling

I VBA-programmering er det også vigtigt at henvise til rækker, og at tælle rækker er en af ​​de ting, du skal være opmærksom på, når det kommer til VBA-kodning. Der er en masse værdi, vi kan få, hvis vi kan forstå vigtigheden af ​​at tælle rækker, der har data i regnearket. I denne artikel viser vi dig, hvordan du tæller rækker ved hjælp af VBA-kodning.

Hvordan tæller man rækker i VBA?

Eksempel nr. 1

For at tælle rækker er vi nødt til at gøre brug af RANGE-objekt, i dette objekt skal vi bruge ROWS-objektet, og i dette skal vi bruge COUNT-egenskaben.

Se f.eks. Nedenstående data i Excel.

Fra ovenstående data skal vi identificere, hvor mange rækker der er fra området A1 til A8. Så definer først variablen som heltal for at gemme antallet af rækker.

Kode:

Sub Count_Rows_Example1 () Dim No_Of_Rows Som Integer End Sub

For denne variabel tildeler vi rækkenumre, så indtast variabelnavnet og udligner tegnet.

Kode:

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

Vi er nødt til at give en række celler, så åbn RANGE-objekt, og angiv 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 leveret, skal vi tælle antallet af rækker, så vælg ROWS-egenskaben for RANGE-objekt.

I ROWS-egenskaben for RANGE-objekt tæller vi et antal rækker, så vælg "COUNT" -egenskab nu.

Vis nu variabelens værdi i meddelelsesfeltet.

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

Kør nu koden, og se antallet af rækker med det medfølgende celleområde.

Ok, der er 8 rækker leveret til området, så rækkeantal er 8 i meddelelsesboksen.

Eksempel 2

Vi har også andre måder at tælle rækker på. For ovennævnte metode er vi nødt til at levere et række celler, og i dette interval celler viser det antallet af valgte rækker.

Men forestil dig scenariet, hvor vi skal finde den sidst anvendte i en hvilken som helst kolonne, for eksempel tage de samme data som set ovenfor.

For at flytte til den sidst anvendte celle fra celle A1, skal vi trykke på genvejstasten "Ctrl + Pil ned" , så den fører dig til den sidste celle før den tomme celle.

Først skal du angive cellen som A1 ved hjælp af 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 celle skal vi flytte ned, og i regnearket bruger vi Ctrl + Pil ned, men i VBA bruger vi END-egenskab, vælg denne egenskab og åbn parentes for at se muligheder.

Se der med END-tasten, vi kan se alle piletasterne som "xlDown, xlToLeft, xlToRight og xlUp", da vi skal flytte ned, brug "xlDown" -indstillingen.

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 fører dig til den sidste celle før en pause, nu i den aktive celle har vi brug for række nummer, så brug ROW-egenskab.

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, færdig. Nu viser dette det sidste række nummer, og det vil være antallet af rækker.

Så i rækker har vi data.

Eksempel # 3 - Find sidst brugt række

At finde den sidst anvendte række er så vigtig at beslutte, hvor mange gange sløjfen skal køre, og også i ovenstående metode stopper den sidste række for at vælge, om der er nogen breakpoint-celle, så i denne metode kan vi finde den sidst anvendte række uden nogen problemer.

Åbn CELL-ejendom.

Kode:

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

Nu skal vi nævne række nummeret til at begynde med, problemet her er, at vi ikke er sikre på, hvor mange rækker med data vi har, så hvad vi kan gøre er, at vi straks går til den sidste række i regnearket, for denne omtale RÆGER .COUNT ejendom.

Kode:

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

Dernæst skal vi nævne i hvilken kolonne vi finder den sidst anvendte række, så i dette tilfælde finder vi i den første kolonne, så næv 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

I øjeblikket tager det dig til den sidste celle i den første kolonne, derfra og fremad skal vi bevæge os opad for at gå til den sidst brugte celle, så brug End (xlUp) egenskab.

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 fører dig til den sidst anvendte celle i kolonne 1, og i denne celle har vi brug for række nummer, så brug ROW egenskab for at få række nummer.

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 at huske

  • COUNT giver et antal rækker i regnearket.
  • Hvis du har et interval, giver det et antal rækker valgt i området.
  • ROW-egenskaben returnerer det aktive celle række nummer.

Interessante artikler...