VBA Cari Baris Terakhir dalam Excel (5 cara)

Hugh West

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

Dalam VBA anda boleh menggunakan kaedah yang berbeza untuk mencari baris terakhir. Dalam artikel ini, saya akan menerangkan kaedah yang berbeza untuk mencari baris terakhir VBA dalam Excel.

Untuk menjadikan penjelasan ini kelihatan, saya akan menggunakan set data sampel. Terdapat 4 lajur dalam set data yang mewakili maklumat jualan. Lajur ini ialah Orang Jualan, Wilayah, Produk, dan Harga .

Muat Turun Untuk Berlatih

VBA Find Last Row.xlsm

Cara-cara untuk VBA Cari Baris Terakhir dalam Excel

1. Menggunakan SpecialCells untuk Cari Baris Terakhir

Anda boleh menggunakan kaedah SpecialCells untuk mencari baris terakhir menggunakan VBA .

Pertama, buka Pembangun tab >> kemudian pilih Visual Basic

Tetingkap baharu Microsoft Visual Basic for Applications akan muncul.

Sekarang, daripada Sisipkan >> pilih Modul

A Modul akan dibuka.

Kemudian tulis kod berikut dalam Modul . 

8202

Di sini, saya telah mencipta subprosedur dipanggil LastRow_SpecialCells , dengan jenis Long daripada pembolehubah LastRow telah diisytiharkan.

Kemudian takrifkan pembolehubah menggunakan kaedah Range.SpecialCells . Di sini, saya telah menggunakan lajur A ( A:A ) sebagai julat. Dengan syarat xlCellTypeLastCell sebagai parameter jenis SpecialCells , ini akan mengembalikan sel terakhir untuk julat (untuk kes ini, dari lajur A ).

Saya telah menggunakan kotak mesej untuk menunjukkan hasilnya.

Selepas itu, Simpan kod dan kembali ke lembaran kerja.

Sekali lagi, buka tab Lihat >> daripada Makros >> pilih Lihat Makro

Kemudian, kotak dialog akan muncul.

Sekarang, daripada Nama Makro pilih LastRow_SpecialCells juga pilih buku kerja dalam Makro dalam .

Akhir sekali, Jalankan Makro yang dipilih.

Oleh itu, kotak mesej yang menunjukkan nombor baris terakhir akan muncul.

2. Menggunakan Rows.Count untuk Sel Bukan Kosong

Anda boleh menggunakan kaedah Rows.Count untuk mencari baris terakhir menggunakan VBA .

Sekarang, buka tab Pembangun >> kemudian pilih Visual Basic

Tetingkap baharu Microsoft Visual Basic for Applications akan muncul.

Sekarang, daripada Sisipkan >> pilih Modul

A Modul akan dibuka.

Kemudian tulis kod berikut dalam Modul . 

5689

Di sini, saya telah mencipta subprosedur dipanggil LastRow_NonEmpty, dengan jenis Long pembolehubah LastRow telah diisytiharkan.

Kini, CELLS(Rows.Count, 1) akan mengira bilangan baris yang terdapat dalam lajur pertama. Kemudian gunakan End(xlUp).Row kini ini akan mencari baris terakhir digunakan dalam julat Excel.

Akhirnya, saya telah menggunakan kotak mesej untuk menunjukkanhasil.

Kemudian, Simpan kod dan kembali ke lembaran kerja.

Di sini, buka tab Lihat >> daripada Makros >> pilih Lihat Makro

Kini, kotak dialog akan muncul.

Kemudian, daripada Nama Makro pilih LastRow_NonEmpty juga pilih buku kerja dalam Makro dalam .

Akhir sekali, Jalankan Makro yang dipilih.

Oleh itu, kotak mesej yang menunjukkan nombor baris terakhir akan muncul.

3. Menggunakan Rows.Count untuk Mana-mana Lajur yang Dipilih

Dengan menggunakan mana-mana lajur yang dipilih dalam VBA, anda boleh mencari baris terakhir.

Pertama , buka tab Pembangun >> kemudian pilih Visual Basic

Tetingkap baharu Microsoft Visual Basic for Applications akan muncul.

Sekarang, daripada Sisipkan >> pilih Modul

A Modul akan dibuka.

Kemudian tulis kod berikut dalam Modul . 

6355

Di sini, saya telah mencipta subprosedur dipanggil LastRow_AnyColumn, di mana jenis Long pembolehubah LastRow telah diisytiharkan.

Kemudian, dalam Julat diberikan lajur B sebagai parameter dan juga Rows.Count , ini akan mengira berapa banyak baris yang terdapat dalam lajur B yang diberikan. Seterusnya, digunakan End(xlup). Baris yang akan mencari baris terakhir digunakan dalam julat Excel.

Terakhir, saya telah menggunakan kotak mesej untuk menunjukkanhasil.

Seterusnya, Simpan kod dan kembali ke lembaran kerja.

Kemudian, buka tab Lihat >> daripada Makros >> pilih Lihat Makro

Di sini, kotak dialog akan muncul.

Sekarang, daripada Nama Makro pilih LastRow_AnyColumn juga pilih buku kerja dalam Makro dalam .

Akhir sekali, Jalankan Makro yang dipilih.

Oleh itu, kotak mesej yang menunjukkan nombor baris terakhir akan muncul.

