Vba: cara menghitung jumlah baris dalam jangkauan

Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah baris dalam suatu rentang di Excel menggunakan VBA:

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

Contoh khusus ini menghitung jumlah baris di kolom A, lalu menetapkan hasilnya ke sel E2 .

Jika Anda ingin menampilkan jumlah baris dalam kotak pesan, Anda dapat menggunakan sintaks berikut:

 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

Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan kumpulan data berikut di Excel yang berisi nama pemain bola basket dari tiga tim berbeda:

Contoh 1: Hitung baris dalam rentang menggunakan VBA dan tampilkan hasilnya dalam sel

Misalkan kita ingin menghitung jumlah baris di kolom A dan menampilkan hasilnya di sel tertentu.

Kita dapat membuat makro berikut untuk melakukan ini:

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel E2 berisi nilai 9 .

Ini memberitahu kita bahwa ada 9 baris di kolom A dengan nilai.

Contoh 2: Hitung baris dalam rentang menggunakan VBA dan tampilkan hasilnya di kotak pesan

Misalkan kita ingin menghitung jumlah baris di kolom A dan menampilkan hasilnya di kotak pesan.

Kita dapat membuat makro berikut untuk melakukan ini:

 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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa ada 9 baris di kolom A dengan nilai.

Perhatikan bahwa dalam contoh ini kami menghitung jumlah baris di seluruh kolom A menggunakan A:A sebagai rentangnya.

Namun, jika Anda ingin menghitung jumlah baris dengan nilai dalam rentang tertentu, Anda dapat mengetikkan A2:A9 (atau rentang lain yang Anda minati).

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menulis fungsi AVERAGEIF dan AVERAGEIFS
VBA: Cara menulis fungsi SUMIF dan SUMIFS
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS