Vba: cara menghitung jumlah kolom yang digunakan

Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah kolom yang digunakan dalam lembar Excel menggunakan VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Contoh khusus ini menghitung jumlah kolom yang digunakan dalam lembar yang disebut Sheet1 dan menampilkan hasilnya di sel A10 .

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

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan himpunan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Contoh 1: Hitung kolom yang digunakan di VBA dan tampilkan hasilnya di sel

Misalkan kita ingin menghitung jumlah kolom yang digunakan dan menampilkan hasilnya di sel tertentu.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A10 berisi nilai 4 .

Ini memberitahu kita bahwa ada 4 kolom yang digunakan.

Contoh 2: Hitung kolom yang digunakan di VBA dan tampilkan hasilnya di kotak pesan

Misalkan kita ingin menghitung jumlah kolom yang digunakan dan menampilkan hasilnya dalam kotak pesan.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa ada 4 kolom yang digunakan.

Catatan : Jika ada kolom kosong diikuti kolom berisi data, VBA akan menghitung kolom kosong tersebut sebagai “terpakai” dalam perhitungan.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung jumlah lembar dalam buku kerja
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung sel dengan teks tertentu