Vba: cara menemukan baris yang terakhir digunakan
Anda dapat menggunakan sintaks dasar berikut di VBA untuk menemukan baris yang terakhir digunakan dalam lembar Excel:
Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub
Contoh khusus ini mencari baris terakhir yang digunakan di lembar saat ini dan mengembalikan hasilnya di sel D2 .
Jika Anda ingin menampilkan baris terakhir kotak pesan, Anda dapat menggunakan sintaks berikut:
Sub FindLastRow()
Dim LastRow As Long
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
MsgBox " Last Row: " & LastRow
End Sub
Contoh berikut menunjukkan cara menggunakan masing-masing metode ini dalam praktik.
Contoh 1: Temukan baris terakhir menggunakan VBA dan tampilkan hasilnya di sel
Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:
Kita bisa membuat makro berikut untuk menemukan baris terakhir yang digunakan dalam lembar Excel ini dan menampilkan hasilnya di sel D2 :
Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub
Saat kami menjalankan makro ini, kami menerima keluaran berikut:
Perhatikan bahwa sel D2 berisi nilai 11 .
Ini memberitahu kita bahwa baris terakhir yang digunakan dalam lembar khusus ini adalah baris 11.
Perlu juga dicatat bahwa jika Anda memiliki sel kosong sebelum sel yang digunakan, makro ini akan selalu menemukan baris yang terakhir digunakan.
Misalnya, kita menjalankan makro pada kumpulan data berikut:
Sel D2 berisi nilai 16 karena merupakan baris terakhir yang berisi nilai.
Contoh 2: Temukan baris terakhir menggunakan VBA dan tampilkan hasilnya di kotak pesan
Misalkan kita ingin mencari baris yang terakhir digunakan dalam lembar dan menampilkan nomor baris dalam kotak pesan.
Kita dapat membuat makro berikut untuk melakukan ini:
Sub FindLastRow()
Dim LastRow As Long
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
MsgBox " Last Row: " & LastRow
End Sub
Saat kami menjalankan makro ini, kami menerima keluaran berikut:
Kotak pesan memberitahu kita bahwa baris terakhir yang digunakan dalam lembar adalah baris 11 .
Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Find di sini .
Sumber daya tambahan
Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:
VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghapus nilai duplikat dalam jangkauan