Bagaimana menemukan baris atau kolom terakhir dengan data di Excel?
Dalam worksheet besar, jika Anda ingin menentukan baris atau kolom terakhir yang berisi nilai dengan cepat dan mudah, Anda tinggal drag scrollbar untuk menemukannya. Tetapi akan menyakitkan jika ada ribuan baris data di lembar kerja Anda. Pada artikel ini, saya akan berbicara tentang beberapa kode VBA yang berguna bagi Anda untuk menyelesaikan tugas ini.
Temukan baris atau kolom terakhir dengan data menggunakan kode VBA
Temukan dan pilih baris atau kolom terakhir dengan data dengan Kutools for Excel
Temukan baris atau kolom terakhir dengan data menggunakan kode VBA
Sebagian besar dari kita mungkin mempertimbangkan untuk mencari sel terakhir dengan menekan Ctrl + End untuk menemukan baris dan kolom terakhir, namun tombol pintas tidak akan menemukan sel nilai yang akurat jika ada beberapa sel yang memiliki format di bawah rentang data. Jadi di sini, silakan gunakan kode VBA berikut:
1. Aktifkan lembar kerja Anda yang ingin Anda tentukan baris atau kolom terakhir dengan data.
2. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
3. Lalu klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.
Kode VBA: Temukan baris terakhir dengan data
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk memberi tahu Anda nomor baris dari rentang yang digunakan. Lihat tangkapan layar:
5. Lanjutkan mengklik OK tombol, kali ini nomor baris terakhir dengan nilai telah ditampilkan seperti gambar berikut yang ditampilkan:
Catatan: Untuk menemukan kolom terakhir dengan data, harap gunakan kode ini:
Kode VBA: Temukan kolom terakhir dengan data
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Temukan dan pilih baris atau kolom terakhir dengan data dengan Kutools for Excel
Jika Anda ingin langsung mencari dan memilih baris atau kolom terakhir dengan data di Excel, file Pilih Baris Terakhir dan Pilih Kolom Terakhir utilitas dari Kutools dari Excel bisa membantumu. Silakan lakukan sebagai berikut.
Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.
1. Jika Anda ingin mencari dan memilih baris terakhir dengan data, silakan klik Kutools > Pilih > Pilih Sel Terakhir > Baris terakhir. Lihat tangkapan layar:
Note: Untuk mencari dan memilih kolom terakhir dengan data, silakan klik Kutools > Pilih > Pilih Sel Terakhir > Kolom Terakhir.
Kemudian baris atau kolom terakhir dengan data di lembar kerja saat ini ditemukan dan segera dipilih.
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Temukan dan pilih baris atau kolom terakhir dengan data dengan Kutools for Excel
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
