Ako počítať riadky s údajmi v stĺpci pomocou VBA v programe Excel (9 spôsobov)

Hugh West

16-10-2023 Makrá & Excel VBA
  • Zdieľajte To
Hugh West

Ak hľadáte niektoré z najjednoduchších spôsobov počítania riadkov s údajmi v stĺpci pomocou aplikácie Excel VBA , potom ste na správnom mieste. Začnime teda naším hlavným článkom, aby ste sa dozvedeli viac o jednoduchom počítaní riadkov s údajmi v stĺpci.

Stiahnite si pracovný zošit

Počítanie riadkov s údajmi.xlsm

9 spôsobov počítania riadkov s údajmi v stĺpci pomocou programu Excel VBA

Máme tu nasledujúci súbor údajov obsahujúci záznamy o predaji spoločnosti. Použijeme rôzne stĺpce s údajmi z tohto súboru údajov, aby sme vysvetlili rôzne spôsoby počítania riadkov na základe údajov stĺpca.

Použili sme Microsoft Excel 365 verziu, môžete použiť aj iné verzie podľa vlastného uváženia.

Metóda 1: Použitie vlastnosti VBA Rows.Count na počítanie riadkov s údajmi v stĺpci v programe Excel

Tu budeme počítať riadky Predaj stĺpec s hodnotami predaja produktov pomocou Vlastnosť Rows. Count z VBA .

Krok-01 :

➤ Prejsť na Vývojár Karta>> Visual Basic Možnosť.

Potom sa Editor jazyka Visual Basic sa otvorí.

➤ Prejsť na Vložte Karta>> Modul Možnosť.

Potom sa Modul sa vytvorí.

Krok-02 :

➤ Napíšte nasledujúci kód 

 Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Počet použitých riadkov je " & X End Sub

Tu sme vyhlásili. X ako Celé číslo , "D4:D11" je rozsah, na základe ktorého počítame riadky a nakoniec sme priradili číslo riadku X .

Pole so správou ( MsgBox ) nám poskytne výsledok ako celkový počet riadkov.

➤ Tlač F5 .

Potom získate celkový počet riadkov s údajmi ako 8 z Predaj stĺpec v poli správy.

Prečítajte si viac: Excel VBA na počítanie riadkov s údajmi (4 príklady)

Metóda 2: Použitie vlastnosti End na počítanie riadkov s údajmi v stĺpci

V tejto časti budeme používať Koncová vlastnosť z VBA na počítanie riadkov s predajnými hodnotami Predaj stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda-1 .

➤ Napíšte nasledujúci kód 

 Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Počet použitých riadkov je " & (X - 3) End Sub

Tu sme vyhlásili. X ako Celé číslo , "D4" je počiatočná hodnota rozsahu, na základe ktorého stĺpca počítame riadky a nakoniec sme priradili číslo riadku X . X nám poskytne číslo posledného použitého riadku, nie celkový počet použitých riadkov tohto stĺpca. Aby sme teda získali celkový počet riadkov, odčítali sme 3 ( Počiatočné číslo riadku-1 = 4-1 = 3 ) od X .

Pole so správou ( MsgBox ) sa zobrazí celkový počet riadkov.

➤ Tlač F5 .

Potom budete mať 8 ako celkový počet riadkov Predaj stĺpec v poli správy.

Prečítajte si viac: Ako počítať riadky s údajmi v programe Excel (4 vzorce)

Metóda 3: Použitie kombinácie vlastností Rows.Count a End

Tu použijeme kombináciu dvoch vlastností VBA ako je Vlastnosť Rows. Count a Koncová vlastnosť spoločne spočítať celkový počet riadkov Predaj stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda-1 .

➤ Napíšte nasledujúci kód 

 Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Počet použitých riadkov je " & (X - 3) End Sub

Tu sme vyhlásili. X ako Celé číslo , 4 na stránke (Počet riadkov, 4) je pre Predaj na základe ktorého stĺpca počítame riadky a nakoniec sme priradili číslo riadku X .

X vráti číslo posledného použitého riadku, nie celkový počet použitých riadkov tohto stĺpca. 3 ( Počiatočné číslo riadku-1 = 4-1 = 3 ) od X .

Pole so správou ( MsgBox ) sa zobrazí celkový počet riadkov.

➤ Tlač F5 .

Potom dostaneme 8 ako celkový počet riadkov Predaj stĺpec v poli správy.

Súvisiaci obsah: Ako počítať riadky s viacerými kritériami v programe Excel (6 metód)

