Note: The other languages of the website are Google-translated. Back to English

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:

doc-temukan-baris terakhir1

5. Lanjutkan mengklik OK tombol, kali ini nomor baris terakhir dengan nilai telah ditampilkan seperti gambar berikut yang ditampilkan:

doc-temukan-baris terakhir1

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-day) 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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL