Vba: cara menemukan kolom yang terakhir digunakan

Anda dapat menggunakan sintaks dasar berikut di VBA untuk menemukan kolom yang terakhir digunakan di lembar Excel:

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

Contoh khusus ini mencari kolom yang terakhir digunakan di lembar saat ini dan mengembalikan hasilnya di sel A14 .

Jika Anda ingin menampilkan kolom terakhir kotak pesan, Anda bisa menggunakan sintaks berikut:

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

Contoh berikut menunjukkan cara menggunakan masing-masing metode ini dalam praktik.

Terkait: VBA: Cara Menemukan Jalur yang Terakhir Digunakan

Contoh 1: Temukan kolom terakhir menggunakan VBA dan tampilkan hasilnya di sel

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Kita bisa membuat makro berikut untuk menemukan kolom terakhir yang digunakan di lembar Excel ini dan menampilkan hasilnya di sel A14 :

 Sub FindLastColumn()
Range(" A14 ") = Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A14 berisi nilai 2 .

Ini memberitahu kita bahwa kolom terakhir yang digunakan dalam lembar khusus ini adalah kolom 2.

Perlu diperhatikan juga bahwa jika Anda memiliki kolom kosong sebelum kolom yang digunakan, makro ini akan selalu menemukan kolom yang terakhir digunakan.

Misalnya, kita menjalankan makro pada kumpulan data berikut:

Sel A14 berisi nilai 5 karena merupakan kolom terakhir yang berisi nilai.

Contoh 2: Temukan kolom terakhir menggunakan VBA dan tampilkan hasilnya di kotak pesan

Misalkan kita ingin mencari kolom yang terakhir digunakan dalam lembar dan menampilkan nomor kolom dalam kotak pesan.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub FindLastColumn()
Dim LastCol As Long
    
LastCol=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByColumns,xlPrevious,False).Column

MsgBox " Last Column: " & LastCol
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa kolom terakhir yang digunakan dalam lembar adalah kolom 2 .

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Find di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghapus nilai duplikat dalam jangkauan