Kuidas lugeda ridu veergudes olevate andmetega, kasutades VBA-d Excelis (9 võimalust)

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Kui otsite mõningaid lihtsamaid viise, kuidas Exceli abil andmeid sisaldavaid ridu veergudes loendada. VBA , siis olete õiges kohas. Niisiis, alustame meie peamise artikliga, et teada rohkem ridade lugemisest andmete veerus lihtsalt.

Lae alla töövihik

Ridade loendamine andmetega.xlsm

9 viisi, kuidas lugeda ridu andmete veerus olevate andmete abil Exceli VBA abil

Siin on meil järgmine andmestik, mis sisaldab ettevõtte müügikirjeid. Kasutame selle andmestiku erinevate veergudega andmeid, et selgitada erinevaid viise, kuidas lugeda ridu veergude andmete põhjal.

Me oleme kasutanud Microsoft Excel 365 versiooni siin, võite kasutada mis tahes muid versioone vastavalt oma mugavusele.

Meetod-1: VBA Rows.Count-omandi kasutamine Exceli veerus olevate andmete ridade loendamiseks veerus olevate andmete loendamiseks

Siin loendame ridade kaupa Müük veergu toodete müügiväärtustega, kasutades Rows. Count property aadressilt VBA .

Step-01 :

➤ Go to Arendaja Tab>> Visual Basic Võimalus.

Siis on Visual Basic toimetaja avaneb.

➤ Go to Sisesta Tab>> Moodul Võimalus.

Pärast seda on Moodul luuakse.

Step-02 :

➤ Kirjutage järgmine kood 

 Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Kasutatud ridade arv on " & X End Sub

Siinkohal oleme deklareerinud X nagu Tervearvuline , "D4:D11" on vahemik, mille alusel me loendame ridu ja lõpuks oleme määranud rea numbrile X .

Sõnumikast ( MsgBox ) annab meile tulemuseks ridade koguarvu.

➤ Press F5 .

Seejärel saate andmete ridade koguarvu kui 8 kohta Müük veergu sõnumikastis.

Loe edasi: Exceli VBA andmete ridade loendamiseks (4 näidet)

Meetod-2: Endi omaduse kasutamine veerus olevate andmete ridade loendamiseks

Selles jaotises kasutame me End property aadressilt VBA lugeda ridu, mille müügiväärtused on Müük veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Kasutatud ridade arv on " & (X - 3) End Sub

Siinkohal oleme deklareerinud X nagu Tervearvuline , "D4" on vahemiku algväärtus, mille alusel loendame ridu ja lõpuks oleme määranud rea numbrile X . X annab meile viimase kasutatud rea numbri, mitte selle veeru kasutatud ridade koguarvu. Seega, et saada rea koguarvu, oleme lahutanud sellest arvu 3 ( Algav rida number-1 = 4-1 = 3 ) alates X .

Sõnumikast ( MsgBox ) ilmub ridade koguarv.

➤ Press F5 .

Pärast seda on teil 8 kui ridade koguarv Müük veergu sõnumikastis.

Loe edasi: Kuidas lugeda ridu andmete abil Excelis (4 valemit)

Meetod-3: Rows.Count-omaduse ja End-omaduse kombinatsiooni kasutamine

Siinkohal kasutame kahe omaduse kombinatsiooni, milleks on VBA nagu Rows. Count property ja End property kokku, et lugeda kokku ridade Müük veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Kasutatud ridade arv on " & (X - 3) End Sub

Siinkohal oleme deklareerinud X nagu Tervearvuline , 4 aadressil (Ridade arv, 4) on mõeldud Müük veergu, mille alusel loendame ridu ja lõpuks oleme määranud rea numbrile X .

X tagastab viimase kasutatud rea numbri, mitte selle veeru kasutatud ridade koguarvu. Seega, et saada rea koguarvu, oleme maha lahutanud 3 ( Algav rida number-1 = 4-1 = 3 ) alates X .

Sõnumikast ( MsgBox ) ilmub ridade koguarv.

➤ Press F5 .

Pärast seda saame 8 kui ridade koguarv Müük veergu sõnumikastis.

