Dalam VBA ketika kita harus mencari baris terakhir terdapat banyak kaedah yang berbeza dan kaedah yang paling biasa digunakan adalah kaedah End (XLDown) dan ada kaedah lain seperti mencari nilai terakhir menggunakan fungsi find di VBA, End (XLDown ). Baris adalah cara termudah untuk sampai ke baris terakhir.
Baris Terakhir Excel VBA
Sekiranya menulis kod adalah kemajuan pertama yang anda buat di VBA, maka menjadikan kod dinamik adalah langkah seterusnya untuk anda. Excel penuh dengan rujukan sel. Sebaik sahaja kita merujuk kepada sel, ia menjadi tetap. Sekiranya data kita meningkat, kita perlu kembali ke rujukan sel dan menukar rujukan untuk menjadikan hasilnya terkini.
Sebagai contoh, lihat kod di bawah.
Kod:
Sub Last_Row_Example1 () Julat ("D2"). Nilai = Lembaran KerjaFungsi.Sum (Julat ("B2: B7")) Sub Akhir
Kod di atas mengatakan dalam D2, nilai sel haruslah penjumlahan Range ("B2: B7").
Sekarang saya akan menambah lebih banyak nilai ke dalam senarai.
Sekarang, jika saya menjalankan kod, ia tidak akan memberi saya hasil kemas kini, ia tetap berpegang pada julat lama iaitu, Range ("B2: B7").
Di sinilah kod dinamik sangat penting.
Dalam proses membuat kod dinamik, mencari baris terakhir yang digunakan di lajur adalah sangat penting. Dalam artikel ini, kita akan membincangkan cara mencari baris terakhir dalam Excel VBA.
Bagaimana Mencari Baris Terpakai Terakhir di Lajur?
Berikut adalah contoh untuk mencari baris terakhir yang digunakan dalam Excel VBA.
Kaedah # 1
Sebelum saya menerangkan kod kepada anda, saya ingin anda mengingat bagaimana anda pergi ke baris terakhir dalam lembaran kerja biasa.
Kami akan menggunakan kekunci pintas Ctrl + anak panah ke bawah.
Ini akan membawa kita ke baris terakhir yang digunakan sebelum ada sel kosong. Kami juga akan menggunakan kaedah yang sama di VBA untuk mencari baris terakhir.
Langkah 1: Tentukan pemboleh ubah sebagai PANJANG.
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Sub Akhir Akhir Bar
Langkah 2: Untuk pemboleh ubah ini, kami akan menetapkan nombor baris terakhir yang digunakan.
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Baris Terakhir LR = Sub Akhir
Langkah 3: Tulis kod sebagai CELLS (Rows.Count,
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, End Sub
Langkah 4: Sekarang sebutkan nombor lajur sebagai 1.
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Baris Terakhir LR = Sel (Baris.Jumlah, 1) Sub Akhir
CELLS (Rows.Count, 1) bermaksud mengira berapa baris yang terdapat di lajur pertama.
Jadi kod VBA di atas akan membawa kita ke baris terakhir lembaran excel.
Langkah 5: Sekiranya kita berada di sel terakhir helaian untuk menuju ke baris terakhir yang digunakan, kita akan menekan kekunci pintasan adalah kekunci Ctrl + Up Arrow .
Dalam VBA, kita perlu menggunakan kekunci akhir dan ke atas iaitu, Tamatkan VBA xlUp
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Baris Terakhir LR = Sel (Baris.Jumlah, 1). Akhir (xlUp) Sub Akhir
Langkah 6: Sekarang, ini akan membawa kita ke baris terakhir yang digunakan dari bawah. Sekarang kita memerlukan nombor baris ini. Oleh itu, gunakan harta ROW untuk mendapatkan nombor baris.
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, 1). End (xlUp). Sub End Sub
Langkah 7: Sekarang, pemboleh ubah memegang nombor baris terakhir yang digunakan. Tunjukkan nilai pemboleh ubah ini di kotak mesej dalam kod VBA.
Kod:
Sub Last_Row_Contoh2 () Dim LR Selagi 'Untuk memahami LR = Baris Terakhir LR = Sel (Rows.Count, 1). End (xlUp) .Row MsgBox LR End Sub
Jalankan kod ini menggunakan kekunci F5 atau secara manual. Ia akan memaparkan baris terakhir yang digunakan.
Pengeluaran:
Baris terakhir yang digunakan dalam lembaran kerja ini ialah 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
Kod ini juga memberi anda baris terakhir yang digunakan. Contohnya, lihat gambar lembaran kerja di bawah.
Sekiranya saya menjalankan kod secara manual atau menggunakan kunci F5 hasilnya akan menjadi 12 kerana 12 adalah baris terakhir yang digunakan.
Pengeluaran:
Sekarang saya akan memadam baris ke-12 dan melihat hasilnya.
Walaupun saya telah menghapus satu baris, ia masih menunjukkan hasilnya sebagai 12.
Untuk membuat kod ini berfungsi, kita perlu menekan butang simpan setelah setiap tindakan. Maka kod ini akan mengembalikan hasil yang tepat.
Saya telah menyimpan buku kerja dan sekarang melihat hasilnya.
Kaedah # 3
Kita dapat menjumpai baris terakhir VBA dalam julat terpakai. Kod di bawah juga mengembalikan baris terakhir yang digunakan.
Kod:
Sub Last_Row_Contoh4 () Dim LR Selagi LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub
Ini juga akan mengembalikan baris terakhir yang digunakan.
Pengeluaran:
