Vba: het aantal rijen binnen bereik tellen

U kunt de volgende basissyntaxis gebruiken om het aantal rijen in een bereik in Excel te tellen met behulp van VBA:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Dit specifieke voorbeeld telt het aantal rijen in kolom A en wijst het resultaat vervolgens toe aan cel E2 .

Als u in plaats daarvan het aantal regels in een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken met de volgende dataset in Excel die de namen bevat van basketbalspelers uit drie verschillende teams:

Voorbeeld 1: Tel rijen binnen bereik met VBA en geef resultaten in cellen weer

Stel dat we het aantal rijen in kolom A willen berekenen en de resultaten in een specifieke cel willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel E2 de waarde 9 bevat.

Dit vertelt ons dat er 9 rijen in kolom A zijn met waarden.

Voorbeeld 2: Tel rijen binnen bereik met VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan het aantal rijen in kolom A willen tellen en de resultaten in een berichtenvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtvenster vertelt ons dat er 9 rijen in kolom A zijn met waarden.

Merk op dat we in dit voorbeeld het aantal rijen in de hele kolom A hebben berekend met A:A als bereik.

Als u echter in plaats daarvan het aantal rijen met waarden in een specifiek bereik wilt berekenen, kunt u A2:A9 typen (of een ander bereik waarin u geïnteresseerd bent).

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe AVERAGEIF- en AVERAGEIFS-functies te schrijven
VBA: SUMIF- en SUMIFS-functies schrijven
VBA: Hoe COUNTIF- en COUNTIFS-functies te schrijven