Bacaan Serupa:

  • VBA Cari dalam Lajur dalam Excel (7 Pendekatan)
  • Cari dan Gantikan Menggunakan VBA (11 Cara)
  • Cari Padanan Tepat Menggunakan VBA dalam Excel (5 Cara)
  • Cara Mencari Rentetan dengan VBA dalam Excel (8 Contoh)

4. Menggunakan UsedRange untuk Mencari Baris Terakhir

Anda boleh menggunakan sifat UsedRange lembaran kerja untuk mencari yang terakhir baris menggunakan VBA .

Sekarang, buka tab Pembangun >> kemudian pilih Visual Basic

Kemudian, tetingkap baharu Microsoft Visual Basic for Applications akan muncul.

Sekarang, daripada Sisipkan >> pilih Modul

A Modul akan dibuka.

Kemudian, tulis kod berikut dalam Modul . 

7942

Di sini, saya telah mencipta subprosedur dipanggil LastRow_UsedRange, dengan jenis Long pembolehubah LastRow telah diisytiharkan.

Seterusnya, takrifkanpembolehubah menggunakan kaedah ActiveSheet.UsedRange.Rows juga menyediakan ActiveSheet.UsedRange.Rows.Count sebagai parameter ActiveSheet.UsedRange.Rows , ini akan mengembalikan baris terakhir.

Saya telah menggunakan kotak mesej untuk menunjukkan hasilnya.

Sekarang, Simpan kod dan kembali ke lembaran kerja.

Kemudian, buka tab Lihat >> daripada Makros >> pilih Lihat Makro

Seterusnya, kotak dialog akan muncul.

Kemudian, daripada Makro nama pilih LastRow_UsedRange juga pilih buku kerja dalam Makro dalam .

Akhir sekali, Jalankan yang dipilih Makro .

Oleh itu, ia akan muncul kotak mesej yang menunjukkan nombor baris terakhir.

5. Menggunakan Range.Find to Find Last Baris

Anda boleh menggunakan kaedah Julat.Cari untuk mencari baris terakhir menggunakan VBA .

Sekarang, buka Pembangun tab >> kemudian pilih Visual Basic

Di sini, tetingkap baharu Microsoft Visual Basic for Applications akan muncul.

Sekarang, daripada Sisipkan >> pilih Modul

A Modul akan dibuka.

Kemudian tulis kod berikut dalam Modul . 

8396

Di sini, saya telah mencipta subprosedur yang dipanggil Range_Find_Method, di mana jenis Long pembolehubah LastRow telah diisytiharkan .

Kemudian takrifkan pembolehubah menggunakan kaedah Cells.Find . Di sini, diisytiharkan 7parameter. Dalam Apakah parameter yang saya gunakan (“*”) yang akan mencari sel bukan kosong yang pertama. Diberi A1 sebagai julat dalam parameter Selepas untuk bermula. Dalam LookAt parameter yang disediakan xlPart untuk melihat mana-mana bahagian teks di dalam sel.

LookIn:=xlFormulas parameter akan mencari formula jika ada. SearchOrder:=xlByRows parameter akan bergerak dari kanan ke kiri dan juga menggelung ke atas melalui setiap baris sehingga ia menemui sel yang tidak kosong.

MatchCase:=False parameter akan memberitahu Cari untuk tidak mempertimbangkan huruf besar atau kecil. Apabila bukan kosong ditemui, ia berhenti dan mengembalikan nombor baris.

Saya telah menggunakan kotak mesej untuk menunjukkan hasilnya.

Sekarang, Simpan kod dan kembali ke lembaran kerja.

Di sini, buka tab Lihat >> daripada Makros >> pilih Lihat Makro

Kini, kotak dialog akan muncul.

Sekarang, daripada Nama Makro pilih Range_Find_Method juga pilih lembaran kerja dalam Makro dalam .

Akhir sekali, Jalankan Makro yang dipilih.

Oleh itu, kotak mesej yang menunjukkan nombor baris terakhir akan muncul.

Kesimpulan

Dalam artikel ini, saya telah menerangkan 5 cara untuk VBA mencari baris terakhir dalam Excel. Anda boleh mengikuti mana-mana kaedah untuk mencari baris terakhir. Sekiranya anda mempunyai sebarang kekeliruan atau soalan mengenai kaedah ini, anda bolehkomen di bawah.

Catatan sebelum ini Cara Memilih Setiap Baris Lain dalam Excel(6 Cara)
Post seterusnya Kalkulator Cukai Kerja Sendiri dalam Hamparan Excel (Buat dengan Langkah Mudah)

Hugh West ialah jurulatih dan penganalisis Excel yang sangat berpengalaman dengan lebih 10 tahun pengalaman dalam industri. Beliau memiliki Ijazah Sarjana Muda Perakaunan dan Kewangan serta Ijazah Sarjana dalam Pentadbiran Perniagaan. Hugh mempunyai minat untuk mengajar dan telah membangunkan pendekatan pengajaran yang unik yang mudah diikuti dan difahami. Pengetahuan pakar Excel beliau telah membantu beribu-ribu pelajar dan profesional di seluruh dunia meningkatkan kemahiran mereka dan cemerlang dalam kerjaya mereka. Melalui blognya, Hugh berkongsi pengetahuannya dengan dunia, menawarkan tutorial Excel percuma dan latihan dalam talian untuk membantu individu dan perniagaan mencapai potensi penuh mereka.