Kazalo
Če iščete nekaj najlažjih načinov za štetje vrstic s podatki v stolpcu z Excelom VBA , potem ste na pravem mestu. Začnimo torej z našim glavnim člankom, da boste zlahka izvedeli več o štetju vrstic s podatki v stolpcu.
Prenos delovnega zvezka
Štetje vrstic s podatki.xlsm9 načinov za štetje vrstic s podatki v stolpcu z uporabo programa Excel VBA
Imamo naslednji nabor podatkov, ki vsebuje prodajne zapise podjetja. Uporabili bomo različne stolpce s podatki iz tega nabora podatkov in razložili različne načine štetja vrstic na podlagi podatkov v stolpcu.
Uporabili smo Microsoft Excel 365 različica tukaj, lahko pa uporabite katero koli drugo različico glede na vaše udobje.
Metoda-1: Uporaba lastnosti VBA Rows.Count za štetje vrstic s podatki v stolpcu v Excelu
Pri tem bomo šteli vrstice Prodaja stolpec s prodajnimi vrednostmi za izdelke z uporabo Vrstice. Lastnost Count na spletnem mestu VBA .
Korak-01 :
➤ Pojdi na Razvijalec zavihek>> Visual Basic Možnost.
Nato se Urejevalnik Visual Basic se bo odprlo.
➤ Pojdi na Vstavite zavihek>> Modul Možnost.
Po tem je treba Modul bo ustvarjen.
Korak-02 :
➤ Napišite naslednjo kodo
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Število uporabljenih vrstic je " & X End Sub Tukaj smo razglasili X kot Integer , "D4:D11" je obseg, na podlagi katerega štejemo vrstice, na koncu pa smo številko vrstice dodelili stolpcu X .
Polje za sporočila ( MsgBox ) nam bo dal rezultat kot skupno število vrstic.
➤ Tisk F5 .
Nato boste dobili skupno število vrstic s podatki kot 8 o Prodaja stolpec v polju za sporočila.
Preberite več: Excel VBA za štetje vrstic s podatki (4 primeri)
Metoda-2: Uporaba lastnosti End za štetje vrstic s podatki v stolpcu
V tem razdelku bomo uporabili Končna lastnost na spletnem mestu VBA za štetje vrstic s prodajnimi vrednostmi Prodaja stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Število uporabljenih vrstic je " & (X - 3) End Sub Tukaj smo razglasili X kot Integer , "D4" je začetna vrednost območja, na podlagi katerega stolpca štejemo vrstice, na koncu pa smo dodelili številko vrstice X . X nam bo dal številko zadnje uporabljene vrstice in ne vseh uporabljenih vrstic tega stolpca. Zato smo za pridobitev skupnega števila vrstic odšteli 3 ( Začetna vrstica Številka-1 = 4-1 = 3 ) iz X .
Polje za sporočila ( MsgBox ) se prikaže skupno število vrstic.
➤ Tisk F5 .
Po tem boste imeli na voljo 8 kot skupno število vrstic Prodaja stolpec v polju za sporočila.
Preberite več: Kako šteti vrstice s podatki v Excelu (4 formule)
Metoda-3: Uporaba kombinacije lastnosti Rows.Count in lastnosti End
Pri tem bomo uporabili kombinacijo obeh lastnosti VBA kot je Vrstice. Lastnost Count in Končna lastnost skupaj preštejete vse vrstice v Prodaja stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Število uporabljenih vrstic je " & (X - 3) End Sub Tukaj smo razglasili X kot Integer , 4 na spletnem mestu (Število vrstic, 4) je za Prodaja na podlagi katerega stolpca štejemo vrstice in na koncu smo dodelili številko vrstice X .
X vrne številko zadnje uporabljene vrstice in ne vseh uporabljenih vrstic tega stolpca. 3 ( Začetna vrstica Številka-1 = 4-1 = 3 ) iz X .
Polje za sporočila ( MsgBox ) se prikaže skupno število vrstic.
➤ Tisk F5 .
Nato bomo dobili 8 kot skupno število vrstic Prodaja stolpec v polju za sporočila.
Sorodna vsebina: Kako šteti vrstice z več merili v Excelu (6 metod)
Metoda-4: Uporaba izbirne lastnosti VBA za štetje vrstic s podatki v stolpcu v Excelu
Uporabite lahko Lastnost izbire tudi za štetje vseh vrstic na podlagi podatkov Prodaja stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Število uporabljenih vrstic je " & amp; X End Sub Tukaj smo razglasili X kot Integer , tukaj se bodo štele vrstice izbranega območja, na koncu pa smo številko vrstice dodelili X .
Polje za sporočila ( MsgBox ) nam bo dal rezultat kot skupno število vrstic.
Nato se moramo vrniti na glavni list.
➤ Izberite območje Prodaja in nato pojdite v stolpec Razvijalec zavihek>> Makroji Možnost.
Po tem je Makro Pojavilo se bo pogovorno okno.
➤ Izberite Ime makra Countrows4 , nato pa pritisnite Spustite možnost.
Na koncu bomo dobili naslednje okno s sporočilom, ki pravi "Število uporabljenih vrstic je 8" .
Preberite več: Kako šteti vrstice z VBA v Excelu (5 pristopov)
Metoda-5: Števec vrstic s podatki v stolpcu z uporabo funkcije FIND
V tem primeru bomo uporabili Funkcija FIND za štetje vrstic z besedilnimi nizi v Regija stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
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 "Število uporabljenih vrstic je " & (X - 3) End Sub Tukaj smo razglasili X kot Integer , rng kot Razpon , "C4:C11" je območje, na podlagi katerega štejemo vrstice, na koncu pa smo ga dodelili rng .
Uporabili smo S SPLETNO STRANJO da bi se izognili ponavljanju uporabe imena predmeta, kot je rng .
Uporaba Funkcija FIND , X nam bo dal številko zadnje uporabljene vrstice in ne vseh uporabljenih vrstic tega stolpca. Zato smo za pridobitev skupnega števila vrstic odšteli 3 ( Začetna vrstica Številka-1 = 4-1 = 3 ) iz X .
Polje za sporočila ( MsgBox ) se prikaže skupno število vrstic.
➤ Tisk F5 .
Na koncu boste imeli 8 kot skupno število vrstic Prodaja stolpec v polju za sporočila.
Sorodna vsebina: Excel šteje vidne vrstice (formula in koda VBA)
Podobna branja:
- Štetje vrstic v skupini s preglednico Pivot v Excelu (navodila po korakih)
- Excel VBA: štetje vrstic v listu (5 primerov)
Metoda-6: Štetje nepraznih vrstic s podatki v stolpcu z uporabo VBA
V tem primeru imamo nekaj praznih celic v Prodaja (pri tej metodi smo odstranili nekatere vrednosti) in uporabo stolpca VBA kode bomo šteli le skupno število vrstic z vrednostmi.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
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 "Število uporabljenih vrstic je " & X End Sub Tukaj smo razglasili X kot Dolga , Y in rng kot Razpon , "D4:D11" je območje, na podlagi katerega štejemo vrstice, na koncu pa smo ga dodelili rng .
Spletna stran ZA zanka bo preverila, ali vsaka celica tega območja vsebuje kakršno koli vrednost z uporabo Funkcija COUNTA in za celice z vrednostmi, X se poveča za 1 vsakič.
Na koncu bomo v sporočilnem oknu dobili skupne številke vrstic z nepraznimi celicami.
➤ Tisk F5 .
Sčasoma boste imeli 5 kot skupno število nepraznih vrstic v Prodaja stolpec v polju za sporočila.
Preberite več: Kako prešteti filtrirane vrstice v Excelu s programom VBA (navodila po korakih)
Metoda-7: Štetje vrstic z določeno vrednostjo
Tukaj bomo prešteli skupno število vrstic s prodajno vrednostjo $2,522.00 iz Prodaja stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
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 "Število uporabljenih vrstic je " & X End Sub Tukaj smo razglasili X kot Dolga , Y in rng kot Razpon , "D4:D11" je območje, na podlagi katerega štejemo vrstice, na koncu pa smo ga dodelili rng .
Spletna stran ZA zanka bo preverila, ali katera koli celica tega območja vsebuje prodajno vrednost. 2522 z uporabo Funkcija COUNTIF in za celice s to vrednostjo, X se poveča za 1 vsakič.
Na koncu bomo dobili skupno število vrstic z vrednostjo 2522 prek polja za sporočila.
➤ Tisk F5 .
Na koncu boste imeli 3 kot skupno število vrstic Prodaja stolpec, ki vsebuje prodajno vrednost $2,522.00 v polju za sporočila.
Preberite več: Excel VBA: štetje vrstic z določenimi podatki (8 primerov)
Metoda-8: Štetje vrstic z vrednostmi, ki so večje od določene vrednosti
V tem razdelku bomo prešteli skupno število vrstic z vrednostmi, večjimi od $3000.00 v Prodaja stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
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 "Število uporabljenih vrstic je " & X End Sub Tukaj smo razglasili X kot Dolga , Y in rng kot Razpon , "D4:D11" je območje, na podlagi katerega štejemo vrstice, na koncu pa smo ga dodelili rng .
Spletna stran ZA zanka bo preverila, ali katera koli celica tega območja vsebuje vrednost prodaje, ki je večja od 3000 z uporabo Funkcija COUNTIF (lahko pa poskusite tudi z drugimi pogoji, kot so manj kot, več kot ali enako itd.) in za celice, ki imajo to vrednost, X se poveča za 1 vsakič.
Na koncu bomo dobili skupno število vrstic z vrednostmi, ki so večje od 3000 prek polja za sporočila.
➤ Tisk F5 .
Nato boste imeli na voljo 3 kot skupno število vrstic Prodaja stolpec, ki vsebuje prodajne vrednosti, večje od $3,000.00 v polju za sporočila.
Preberite več: Kako Excel šteje vrstice z vrednostjo (8 načinov)
Metoda-9: Štetje vrstic z določenim besedilnim nizom
Tukaj bomo dobili število vrstic, ki vsebujejo jabolko natančno ali delno v Izdelek stolpec.
Koraki :
➤ Sledite Korak-01 na spletnem mestu Metoda-1 .
➤ Napišite naslednjo kodo
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 "Število uporabljenih vrstic je " & X End Sub Tukaj smo razglasili X kot Dolga , Y in rng kot Razpon , "B4:B11" je območje, na podlagi katerega štejemo vrstice, na koncu pa smo ga dodelili rng .
Spletna stran ZA zanka bo preverila, ali katera od celic tega območja vsebuje besedilni niz "aplicirati" z uporabo Funkcija COUNTIF (pri tem bo upošteval tako natančna ujemanja kot delna ujemanja z uporabo Zvezdica simbol pred in za nizom) in za celice s to vrednostjo, X se poveča za 1 vsakič.
Na koncu bomo dobili skupno število vrstic z besedilnim nizom jabolko prek polja za sporočila.
➤ Tisk F5 .
Potem boste imeli 2 kot skupno število vrstic Izdelek stolpec, ki vsebuje besedilne nize Apple in . Ananas v polju za sporočila.
Preberite več: Kako šteti vrstice z besedilom v Excelu (najlažji načini 8)
Oddelek za prakso
Za samostojno izvajanje prakse smo pripravili Praksa kot spodaj v listu z imenom Praksa . Prosimo, da to storite sami.
Zaključek
V tem članku smo poskušali zajeti načine za štetje vrstic s podatki v stolpcu z uporabo programa Excel. VBA Upam, da vam bo koristilo. Če imate kakršne koli predloge ali vprašanja, jih lahko delite v razdelku s komentarji.
