Ynhâldsopjefte
As jo op syk binne nei guon fan 'e maklikste manieren om rigen te tellen mei gegevens yn in kolom mei Excel VBA , dan binne jo op it goede plak. Dus, lit ús begjinne mei ús haadartikel om mear te witten oer it tellen fan rigen mei gegevens yn in kolom maklik.
Wurkboek downloade
Rijen telle mei Data.xlsm
9 manieren om rigen te tellen mei gegevens yn kolom mei Excel VBA
Hjir hawwe wy de folgjende dataset mei ferkeaprekords fan in bedriuw. Wy sille ferskate kolommen brûke mei gegevens út dizze dataset om ferskate manieren te ferklearjen om rigen te tellen basearre op de gegevens fan in kolom.
Wy hawwe Microsoft Excel 365
ferzje hjir, kinne jo alle oare ferzjes brûke neffens jo gemak.
Metoade-1: VBA Rows.Count Eigenskip brûke om rigen te tellen mei gegevens yn kolom yn Excel
Hjir, wy sil de rigen telle fan 'e kolom Sales mei ferkeapwearden foar de produkten mei de rijen. Tel eigendom fan VBA .
Stap-01 :
➤ Gean nei Utwikkelder Tab >> Visual Basic Opsje.
Dan sil de Visual Basic Editor iepenje .
➤ Gean nei Ynfoegje Tab >> Module Opsje.
Dêrnei, in Module sil oanmakke wurde.
Stap-02 :
➤ Skriuw de folgjende koade
2608
Hjir hawwe wy X ferklearre as Integer , “D4:D11” is it berik op basis fanhokker kolom wy rigen telle en as lêste hawwe wy it rigenûmer oan X tawiisd.
In berjochtfak ( MsgBox ) sil ús it resultaat jaan as it totale oantal fan rigen.
➤ Druk op F5 .
Dan krije jo it totale oantal rigen mei gegevens as 8 fan de Sales kolom yn in berjochtfak.
Lês mear: Excel VBA om rigen te tellen mei gegevens (4 foarbylden)
Metoade-2: Eineigenskip brûke om rigen te tellen mei gegevens yn kolom
Yn dizze seksje sille wy de Ein eigenskip fan VBA om de rigen te tellen mei ferkeapwearden fan de kolom Sales .
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Skriuw de folgjende koade
1427
Hjir hawwe wy X ferklearre as Geheel getal , “D4” is de startwearde fan it berik op basis fan hokker kolom wy rigen telle en as lêste hawwe wy it rigenûmer tawiisd oan X . X sil ús it lêst brûkte rigenûmer jaan, net it totaal brûkte rigen fan dizze kolom. Dus, om it totale rigenûmer te krijen hawwe wy 3 ( Startrige nûmer-1 = 4-1 = 3 ) fan X lutsen.
In berjochtfak ( MsgBox ) sil ferskine mei it totale oantal rigen.
➤ Druk op F5 .
Dêrnei hawwe jo 8 as it totale oantal rigen fan de kolom Sales yn in berjochtfak.
Lês mear: Hoe te tellenRigen mei gegevens yn Excel (4 formules)
Metoade-3: Mei de kombinaasje fan Rows.Count Eigenskip en Ein Eigenskip
Hjir sille wy de kombinaasje fan de twa eigenskippen brûke fan VBA lykas de rijen. Telle eigendom en de Ein eigenskip tegearre om de totale rigen fan de kolom Sales te tellen.
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Skriuw de folgjende koade
6153
Hjir hawwe wy X ferklearre as Geheel getal , 4 yn (Rows. Count, 4) is foar de Sales kolom op basis fan hokker kolom wy rigen telle en as lêste hawwe wy it rigelnûmer taskreaun oan X .
X jout de lêst brûkte rigel werom nûmer net it totaal brûkte rigen fan dizze kolom. Dus, om it totale rigenûmer te krijen hawwe wy 3 ( Startrige nûmer-1 = 4-1 = 3 ) fan X lutsen.
In berjochtfak ( MsgBox ) sil ferskine mei it totale oantal rigen.
➤ Druk op F5 .
Dêrnei krije wy 8 as it totale oantal rigen fan de kolom Sales yn in berjochtfak.
Besibbe ynhâld: Hoe kinne jo rigen telle mei meardere kritearia yn Excel (6 metoaden)
Metoade-4: VBA-seleksjeeigenskip brûke om rigen te tellen mei gegevens yn kolom yn Excel
Jo kinne de Seleksje-eigenskip ek brûke om de totale rigen te tellen basearre op gegevens fan de Sales kolom.
Stappen :
➤ Folgje Stap-01 fan metoade -1 .
➤ Skriuw de folgjende koade
3743
Hjir hawwe wy X ferklearre as Integer , de rigen fan de selektearre berik sil hjir teld wurde, en as lêste hawwe wy it rigenûmer tawiisd oan X .
In berjochtfak ( MsgBox ) sil ús it resultaat jaan as it totaal oantal rigen.
Dan moatte wy werom nei it haadblêd.
➤ Selektearje it berik fan de Sales kolom , en gean dan nei de Untwikkelder Tab >> Makro's Opsje.
Dêrnei, de Macro dialoochfinster sil ferskine.
➤ Selektearje de Makro namme countrows4 , en druk dan op de Utfiere opsje.
Uteinlik krije wy it folgjende berjochtfakje dat seit "Number of used rows is 8" .
Lês mear: Hoe kinne jo rigen telle mei VBA yn Excel (5 oanpakken)
Metoade-5: Telle rigen mei gegevens yn kolom mei help fan FIND-funksje
Hjir sille wy de Fynfunksje om de rigen te tellen mei teksttekens yn de kolom Regio .
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Skriuw de folgjende koade
7944
Hjir hawwe wy ferklearre X as Integer , rng as Range , “C4:C11” is it berik op basis fan hokker kolom wy rige rigen telle en úteinlik hawwe wy it tawiisd rng .
Wy hawwe de WITH statement brûkt om de werhelling fan it brûken fan de objektnamme lykas rng te foarkommen.
Mei de FIND-funksje sil X ús it lêst brûkte rigenûmer jaan, net it totaal brûkte rigen fan dizze kolom. Dus, om it totale rigenûmer te krijen hawwe wy 3 ( Startrige nûmer-1 = 4-1 = 3 ) fan X lutsen.
In berjochtfak ( MsgBox ) sil ferskine mei it totale oantal rigen.
➤ Druk op F5 .
Uteinlik hawwe jo 8 as it totale oantal rigen fan 'e kolom Sales yn in berjochtfak.
Besibbe ynhâld: Excel telle sichtbere rigen (formule en VBA-koade)
Silkene lêzingen:
- Rien telle yn groep mei draaitabel yn Excel (stap-foar-stap-rjochtline)
- Excel VBA: Telle rigen yn in blêd (5 foarbylden)
Metoade-6: Net-lege rigen telle mei gegevens yn kolom mei VBA
Hjir hawwe wy wat lege sellen yn 'e kolom Sales (wy hawwe wat wearden foar dizze metoade fuortsmiten) en mei in VBA koade telle wy allinich it totale oantal rigen mei wearden.
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Skriuw de folgjende koade
5986
Hjir hawwe wy ferklearre X as Lang , Y , en rng as berik , “D4:D11” is it berik op basis fan hokker kolom wy rekkenje rigen en úteinlik hawwe wyhat it tawiisd oan rng .
De FOR -lus sil kontrolearje oft elk fan 'e sellen fan dit berik in wearde befettet mei de COUNTA-funksje en foar de sellen dy't wearden hawwe, wurdt X elke kear ferhege mei 1 .
Op it lêst krije wy de totale rigenûmers mei net-lege sellen fia in berjocht doaze.
➤ Druk op F5 .
Uteinlik hawwe jo 5 as it totale oantal net-lege rigen fan de Sales kolom yn in berjochtfak.
Lês Mear: Hoe kinne jo filtere rigen telle yn Excel mei VBA ( Stap-foar-stap rjochtline)
Metoade-7: Telle rigen mei in spesifike wearde
Hjir sille wy it totale oantal rigen telle mei in ferkeapwearde fan $2.522.00 fan de Sales kolom.
Stappen :
➤ Folgje Stap -01 fan Metoade-1 .
➤ Skriuw de folgjende koade
3515
Hjir hawwe wy X ferklearre as Long , Y , en rng as Range , “D4:D11” is it berik op basis wêrfan kolom, wy telle rigen en as lêste hawwe wy it tawiisd oan rng .
De FOR lus sil kontrolearje oft ien fan 'e sellen fan dit berik de ferkeapwearde
Uteinlik krije wy de totale rigenûmers mei de wearde fan 2522 fia in berjochtdoaze.
➤ Druk op F5 .
Uteinlik hawwe jo 3 as it totale oantal rigen fan de Sales kolom mei de ferkeapwearde fan $2.522.00 yn in berjochtfak.
Lês mear: Excel VBA: Telle rigen mei spesifike gegevens (8 foarbylden)
Metoade-8: Tellen fan rigen mei wearden grutter dan in spesifike wearde
Yn dizze seksje sille wy telle it totale oantal rigen mei wearden grutter dan $3000.00 yn de Sales kolom.
Stappen :
➤ Folgje Stap-01 fan Metoade-1 .
➤ Skriuw de folgjende koade
9664
Hjir hawwe wy X ferklearre as Lang , Y , en rng as Range , “D4:D11” is it berik op basis fan hokker kolom wy rigen telle en as lêste hawwe wy it tawiisd oan rng .
De FOR loop sil kontrolearje oft ien fan 'e sellen fan dit berik de ferkeapwearde befettet grutter dan 3000 mei de COUNTIF-funksje (of jo kinne besykje foar in oare betingsten lykas minder as, grutter as, of gelyk oan, ensfh.) en foar de sellen dy't dizze wearde hawwe, wurdt X elke kear ferhege mei 1
. Uteinlik krije wy de totale rigenûmers mei wearden grutter as 3000 fia in berjochtfak.
➤ Druk op F5 .
Dêrnei sille jo 3 hawwe as it totale oantal rigen fan 'e kolom Sales mei de ferkeapwearden grutter dan $3.000.00 yn in berjochtfak.
Lês mear: Hoe Excel Count Rows with Value (8) Ways)
Metoade-9: Telle rigen mei in spesifike tekststring
Wy krije hjir it oantal rigen mei appel krekt of foar in part yn de Produkt kolom.
Stappen :
➤ Folgje Stap- 01 fan Metoade-1 .
➤ Skriuw de folgjende koade
8670
Hjir hawwe wy X as Lang ferklearre , Y , en rng as Range , “B4:B11” is it berik op basis fan hokker kolom wy binne rigen te tellen en as lêste hawwe wy it tawiisd oan rng .
De FOR lus sil kontrolearje oft ien fan 'e sellen fan dit berik de tekststring befettet "apply" mei de COUNTIF-funksje (hjir sil it telle foar sawol de krekte oerienkomsten as foar partoerienkomsten troch it Asterisk symboal foar en nei de tekenrige te brûken), en foar de sellen dy't dizze wearde hawwe, sil X elke tiid ferhege wurde mei 1 e.
Ut it lêst krije wy de totale rigenûmers mei tekststring apple fia in berjochtfak.
➤ Druk op F5 .
Dan hawwe jo 2 as it totale oantal rigen fan 'e Produkt kolom mei de tekststrings Apple en Ananas yn in berjochtfak.
Lês mear: Hoe kinne jo rigen telle mei tekst yn Excel (maklikst8 Ways)
Oefeningsdiel
Om sels te oefenjen hawwe wy in Oefenje -seksje levere lykas hjirûnder yn in blêd mei de namme Oefenje . Doch it asjebleaft sels.
Konklúzje
Yn dit artikel hawwe wy besocht de manieren te dekken om rigen te tellen mei gegevens yn in kolom mei Excel VBA maklik. Hoopje dat jo it nuttich fine. As jo suggestjes of fragen hawwe, diel se dan frij yn 'e kommentaar seksje.
