Di VBA ketika kita harus mencari baris terakhir ada banyak metode yang berbeda dan metode yang paling umum digunakan adalah metode End (XLDown) dan ada metode lain seperti mencari nilai terakhir menggunakan fungsi find di VBA, End (XLDown) ). Baris tersebut adalah cara termudah untuk mencapai baris terakhir.
Baris Terakhir VBA Excel
Jika menulis kode adalah kemajuan pertama yang Anda buat di VBA, maka membuat kode dinamis adalah langkah berikutnya untuk Anda. Excel penuh dengan referensi sel. Saat kita merujuk ke sel, itu menjadi tetap. Jika data kita bertambah, kita perlu kembali ke referensi sel dan mengubah referensi agar hasilnya up to date.
Sebagai contoh, lihat kode di bawah ini.
Kode:
Sub Last_Row_Example1 () Range ("D2"). Value = WorksheetFunction.Sum (Range ("B2: B7")) End Sub
Kode di atas mengatakan di D2, nilai sel harus merupakan penjumlahan dari Range ("B2: B7").
Sekarang saya akan menambahkan lebih banyak nilai ke daftar.
Sekarang, jika saya menjalankan kode, itu tidak akan memberi saya hasil pembaruan, melainkan masih menempel pada rentang lama yaitu, Range ("B2: B7").
Di sinilah kode dinamis sangat penting.
Dalam proses membuat kode menjadi dinamis, menemukan baris yang terakhir digunakan di kolom sangatlah penting. Pada artikel ini, kita akan membahas cara menemukan baris terakhir di Excel VBA.
Bagaimana menemukan baris yang terakhir digunakan di kolom?
Di bawah ini adalah contoh untuk menemukan baris yang terakhir digunakan di Excel VBA.
Metode # 1
Sebelum saya menjelaskan kepada Anda kodenya, saya ingin Anda mengingat bagaimana Anda pergi ke baris terakhir di lembar kerja normal.
Kami akan menggunakan tombol pintas Ctrl + panah bawah.
Ini akan membawa kita ke baris yang terakhir digunakan sebelum sel kosong mana pun. Kami akan menggunakan metode yang sama di VBA juga untuk menemukan baris terakhir.
Langkah 1: Tentukan variabel sebagai PANJANG.
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Last Row End Sub
Langkah 2: Untuk variabel ini, kami akan menetapkan nomor baris yang terakhir digunakan.
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Baris Terakhir LR = End Sub
Langkah 3: Tulis kode sebagai SEL (Rows.Count,
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, End Sub
Langkah 4: Sekarang sebutkan nomor kolom sebagai 1.
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, 1) End Sub
CELLS (Rows.Count, 1) artinya menghitung berapa baris yang ada di kolom pertama.
Jadi kode VBA diatas akan membawa kita ke baris terakhir dari lembar excel.
Langkah 5: Jika kita berada di sel terakhir dari lembar untuk pergi ke baris yang terakhir digunakan, kita akan menekan tombol pintas Ctrl + tombol Panah Atas .
Di VBA, kita perlu menggunakan tombol putus dan yang lebih tinggi, yaitu End VBA xlUp
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, 1) .End (xlUp) End Sub
Langkah 6: Sekarang, ini akan membawa kita ke baris yang terakhir digunakan dari bawah. Sekarang kita membutuhkan nomor baris ini. Jadi gunakan properti ROW untuk mendapatkan nomor baris.
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) .Row End Sub
Langkah 7: Sekarang, variabel memegang nomor baris yang terakhir digunakan. Perlihatkan nilai variabel ini di kotak pesan di kode VBA.
Kode:
Sub Last_Row_Example2 () Dim LR As Long 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, 1) .End (xlUp) .Row MsgBox LR End Sub
Jalankan kode ini menggunakan tombol F5 atau secara manual. Ini akan menampilkan baris yang terakhir digunakan.
Keluaran:
Baris terakhir yang digunakan dalam lembar kerja ini adalah 13.
Now I will delete one more line and run the code and see the dynamism of the code.
Ok, now the result automatically takes the last row.
This is what the dynamic VBA last row code is.
As I showed in the earlier example, change the row number from a numeric value to LR.
Code:
Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub
I have removed B13 and added the variable name LR.
Now it does not matter how many rows you add. It will automatically take the updated reference.
Method #2
We can also find the last row in VBA by using the Range object and special VBA cells property as well.
Code:
Sub Last_Row_Example3() Dim LR As Long LR = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LR End Sub
Kode tersebut juga memberi Anda baris yang terakhir digunakan. Misalnya, lihat gambar lembar kerja di bawah ini.
Jika saya menjalankan kode secara manual atau menggunakan tombol F5 hasilnya akan menjadi 12 karena 12 adalah baris yang terakhir digunakan.
Keluaran:
Sekarang saya akan menghapus baris ke-12 dan melihat hasilnya.
Meskipun saya sudah menghapus satu baris, masih menunjukkan hasil sebagai 12.
Untuk membuat kode ini berfungsi, kita perlu menekan tombol simpan setelah setiap tindakan. Kemudian kode ini akan memberikan hasil yang akurat.
Saya telah menyimpan buku kerja dan sekarang melihat hasilnya.
Metode # 3
Kami dapat menemukan baris terakhir VBA dalam kisaran yang digunakan. Kode di bawah ini juga mengembalikan baris yang terakhir digunakan.
Kode:
Sub Last_Row_Example4 () Redupkan LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub
Ini juga akan mengembalikan baris yang terakhir digunakan.
Keluaran:
