Bagaimana cara membuat baris menggunakan vba di excel?

Untuk menghitung baris menggunakan VBA, Anda perlu mengatur rentang yang ingin Anda hitung barisnya, lalu gunakan properti count dan baris untuk mendapatkan jumlah baris dari rentang tersebut. Anda juga dapat menggunakan loop untuk menghitung baris di mana Anda hanya memiliki data.

Gunakan VBA untuk menghitung baris

1. Pertama, Anda perlu menentukan rentang baris yang ingin Anda hitung.
2. Setelah itu, gunakan titik (.) untuk membuka daftar properti dan metode.
3. Selanjutnya, ketik atau pilih properti “Garis”.
4. Pada akhirnya, gunakan properti “Hitungan”.

Sekarang ketika Anda menjalankan kode ini, ia akan mengembalikan jumlah baris, dan untuk mendapatkan nomor tersebut Anda dapat menggunakan kotak pesan atau langsung memasukkan nilai ini ke dalam sel juga.

 Sub vba_count_rows() Range("A1:A10").Rows.Count End Sub

Hitung baris untuk rentang yang digunakan

 Sub vba_count_rows2()   MsgBox Worksheets("Sheet1").UsedRange.Rows.Count End Sub

Hitung baris dengan data menggunakan VBA

Anda juga dapat menghitung baris yang berisi data sambil mengabaikan baris kosong.

Kode berikut akan mengambil rentang yang digunakan sebagai rentang yang akan diulang dan menelusuri setiap baris satu per satu dan memeriksa apakah ada sel yang tidak kosong di sana, dan jika ada, ia akan menganggapnya sebagai baris dengan data, dan di bagian akhir menunjukkan kotak pesan dengan jumlah baris.

 Sub vba_count_rows_with_data() Dim counter As Long Dim iRange As Range With ActiveSheet.UsedRange    'loop through each row from the used range    For Each iRange In .Rows        'check if the row contains a cell with a value        If Application.CountA(iRange) > 0 Then            'counts the number of rows non-empty Cells            counter = counter + 1        End If    Next End With MsgBox "Number of used rows is " & counter End Sub