Metóda 4: Použitie vlastnosti výberu VBA na počítanie riadkov s údajmi v stĺpci v programe Excel

Môžete použiť Vlastnosť výberu tiež spočítať celkový počet riadkov na základe údajov Predaj stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda 1 .

➤ Napíšte nasledujúci kód 

 Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Počet použitých riadkov je " & X End Sub

Tu sme vyhlásili. X ako Celé číslo , tu sa spočítajú riadky vybraného rozsahu a nakoniec sme priradili číslo riadku X .

Pole so správou ( MsgBox ) nám poskytne výsledok ako celkový počet riadkov.

Potom sa musíme vrátiť do hlavného listu.

➤ Vyberte rozsah Predaj a potom prejdite do stĺpca Vývojár Karta>> Makrá Možnosť.

Potom sa Makro Zobrazí sa dialógové okno.

➤ Vyberte Názov makra countrows4 a potom stlačte tlačidlo Spustiť možnosť.

Nakoniec sa zobrazí nasledujúce okno so správou "Počet použitých riadkov je 8" .

Prečítajte si viac: Ako počítať riadky pomocou VBA v programe Excel (5 prístupov)

Metóda 5: Počítanie riadkov s údajmi v stĺpci pomocou funkcie FIND

Tu použijeme Funkcia FIND na počítanie riadkov s textovými reťazcami v Región stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda 1 .

➤ Napíšte nasledujúci kód 

 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 "Počet použitých riadkov je " & (X - 3) End Sub

Tu sme vyhlásili. X ako Celé číslo , rng ako Rozsah , "C4:C11" je rozsah, na základe ktorého počítame riadky a nakoniec sme ho priradili k rng .

Použili sme S príkaz, aby sa predišlo opakovanému používaniu názvu objektu, ako napr. rng .

Použitie Funkcia FIND , X nám poskytne číslo posledného použitého riadku, nie celkový počet použitých riadkov tohto stĺpca. Aby sme teda získali celkový počet riadkov, odčítali sme 3 ( Počiatočné číslo riadku-1 = 4-1 = 3 ) od X .

Pole so správou ( MsgBox ) sa zobrazí celkový počet riadkov.

➤ Tlač F5 .

Nakoniec budete mať 8 ako celkový počet riadkov Predaj stĺpec v poli správy.

Súvisiaci obsah: Excel Počítať viditeľné riadky (vzorec a kód VBA)

Podobné čítanie:

  • Počítanie riadkov v skupine pomocou pivotnej tabuľky v programe Excel (návod krok za krokom)
  • Excel VBA: Počítanie riadkov v liste (5 príkladov)

Metóda 6: Počítanie neprázdnych riadkov s údajmi v stĺpci pomocou VBA

Tu máme niekoľko prázdnych buniek v Predaj (pre túto metódu sme odstránili niektoré hodnoty) a pomocou stĺpca VBA kódu budeme počítať len celkový počet riadkov s hodnotami.

Kroky :

➤ sledovať Krok-01 z Metóda 1 .

➤ Napíšte nasledujúci kód 

 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 "Počet použitých riadkov je " & X End Sub

Tu sme vyhlásili. X ako Dlhé , Y a rng ako Rozsah , "D4:D11" je rozsah, na základe ktorého počítame riadky a nakoniec sme ho priradili k rng .

Stránka PRE skontroluje, či každá z buniek tohto rozsahu obsahuje nejakú hodnotu pomocou Funkcia COUNTA a pre bunky s hodnotami, X sa zvýši o 1 zakaždým.

Nakoniec získame celkové čísla riadkov s neprázdnymi bunkami prostredníctvom poľa správ.

➤ Tlač F5 .

Nakoniec budete mať 5 ako celkový počet neprázdnych riadkov Predaj stĺpec v poli správy.

Prečítajte si viac: Ako počítať filtrované riadky v programe Excel pomocou VBA (návod krok za krokom)

Metóda 7: Počítanie riadkov s určitou hodnotou

Tu spočítame celkový počet riadkov s predajnou hodnotou $2,522.00 z Predaj stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda 1 .

➤ Napíšte nasledujúci kód 

 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 "Počet použitých riadkov je " & X End Sub

Tu sme vyhlásili. X ako Dlhé , Y a rng ako Rozsah , "D4:D11" je rozsah, na základe ktorého počítame riadky a nakoniec sme ho priradili k rng .

Stránka PRE slučka skontroluje, či niektorá z buniek tohto rozsahu obsahuje hodnotu predaja 2522 pomocou Funkcia COUNTIF a pre bunky s touto hodnotou, X sa zvýši o 1 zakaždým.

Nakoniec získame celkové čísla riadkov s hodnotou 2522 prostredníctvom poľa správ.

➤ Tlač F5 .

Nakoniec budete mať 3 ako celkový počet riadkov Predaj stĺpec obsahujúci predajnú hodnotu $2,522.00 v poli správy.

Čítajte viac: Excel VBA: Počítanie riadkov s konkrétnymi údajmi (8 príkladov)

Metóda-8: Počítanie riadkov s hodnotami väčšími ako určitá hodnota

V tejto časti spočítame celkový počet riadkov s hodnotami väčšími ako $3000.00 v Predaj stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda 1 .

➤ Napíšte nasledujúci kód 

 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 With MsgBox "Počet použitých riadkov je " & X End Sub

Tu sme vyhlásili. X ako Dlhé , Y a rng ako Rozsah , "D4:D11" je rozsah, na základe ktorého počítame riadky a nakoniec sme ho priradili k rng .

Stránka PRE skontroluje, či niektorá z buniek tohto rozsahu obsahuje hodnotu predaja väčšiu ako 3000 pomocou Funkcia COUNTIF (alebo môžete vyskúšať akékoľvek iné podmienky, napríklad menej ako, väčšie ako alebo rovné atď.) a bunky s touto hodnotou, X sa zvýši o 1 zakaždým.

Nakoniec získame celkový počet riadkov s hodnotami väčšími ako 3000 prostredníctvom poľa správ.

➤ Tlač F5 .

Potom budete mať 3 ako celkový počet riadkov Predaj stĺpec obsahujúci hodnoty predaja väčšie ako $3,000.00 v poli správy.

Prečítajte si viac: Ako Excel počíta riadky s hodnotou (8 spôsobov)

Metóda-9: Počítanie riadkov s konkrétnym textovým reťazcom

Tu získame počet riadkov obsahujúcich jablko presne alebo čiastočne v Produkt stĺpec.

Kroky :

➤ sledovať Krok-01 z Metóda 1 .

➤ Napíšte nasledujúci kód 

 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 With MsgBox "Počet použitých riadkov je " & X End Sub

Tu sme vyhlásili. X ako Dlhé , Y a rng ako Rozsah , "B4:B11" je rozsah, na základe ktorého počítame riadky a nakoniec sme ho priradili k rng .

Stránka PRE skontroluje, či niektorá z buniek tohto rozsahu obsahuje textový reťazec "aplikovať" pomocou Funkcia COUNTIF (tu sa započítajú presné aj čiastočné zhody pomocou Hviezdička symbol pred a za reťazcom) a pre bunky s touto hodnotou, X sa zvýši o 1 zakaždým.

Nakoniec získame celkové čísla riadkov s textovým reťazcom jablko prostredníctvom poľa správ.

➤ Tlač F5 .

Potom budete mať 2 ako celkový počet riadkov Produkt stĺpec obsahujúci textové reťazce Apple a Ananás v poli správy.

Prečítajte si viac: Ako počítať riadky s textom v programe Excel (8 najjednoduchších spôsobov)

Praktická časť

Na precvičovanie sme vám poskytli Prax sekciu ako nižšie v hárku s názvom Prax . Prosím, urobte to sami.

Záver

V tomto článku sme sa pokúsili pokryť spôsoby počítania riadkov s údajmi v stĺpci pomocou aplikácie Excel VBA Dúfam, že to bude pre vás užitočné. Ak máte nejaké návrhy alebo otázky, neváhajte sa o ne podeliť v sekcii komentárov.

Predchádzajúci príspevok Excel INDEX MATCH s viacerými kritériami (4 vhodné príklady)
Ďalší príspevok Ako odstrániť náhradné riadky v programe Excel (5 rýchlych spôsobov)

Hugh West je veľmi skúsený tréner a analytik Excelu s viac ako 10-ročnými skúsenosťami v tomto odvetví. Má bakalársky titul v odbore účtovníctvo a financie a magisterský titul v odbore Business Administration. Hugh má vášeň pre vyučovanie a vyvinul jedinečný vyučovací prístup, ktorý sa dá ľahko sledovať a pochopiť. Jeho odborné znalosti Excelu pomohli tisíckam študentov a profesionálov na celom svete zlepšiť svoje zručnosti a vyniknúť vo svojej kariére. Hugh sa prostredníctvom svojho blogu delí o svoje znalosti so svetom a ponúka bezplatné výukové programy Excelu a online školenia, ktoré jednotlivcom a firmám pomôžu naplno využiť ich potenciál.