Seotud sisu: Kuidas lugeda ridu mitme kriteeriumiga Excelis (6 meetodit)

Meetod-4: VBA valikuomaduse kasutamine Exceli veerus olevate andmete ridade loendamiseks

Võite kasutada Valiku omadus samuti loendama ridade koguarvu, mis põhineb andmetel Müük veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Kasutatud ridade arv on " & X End Sub

Siinkohal oleme deklareerinud X nagu Tervearvuline , siin loendatakse valitud vahemiku read ja lõpuks oleme määranud rea numbrile X .

Sõnumikast ( MsgBox ) annab meile tulemuseks ridade koguarvu.

Seejärel peame naasma põhilehele.

➤ Valige vahemik Müük veergu ja seejärel minge Arendaja Tab>> Makros Võimalus.

Pärast seda on Makro dialoogiaken avaneb.

➤ Valige Makro nimi countrows4 ja seejärel vajutage nuppu Käivita võimalus.

Lõpuks ilmub järgmine sõnum, mis ütleb, et "Kasutatud ridade arv on 8" .

Loe edasi: Kuidas lugeda ridu VBAga Excelis (5 lähenemisviisi)

Meetod-5: Ridade loendamine veerus olevate andmetega, kasutades funktsiooni FIND

Siinkohal kasutame me FIND funktsioon lugeda read, millel on tekstisõnu, mis on esitatud Piirkond veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 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 "Kasutatud ridade arv on " & (X - 3) End Sub

Siinkohal oleme deklareerinud X nagu Tervearvuline , rng nagu Range , "C4:C11" on vahemik, mille alusel me loendame ridu ja lõpuks oleme määranud selle vahemikuks rng .

Me oleme kasutanud WITH avaldus, et vältida korduvat objekti nime kasutamist nagu rng .

Kasutades FIND funktsioon , X annab meile viimase kasutatud rea numbri, mitte selle veeru kasutatud ridade koguarvu. Seega, et saada rea koguarvu, oleme lahutanud sellest arvu 3 ( Algav rida number-1 = 4-1 = 3 ) alates X .

Sõnumikast ( MsgBox ) ilmub ridade koguarv.

➤ Press F5 .

Lõpuks on teil 8 kui ridade koguarv Müük veergu sõnumikastis.

Seotud sisu: Exceli nähtavate ridade loendamine (valem ja VBA-kood)

Sarnased lugemised:

  • Ridade loendamine rühmas Pivot tabeliga Excelis (samm-sammult juhend)
  • Excel VBA: Ridade loendamine lehel (5 näidet)

Meetod-6: VBA abil veerus olevate andmetega mittetühjade ridade loendamine

Siin on meil mõned tühjad lahtrid Müük veergu (oleme selle meetodi jaoks eemaldanud mõned väärtused) ja kasutades VBA koodiga loeme ainult väärtustega ridade koguarvu.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 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 "Kasutatud ridade arv on " & X End Sub

Siinkohal oleme deklareerinud X nagu Pikk , Y ja rng nagu Range , "D4:D11" on vahemik, mille alusel me loendame ridu ja lõpuks oleme määranud selle vahemikuks rng .

The FOR tsükkel kontrollib, kas selle vahemiku iga lahter sisaldab mingit väärtust, kasutades funktsiooni Funktsioon COUNTA ja lahtrite puhul, millel on väärtused, X suurendatakse 1 iga kord.

Lõpuks saame tühjade lahtritega ridade koguarvu sõnumikasti kaudu.

➤ Press F5 .

Lõpuks on teil 5 kui tühjade ridade koguarv, mis ei ole tühjad. Müük veergu sõnumikastis.

Loe edasi: Kuidas lugeda filtreeritud ridu Excelis VBAga (samm-sammult juhend)

Meetod-7: Arvuta ridu konkreetse väärtusega ridade arvu

Siin loendame nende ridade koguarvu, mille müügiväärtus on $2,522.00 alates Müük veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 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 "Kasutatud ridade arv on " & X End Sub

