VBA Temukan Baris Terakhir di Excel (5 cara)

Hugh West

16-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Dalam VBA Anda dapat menggunakan metode berbeda untuk menemukan baris terakhir. Pada artikel ini, saya akan menjelaskan berbagai metode VBA menemukan baris terakhir di Excel.

Untuk membuat penjelasan ini terlihat, saya akan menggunakan contoh dataset. Ada 4 kolom dalam dataset yang mewakili informasi penjualan. Kolom-kolom ini adalah Tenaga Penjualan, Wilayah, Produk, dan Harga .

Unduh Untuk Berlatih

VBA Temukan Baris Terakhir.xlsm

Cara untuk VBA Temukan Baris Terakhir di Excel

1. Menggunakan SpecialCells untuk Menemukan Baris Terakhir

Anda bisa menggunakan Sel Khusus untuk menemukan baris terakhir menggunakan VBA .

Pertama, buka Pengembang tab>> kemudian pilih Visual Basic

Jendela baru Microsoft Visual Basic untuk Aplikasi akan muncul.

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka.

Kemudian tulis kode berikut ini di dalam Modul . 

 Sub LastRow_SpecialCells() Dim LastRow As Long LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LastRow End Sub

Di sini, saya telah menciptakan sub prosedur yang disebut Baris_Khusus_Terakhir , di mana a Panjang jenis variabel Baris Terakhir telah dinyatakan.

Kemudian mendefinisikan variabel dengan menggunakan Range.SpecialCells Di sini, saya menggunakan kolom A ( A:A ) sebagai kisaran. xlCellTypeLastCell sebagai parameter tipe dari Sel Khusus , ini akan mengembalikan sel terakhir untuk rentang (untuk kasus ini, dari kolom A ).

Saya telah menggunakan kotak pesan untuk menunjukkan hasilnya.

Setelah itu, Simpan kode dan kembali ke lembar kerja.

Sekali lagi, buka Lihat tab>> dari Makro >>> pilih Lihat Makro

Kemudian, a kotak dialog akan muncul.

Sekarang, dari Nama makro pilih Baris_Khusus_Terakhir juga memilih buku kerja di dalam Makro dalam .

Akhirnya, Lari yang dipilih Makro .

Dengan demikian, akan muncul kotak pesan yang menunjukkan nomor baris terakhir.

2. Menggunakan Rows.Count untuk Sel Tidak Kosong

Anda bisa menggunakan Baris.Count untuk menemukan baris terakhir menggunakan VBA .

Sekarang, buka Pengembang tab>> kemudian pilih Visual Basic

Jendela baru Microsoft Visual Basic untuk Aplikasi akan muncul.

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka.

Kemudian tulis kode berikut ini di dalam Modul . 

 Sub LastRow_NonEmpty() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub

Di sini, saya telah membuat sub prosedur bernama LastRow_NonEmpty, di mana a Panjang jenis variabel Baris Terakhir telah dinyatakan.

Sekarang, CELLS(Baris.Count, 1) akan menghitung berapa banyak baris yang ada di kolom pertama. Kemudian digunakan Akhir(xlUp).Row sekarang ini akan menemukan baris terakhir yang digunakan dalam rentang Excel.

Pada akhirnya, saya menggunakan kotak pesan untuk menunjukkan hasilnya.

Kemudian, Simpan kode dan kembali ke lembar kerja.

Di sini, buka Lihat tab>> dari Makro >>> pilih Lihat Makro

Sekarang, a kotak dialog akan muncul.

Kemudian, dari Nama makro pilih Baris_Terakhir_TidakKosong juga memilih buku kerja di dalam Makro dalam .

Akhirnya, Lari yang dipilih Makro .

Dengan demikian, akan muncul kotak pesan yang menunjukkan nomor baris terakhir.

3. Menggunakan Rows.Count untuk Kolom yang Dipilih

Dengan menggunakan kolom apa pun yang dipilih dalam VBA, Anda bisa menemukan baris terakhir.

Pertama, buka Pengembang tab>> kemudian pilih Visual Basic

Jendela baru Microsoft Visual Basic untuk Aplikasi akan muncul.

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka.

Kemudian tulis kode berikut ini di dalam Modul . 

 Sub LastRow_AnyColumn() Dim LastRow As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row MsgBox LastRow End Sub

Di sini, saya telah membuat sub prosedur bernama LastRow_AnyColumn, di mana a Panjang jenis variabel Baris Terakhir telah dinyatakan.

Kemudian, di dalam Rentang diberikan kolom B sebagai parameter dan juga Baris.Count , ini akan menghitung berapa banyak baris yang ada dalam kolom tertentu B . Selanjutnya, digunakan Akhir (xlup). Baris yang akan menemukan baris terakhir yang digunakan dalam rentang Excel.

Terakhir, saya menggunakan kotak pesan untuk menunjukkan hasilnya.

Selanjutnya, Simpan kode dan kembali ke lembar kerja.

Kemudian, buka Lihat tab>> dari Makro >>> pilih Lihat Makro

Di sini, a kotak dialog akan muncul.

Sekarang, dari Nama makro pilih Baris_Terakhir_SetiapKolom juga memilih buku kerja di dalam Makro dalam .

Akhirnya, Lari yang dipilih Makro .

Dengan demikian, akan muncul kotak pesan yang menunjukkan nomor baris terakhir.

Bacaan serupa:

  • VBA Temukan di Kolom di Excel (7 Pendekatan)
  • Temukan dan Ganti Menggunakan VBA (11 Cara)
  • Temukan Pencocokan Tepat Menggunakan VBA di Excel (5 Cara)
  • Cara Menemukan String dengan VBA di Excel (8 Contoh)

4. Menggunakan UsedRange untuk Menemukan Baris Terakhir

Anda bisa menggunakan Kisaran Bekas properti lembar kerja untuk menemukan baris terakhir menggunakan VBA .

Sekarang, buka Pengembang tab>> kemudian pilih Visual Basic

Kemudian, jendela baru Microsoft Visual Basic untuk Aplikasi akan muncul.

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka.

Kemudian, tulis kode berikut ini di dalam Modul . 

 Sub LastRow_UsedRange() Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox "Last Row: " & LastRow End Sub

Di sini, saya telah membuat sub prosedur bernama LastRow_UsedRange, di mana a Panjang jenis variabel Baris Terakhir telah dinyatakan.

Berikutnya, mendefinisikan variabel dengan menggunakan ActiveSheet.UsedRange.Rows metode juga disediakan ActiveSheet.UsedRange.Rows.Count sebagai parameter dari ActiveSheet.UsedRange.Rows , ini akan mengembalikan baris terakhir.

Saya telah menggunakan kotak pesan untuk menunjukkan hasilnya.

Sekarang, Simpan kode dan kembali ke lembar kerja.

Kemudian, buka Lihat tab>> dari Makro >>> pilih Lihat Makro

Selanjutnya, a kotak dialog akan muncul.

Kemudian, dari Nama makro pilih Baris_Terakhir_DigunakanRentang juga memilih buku kerja di dalam Makro dalam .

Akhirnya, Lari yang dipilih Makro .

Dengan demikian, akan muncul kotak pesan yang menunjukkan nomor baris terakhir.

5. Menggunakan Range.Find untuk Menemukan Baris Terakhir

Anda bisa menggunakan Range.Find untuk menemukan baris terakhir menggunakan VBA .

Sekarang, buka Pengembang tab>> kemudian pilih Visual Basic

Di sini, jendela baru Microsoft Visual Basic untuk Aplikasi akan muncul.

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka.

Kemudian tulis kode berikut ini di dalam Modul . 

 Sub Sub Range_Find_Method() Dim LastRow As Long On Error Resume Next LastRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 MsgBox "Last Row: " & LastRow End Sub

Di sini, saya telah menciptakan sub prosedur yang disebut Range_Find_Method, di mana a Panjang jenis variabel Baris Terakhir telah dinyatakan.

Kemudian mendefinisikan variabel dengan menggunakan Sel.Temukan Di sini, dinyatakan 7 parameter. Apa parameter yang saya gunakan ("*") yang akan menemukan sel pertama yang tidak kosong. A1 sebagai kisaran dalam Setelah parameter untuk memulai. LookAt parameter yang disediakan xlPart untuk melihat bagian mana pun dari teks di dalam sel.

LookIn:= xlFormulas parameter akan mencari formula jika ada. Urutan Pencarian:= xlByRows akan bergerak dari kanan ke kiri dan juga mengulang-ulang setiap baris sampai menemukan sel yang tidak kosong.

MatchCase:=False parameter akan memberi tahu Temukan tidak mempertimbangkan huruf besar atau huruf kecil. Ketika ditemukan huruf yang tidak kosong, ia akan berhenti dan mengembalikan nomor baris.

Saya telah menggunakan kotak pesan untuk menunjukkan hasilnya.

Sekarang, Simpan kode dan kembali ke lembar kerja.

Di sini, buka Lihat tab>> dari Makro >>> pilih Lihat Makro

Sekarang, a kotak dialog akan muncul.

Sekarang, dari Nama makro pilih Range_Find_Method juga memilih lembar kerja di dalam Makro dalam .

Akhirnya, Lari yang dipilih Makro .

Dengan demikian, akan muncul kotak pesan yang menunjukkan nomor baris terakhir.

Kesimpulan

Dalam artikel ini, saya telah menjelaskan 5 cara untuk VBA temukan baris terakhir di Excel. Anda dapat mengikuti salah satu metode untuk menemukan baris terakhir. Jika Anda memiliki kebingungan atau pertanyaan tentang metode ini, Anda dapat berkomentar di bawah.

Postingan sebelumnya Cara Memilih Setiap Baris Lainnya di Excel (6 Cara)
Postingan berikutnya Kalkulator Pajak Pekerjaan Mandiri dalam Spreadsheet Excel (Buat dengan Langkah Mudah)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.