Sisällysluettelo
Jos etsit joitain helpoimpia tapoja laskea rivejä, joissa on tietoja sarakkeessa Excelin avulla. VBA Aloitetaan siis pääartikkelista, jossa kerrotaan lisää rivien laskemisesta sarakkeessa olevilla tiedoilla helposti.
Lataa työkirja
Count Rows with Data.xlsm9 tapaa laskea rivejä, joissa on tietoja sarakkeessa Excel VBA: n avulla
Meillä on seuraava tietokokonaisuus, joka sisältää yrityksen myyntitietoja. Käytämme eri sarakkeita, joissa on tietoja tästä tietokokonaisuudesta, selittääksemme eri tapoja laskea rivejä sarakkeen tietojen perusteella.
Olemme käyttäneet Microsoft Excel 365 versiota tässä, voit käyttää mitä tahansa muita versioita haluamasi mukaan.
Menetelmä-1: VBA Rows.Count -ominaisuuden käyttäminen rivien laskemiseen Excelin sarakkeessa olevilla tiedoilla
Tässä laskemme rivejä, jotka ovat Myynti sarakkeeseen tuotteiden myyntiarvot käyttäen Rivit. Count-ominaisuus of VBA .
Step-01 :
➤ Go to Kehittäjä Tab>> Visual Basic Vaihtoehto.
Sitten Visual Basic Editor avautuu.
➤ Go to Lisää Tab>> Moduuli Vaihtoehto.
Sen jälkeen Moduuli luodaan.
Step-02 :
➤ Kirjoita seuraava koodi
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Käytettyjen rivien määrä on " & X End Sub Tässä olemme ilmoittaneet X kuten Kokonaisluku , "D4:D11" on alue, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet rivinumeron kohtaan X .
Viestiruutu ( MsgBox ) antaa tulokseksi rivien kokonaismäärän.
➤ Lehdistö F5 .
Tämän jälkeen saat dataa sisältävien rivien kokonaismäärän muodossa 8 of the Myynti sarakkeessa viestiruudussa.
Lue lisää: Excel VBA laskemaan rivejä tietojen kanssa (4 esimerkkiä)
Menetelmä-2: End-ominaisuuden käyttäminen rivien laskemiseen sarakkeessa olevien tietojen kanssa.
Tässä jaksossa käytämme Loppuominaisuus of VBA laskea rivit, joilla on myynnin arvot, jotka ovat Myynti sarake.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Käytettyjen rivien määrä on " & (X - 3) End Sub Tässä olemme ilmoittaneet X kuten Kokonaisluku , "D4" on alueen alkuarvo, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet rivinumeron arvoon X . X antaa meille viimeksi käytetyn rivin numeron, ei tämän sarakkeen kaikkien käytettyjen rivien lukumäärää. Saadaksemme rivien kokonaislukumäärän vähennämme siitä siis 3 ( Aloitusrivi numero-1 = 4-1 = 3 ) alkaen X .
Viestiruutu ( MsgBox ) tulee näkyviin rivien kokonaismäärä.
➤ Lehdistö F5 .
Sen jälkeen sinulla on 8 rivejen kokonaislukumääränä Myynti sarakkeessa viestiruudussa.
Lue lisää: Kuinka laskea rivejä tietojen kanssa Excelissä (4 kaavaa)
Menetelmä-3: Rows.Count-ominaisuuden ja End-ominaisuuden yhdistelmän käyttö
Tässä käytämme näiden kahden ominaisuuden yhdistelmää. VBA kuten Rivit. Count-ominaisuus ja Loppuominaisuus yhdessä laskea rivejä yhteensä rivit Myynti sarake.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Käytettyjen rivien määrä on " & (X - 3) End Sub Tässä olemme ilmoittaneet X kuten Kokonaisluku , 4 osoitteessa (Rivit. Count, 4) on tarkoitettu Myynti sarakkeen perusteella, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet rivinumeron numerolle X .
X palauttaa viimeisen käytetyn rivin numeron, ei sarakkeen kaikkien käytettyjen rivien kokonaismäärää. Saadaksemme rivien kokonaismäärän olemme siis vähentäneet siitä 3 ( Aloitusrivi numero-1 = 4-1 = 3 ) alkaen X .
Viestiruutu ( MsgBox ) tulee näkyviin rivien kokonaismäärä.
➤ Lehdistö F5 .
Sen jälkeen saamme 8 rivejen kokonaislukumääräksi Myynti sarakkeessa viestiruudussa.
Liittyvä sisältö: Kuinka laskea rivejä useilla kriteereillä Excelissä (6 menetelmää)
Menetelmä-4: VBA-valintaominaisuuden käyttäminen rivien laskemiseen Excelin sarakkeessa olevilla tiedoilla
Voit käyttää Valintaominaisuus myös laskea rivejä yhteensä tietojen perusteella, jotka perustuvat Myynti sarake.
Portaat :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Käytettyjen rivien määrä on " & X End Sub Tässä olemme ilmoittaneet X kuten Kokonaisluku , valitun alueen rivit lasketaan tässä, ja lopuksi olemme antaneet rivinumeron kohtaan X .
Viestiruutu ( MsgBox ) antaa tulokseksi rivien kokonaismäärän.
Sitten meidän on palattava pääarkille.
➤ Valitse alue Myynti sarakkeeseen, ja siirry sitten Kehittäjä Tab>> Makrot Vaihtoehto.
Sen jälkeen Makro valintaikkuna avautuu.
➤ Valitse Makron nimi countrows4 ja paina sitten Suorita vaihtoehto.
Lopuksi saamme seuraavan viestin, jossa lukee seuraavaa "Käytettyjen rivien määrä on 8" .
Lue lisää: Rivien laskeminen VBA:lla Excelissä (5 lähestymistapaa)
Menetelmä-5: Rivien laskeminen sarakkeessa olevilla tiedoilla FIND-funktion avulla
Tässä käytämme FIND-toiminto laskea rivit, joilla on tekstijonoja kentässä Alue sarake.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
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 "Käytettyjen rivien määrä on " & (X - 3) End Sub Tässä olemme ilmoittaneet X kuten Kokonaisluku , rng kuten Valikoima , "C4:C11" on alue, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet sen arvolle rng .
Olemme käyttäneet WITH lauseketta, jotta vältytään toistuvalta objektin nimen käytöltä kuten rng .
Käyttämällä FIND-toiminto , X antaa meille viimeksi käytetyn rivin numeron, ei tämän sarakkeen kaikkien käytettyjen rivien lukumäärää. Saadaksemme rivien kokonaislukumäärän vähennämme siitä siis 3 ( Aloitusrivi numero-1 = 4-1 = 3 ) alkaen X .
Viestiruutu ( MsgBox ) tulee näkyviin rivien kokonaismäärä.
➤ Lehdistö F5 .
Lopuksi sinulla on 8 rivejen kokonaislukumääränä Myynti sarakkeessa viestiruudussa.
Liittyvä sisältö: Excel Count näkyvät rivit (kaava ja VBA-koodi)
Samanlaisia lukemia:
- Laske rivit ryhmässä Pivot-taulukon kanssa Excelissä (vaiheittainen ohje)
- Excel VBA: Rivien laskeminen arkissa (5 esimerkkiä)
Menetelmä-6: Laske muut kuin tyhjät rivit, joissa on tietoja sarakkeessa VBA:n avulla.
Tässä meillä on joitakin tyhjiä soluja Myynti sarakkeessa (olemme poistaneet joitakin arvoja tätä menetelmää varten) ja käyttämällä saraketta VBA koodissa laskemme vain niiden rivien kokonaismäärän, joilla on arvoja.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
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 "Käytettyjen rivien määrä on " & X End Sub Tässä olemme ilmoittaneet X kuten Pitkä , Y ja rng kuten Valikoima , "D4:D11" on alue, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet sen arvolle rng .
The FOR silmukka tarkistaa, sisältääkö kukin tämän alueen soluista jonkin arvon käyttämällä komentoa COUNTA-toiminto ja niiden solujen osalta, joilla on arvoja, X lisätään 1 joka kerta.
Lopuksi saamme viestiruudun kautta rivien kokonaismäärät, joissa ei ole tyhjiä soluja.
➤ Lehdistö F5 .
Lopulta sinulla on 5 tyhjentämättömien rivien kokonaislukumääränä. Myynti sarakkeessa viestiruudussa.
Lue lisää: Suodatettujen rivien laskeminen Excelissä VBA: n avulla (vaiheittainen ohje)
Menetelmä-7: Laske rivit, joilla on tietty arvo
Tässä laskemme niiden rivien kokonaismäärän, joiden myyntiarvo on $2,522.00 alkaen Myynti sarake.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
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 "Käytettyjen rivien määrä on " & X End Sub Tässä olemme ilmoittaneet X kuten Pitkä , Y ja rng kuten Valikoima , "D4:D11" on alue, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet sen arvolle rng .
The FOR Silmukka tarkistaa, sisältääkö jokin tämän alueen soluista myyntiarvon. 2522 käyttämällä COUNTIF-toiminto ja soluille, joilla on tämä arvo, X lisätään 1 joka kerta.
Lopuksi saamme rivien kokonaisluvut arvolla 2522 viestikentän kautta.
➤ Lehdistö F5 .
Loppujen lopuksi sinulla on 3 kuin rivien kokonaismäärä rivejä Myynti sarake, joka sisältää myyntiarvon $2,522.00 viestiruutuun.
Lue lisää: Excel VBA: Rivien laskeminen tietyillä tiedoilla (8 esimerkkiä)
Menetelmä-8: Laske rivit, joiden arvot ovat suurempia kuin tietty arvo.
Tässä jaksossa lasketaan niiden rivien kokonaismäärä, joiden arvo on suurempi kuin $3000.00 vuonna Myynti sarake.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
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 "Käytettyjen rivien määrä on " & X End Sub Tässä olemme ilmoittaneet X kuten Pitkä , Y ja rng kuten Valikoima , "D4:D11" on alue, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet sen arvolle rng .
The FOR Silmukka tarkistaa, jos jokin tämän alueen soluista sisältää myyntiarvon, joka on suurempi kuin 3000 käyttämällä COUNTIF-toiminto (tai voit kokeilla muita ehtoja, kuten pienempi kuin, suurempi kuin tai yhtä suuri kuin jne.) ja soluja, joilla on tämä arvo, X lisätään 1 joka kerta.
Lopuksi saamme rivien kokonaislukumäärän, jonka arvo on suurempi kuin 3000 viestikentän kautta.
➤ Lehdistö F5 .
Sen jälkeen sinulla on 3 kuin rivien kokonaismäärä rivejä Myynti sarake, joka sisältää myyntiarvot, jotka ovat suurempia kuin $3,000.00 viestiruutuun.
Lue lisää: Miten Excel laskee rivit arvolla (8 tapaa)
Menetelmä-9: Laske rivit, joissa on tietty merkkijono
Saamme tässä rivejä, jotka sisältävät seuraavat tiedot omena täsmälleen tai osittain Tuote sarake.
Askeleet :
➤ Seuraa Step-01 of Menetelmä-1 .
➤ Kirjoita seuraava koodi
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 "Käytettyjen rivien määrä on " & X End Sub Tässä olemme ilmoittaneet X kuten Pitkä , Y ja rng kuten Valikoima , "B4:B11" on alue, jonka sarakkeen perusteella laskemme rivit, ja lopuksi olemme antaneet sen arvolle rng .
The FOR silmukka tarkistaa, sisältääkö jokin tämän alueen soluista merkkijonon tekstin "apply" käyttämällä COUNTIF-toiminto (tässä tapauksessa se laskee sekä tarkat että osittaiset osumat käyttämällä komentoa Asteriski symboli ennen ja jälkeen merkkijonon) ja soluille, joilla on tämä arvo, X lisätään 1 joka kerta.
Lopuksi saamme rivien kokonaisluvut tekstijonon avulla. omena viestikentän kautta.
➤ Lehdistö F5 .
Sitten sinulla on 2 kuin rivien kokonaismäärä rivejä Tuote sarake, joka sisältää tekstijonot Apple ja Ananas viestiruutuun.
Lue lisää: Kuinka laskea rivejä tekstillä Excelissä (helpoin 8 tapaa)
Harjoitusosio
Jotta voit harjoitella itse, olemme toimittaneet Harjoitus osiossa alla olevan kaltaisesti arkissa nimeltä Harjoitus Tee se itse.
Päätelmä
Tässä artikkelissa yritimme käsitellä tapoja laskea rivejä, joissa on tietoja sarakkeessa Excelillä. VBA Jos sinulla on ehdotuksia tai kysymyksiä, voit jakaa ne kommenttiosioon.