Siinkohal oleme deklareerinud X nagu Pikk , Y ja rng nagu Range , "D4:D11" on vahemik, mille alusel me loendame ridu ja lõpuks oleme määranud selle vahemikuks rng .

The FOR tsükkel kontrollib, kas mõni selle vahemiku lahtritest sisaldab müügiväärtust. 2522 kasutades COUNTIF funktsioon ja nende lahtrite puhul, millel on see väärtus, X suurendatakse 1 iga kord.

Lõpuks saame kogu rea numbrid koos väärtusega 2522 sõnumi kasti kaudu.

➤ Press F5 .

Lõppkokkuvõttes on teil 3 kui ridade koguarv Müük veerg, mis sisaldab müügiväärtust $2,522.00 sõnumikastis.

Loe edasi: Excel VBA: Ridade loendamine konkreetsete andmetega (8 näidet)

Meetod-8: Arvuta ridu, mille väärtused on suuremad kui konkreetne väärtus

Selles jaotises loendame nende ridade koguarvu, mille väärtused on suuremad kui $3000.00 aastal Müük veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 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 "Kasutatud ridade arv on " & X End Sub

Siinkohal oleme deklareerinud X nagu Pikk , Y ja rng nagu Range , "D4:D11" on vahemik, mille alusel me loendame ridu ja lõpuks oleme määranud selle vahemikuks rng .

The FOR tsükkel kontrollib, kas mõni selle vahemiku lahtritest sisaldab müügiväärtust, mis on suurem kui 3000 kasutades COUNTIF funktsioon (või võite proovida mis tahes muid tingimusi, nagu väiksem kui, suurem kui või võrdne jne) ja lahtrid, millel on see väärtus, X suurendatakse 1 iga kord.

Lõpuks saame kogu rea numbrid, mille väärtused on suuremad kui 3000 sõnumi kasti kaudu.

➤ Press F5 .

Pärast seda on teil 3 kui ridade koguarv Müük veerg, mis sisaldab müügiväärtusi, mis on suuremad kui $3,000.00 sõnumikastis.

Loe lisaks: Kuidas Excel loeb ridu väärtusega (8 võimalust)

Meetod-9: Arvutage ridu, millel on konkreetne tekstijada

Me saame siin ridade arvu, mis sisaldab õun täpselt või osaliselt Toode veerus.

Sammud :

➤ Jälgi Step-01 aadressilt Meetod-1 .

➤ Kirjutage järgmine kood 

 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 "Kasutatud ridade arv on " & X End Sub

Siinkohal oleme deklareerinud X nagu Pikk , Y ja rng nagu Range , "B4:B11" on vahemik, mille alusel me loendame ridu ja lõpuks oleme määranud selle vahemikuks rng .

The FOR tsükkel kontrollib, kas mõni selle vahemiku lahtritest sisaldab tekstistringi "kohaldatakse" kasutades COUNTIF funktsioon (siin loeb see nii täpseid kui ka osalisi vasteid, kasutades funktsiooni Täheke sümbol enne ja pärast stringi) ja nende lahtrite puhul, millel on see väärtus, X suurendatakse 1 iga kord.

Lõpuks saame kogu rea numbrid koos teksti stringiga õun sõnumi kasti kaudu.

➤ Press F5 .

Siis on teil 2 kui ridade koguarv Toode veerg, mis sisaldab tekstisõnu Apple ja Ananass sõnumikastis.

Loe edasi: Kuidas lugeda ridu tekstiga Excelis (kõige lihtsam 8 võimalust)

Praktika sektsioon

Selleks, et ise harjutada, on meil olemas Praktika lõik nagu allpool lehel nimega Praktika Palun tehke seda ise.

Kokkuvõte

Selles artiklis püüdsime katta, kuidas lugeda ridu, mille andmed on veerus, kasutades Excelit. VBA lihtsalt. Loodan, et see on teile kasulik. Kui teil on ettepanekuid või küsimusi, jagage neid julgelt kommentaaride sektsioonis.

Eelmine postitus Excel INDEX MATCH mitme kriteeriumiga (4 sobivat näidet)
Järgmine postitus Kuidas kustutada Exceli alternatiivseid ridu (5 kiiret viisi)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.