Indholdsfortegnelse
Hvis du er på udkig efter nogle af de nemmeste måder at tælle rækker med data i en kolonne med Excel VBA , så er du på det rigtige sted. Så lad os starte med vores hovedartikel for at få mere at vide om at tælle rækker med data i en kolonne på en nem måde.
Download arbejdsbog
Tælle rækker med data.xlsm9 måder at tælle rækker med data i kolonne ved hjælp af Excel VBA
Her har vi følgende datasæt, der indeholder salgsposter for en virksomhed. Vi vil bruge forskellige kolonner med data fra dette datasæt for at forklare forskellige måder at tælle rækker på baseret på dataene i en kolonne.
Vi har brugt Microsoft Excel 365 version her, men du kan bruge andre versioner, hvis det passer dig.
Metode-1: Brug af VBA Rows.Count-egenskaben til at tælle rækker med data i kolonne i Excel
Her tæller vi rækker i Salg kolonne med salgsværdier for produkterne ved hjælp af Rows. egenskab Count på VBA .
Step-01 :
➤ Gå til Udvikler Fane>> Visual Basic Mulighed.
Derefter er det Visual Basic-editor vil åbne sig.
➤ Gå til Indsæt Fane>> Modul Mulighed.
Herefter skal en Modul vil blive oprettet.
Step-02 :
➤ Skriv følgende kode
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Antal anvendte rækker er " & X End Sub Her har vi erklæret X som Hele tal , "D4:D11" er det område, på grundlag af hvilket kolonne vi tæller rækker, og endelig har vi tildelt række nummeret til X .
En meddelelsesboks ( MsgBox ) vil give os resultatet som det samlede antal rækker.
➤ Tryk på F5 .
Derefter vil du få det samlede antal rækker med data som 8 af den Salg kolonnen i en meddelelsesboks.
Læs mere: Excel VBA til at tælle rækker med data (4 eksempler)
Metode-2: Brug af End-egenskaben til at tælle rækker med data i kolonne
I dette afsnit vil vi bruge Enden af ejendommen på VBA til at tælle de rækker med salgsværdier for Salg kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Antal anvendte rækker er " & (X - 3) End Sub Her har vi erklæret X som Hele tal , "D4" er startværdien for intervallet, på grundlag af hvilken kolonne vi tæller rækker, og endelig har vi tildelt række nummeret til X . X vil give os det sidst anvendte rækketal og ikke det samlede antal anvendte rækker i denne kolonne. Så for at få det samlede antal rækker har vi trukket 3 ( Startrække nummer 1 = 4-1 = 4-1 = 3 ) fra X .
En meddelelsesboks ( MsgBox ) vises med det samlede antal rækker.
➤ Tryk på F5 .
Derefter vil du have 8 som det samlede antal rækker i Salg kolonnen i en meddelelsesboks.
Læs mere: Sådan tæller du rækker med data i Excel (4 formler)
Metode-3: Brug af kombinationen af Rows.Count-egenskaben og End-egenskaben
Her vil vi bruge kombinationen af de to egenskaber ved VBA som den Rows. egenskab Count og Enden af ejendommen sammen for at tælle de samlede rækker i Salg kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Antal anvendte rækker er " & (X - 3) End Sub Her har vi erklæret X som Hele tal , 4 på (Rækker. Antal, 4) er for den Salg kolonne, på grundlag af hvilken kolonne vi tæller rækker, og til sidst har vi tildelt række nummeret til X .
X returnerer det sidst anvendte rækketal og ikke det samlede antal anvendte rækker i denne kolonne. Så for at få det samlede antal rækker har vi trukket 3 ( Startrække nummer 1 = 4-1 = 4-1 = 3 ) fra X .
En meddelelsesboks ( MsgBox ) vises med det samlede antal rækker.
➤ Tryk på F5 .
Herefter får vi 8 som det samlede antal rækker i Salg kolonnen i en meddelelsesboks.
Relateret indhold: Sådan tæller du rækker med flere kriterier i Excel (6 metoder)
Metode-4: Brug af VBA Selection Property til at tælle rækker med data i kolonne i Excel
Du kan bruge Egenskab for valg også til at tælle de samlede rækker baseret på data fra Salg kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Antal anvendte rækker er " & X End Sub Her har vi erklæret X som Hele tal vil rækkerne i det valgte område blive talt her, og til sidst har vi tildelt række nummeret til X .
En meddelelsesboks ( MsgBox ) vil give os resultatet som det samlede antal rækker.
Derefter skal vi vende tilbage til hovedarket.
➤ Vælg området for den Salg kolonnen, og gå derefter til kolonnen Udvikler Fane>> Makroer Mulighed.
Herefter vil den Makro dialogboksen vises.
➤ Vælg den Makronavn Countrows4 , og derefter skal du trykke på Kør mulighed.
Til sidst får vi følgende beskedboks, hvor der står "Antallet af anvendte rækker er 8" .
Læs mere: Sådan tæller du rækker med VBA i Excel (5 fremgangsmåder)
Metode-5: Tæl rækker med data i kolonne ved hjælp af FIND-funktionen
Her vil vi bruge FIND-funktion til at tælle de rækker med tekststrenge i Region kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub CountRows5() Dim X As Integer Dim rng As Range Set rng = Range("C4:C11") With rng X = .Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row End With MsgBox "Antal anvendte rækker er " & (X - 3) End Sub Her har vi erklæret X som Hele tal , rng som Område , "C4:C11" er det område, på grundlag af hvilket kolonne vi tæller rækker, og endelig har vi tildelt det til rng .
Vi har brugt den MED for at undgå gentagelse af objektnavnet som f.eks. rng .
Brug af den FIND-funktion , X vil give os det sidst anvendte rækketal og ikke det samlede antal anvendte rækker i denne kolonne. Så for at få det samlede antal rækker har vi trukket 3 ( Startrække nummer 1 = 4-1 = 4-1 = 3 ) fra X .
En meddelelsesboks ( MsgBox ) vises med det samlede antal rækker.
➤ Tryk på F5 .
Endelig vil du have 8 som det samlede antal rækker i Salg kolonnen i en meddelelsesboks.
Relateret indhold: Excel tæller synlige rækker (formel og VBA-kode)
Lignende læsninger:
- Tælle rækker i gruppe med pivottabel i Excel (trin for trin-vejledning)
- Excel VBA: Tæl rækker i et ark (5 eksempler)
Metode-6: Tæl ikke-tomme rækker med data i kolonne ved hjælp af VBA
Her har vi nogle tomme celler i Salg kolonne (vi har fjernet nogle værdier til denne metode) og ved hjælp af en VBA kode vil vi kun tælle det samlede antal rækker med værdier.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows6() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountA(Y)> 0 Then X = X + 1 End If Next End With MsgBox "Number of used rows is " & X End Sub Her har vi erklæret X som Lang , Y , og rng som Område , "D4:D11" er det område, på grundlag af hvilket kolonne vi tæller rækker, og endelig har vi tildelt det til rng .
TIL løkken kontrollerer, om hver af cellerne i dette område indeholder en værdi ved hjælp af COUNTA-funktionen og for de celler, der har værdier, X vil blive forhøjet med 1 hver gang.
Endelig får vi det samlede antal rækker med ikke-tomme celler via en beskedboks.
➤ Tryk på F5 .
I sidste ende vil du have 5 som det samlede antal ikke-blanke rækker i Salg kolonnen i en meddelelsesboks.
Læs mere: Sådan tæller du filtrerede rækker i Excel med VBA (trinvis vejledning)
Metode-7: Tæl rækker med en bestemt værdi
Her vil vi tælle det samlede antal rækker med en salgsværdi på $2,522.00 fra den Salg kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows7() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, 2522)> 0 Then X = X + 1 End If Next End With MsgBox "Antal anvendte rækker er " & X End Sub Her har vi erklæret X som Lang , Y , og rng som Område , "D4:D11" er det område, på grundlag af hvilket kolonne vi tæller rækker, og endelig har vi tildelt det til rng .
TIL løkken kontrollerer, om nogen af cellerne i dette område indeholder salgsværdien 2522 ved hjælp af COUNTIF-funktion og for de celler, der har denne værdi, X vil blive forhøjet med 1 hver gang.
Til sidst får vi de samlede antal rækker med værdien af 2522 gennem en beskedboks.
➤ Tryk på F5 .
I sidste ende vil du have 3 som det samlede antal rækker i Salg kolonne, der indeholder salgsværdien af $2,522.00 i en beskedboks.
Læs mere: Excel VBA: Tæl rækker med specifikke data (8 eksempler)
Metode-8: Tæl rækker med værdier, der er større end en bestemt værdi
I dette afsnit tæller vi det samlede antal rækker med værdier større end $3000.00 i den Salg kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows8() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, ">3000")> 0 Then X = X + 1 End If Next End If End With MsgBox "Antal anvendte rækker er " & X End Sub Her har vi erklæret X som Lang , Y , og rng som Område , "D4:D11" er det område, på grundlag af hvilket kolonne vi tæller rækker, og endelig har vi tildelt det til rng .
TIL løkken kontrollerer, om nogen af cellerne i dette område indeholder en salgsværdi, der er større end 3000 ved hjælp af COUNTIF-funktion (eller du kan prøve med andre betingelser som mindre end, større end eller lig med osv.) og for de celler, der har denne værdi, X vil blive forhøjet med 1 hver gang.
Endelig får vi de samlede antal rækker med værdier større end 3000 gennem en beskedboks.
➤ Tryk på F5 .
Herefter vil du have 3 som det samlede antal rækker i Salg kolonnen med de salgsværdier, der er større end $3,000.00 i en beskedboks.
Læs mere: Sådan tæller Excel rækker med værdi (8 måder)
Metode-9: Tæl rækker med en bestemt tekststreng
Vi får antallet af rækker her, der indeholder æble helt eller delvist i den Produkt kolonne.
Trin :
➤ Følg Step-01 på Metode-1 .
➤ Skriv følgende kode
Sub countrows9() Dim X As Long Dim Y, rng As Range Set rng = Range("B4:B11") With rng For Each Y In .Rows If Application.CountIf(Y, "*apple*")> 0 Then X = X + 1 End If Next End If End With MsgBox "Antal anvendte rækker er " & X End Sub Her har vi erklæret X som Lang , Y , og rng som Område , "B4:B11" er det område, på grundlag af hvilket kolonne vi tæller rækker, og endelig har vi tildelt det til rng .
TIL løkken vil kontrollere, om nogen af cellerne i dette område indeholder tekststrengen "anvende" ved hjælp af COUNTIF-funktion (her vil den tælle både de nøjagtige og de delvise matches ved at bruge Asterisk symbolet før og efter strengen), og for de celler, der har denne værdi, X vil blive forhøjet med 1 hver gang.
Til sidst får vi de samlede rækketal med tekststrengen æble gennem en beskedboks.
➤ Tryk på F5 .
Derefter vil du have 2 som det samlede antal rækker i Produkt kolonne, der indeholder tekststrengene Apple og Ananas i en beskedboks.
Læs mere: Sådan tæller du rækker med tekst i Excel (de 8 nemmeste måder)
Øvelsesafsnit
For at du kan øve dig selv, har vi givet dig en Praksis afsnit som nedenfor i et ark med navnet Praksis . gør det venligst selv.
Konklusion
I denne artikel har vi forsøgt at dække de måder at tælle rækker med data i en kolonne på ved hjælp af Excel VBA Hvis du har forslag eller spørgsmål, er du velkommen til at dele dem i kommentarfeltet.
