Menghapus Kolom Kosong Sekaligus

Pada postingan kali ini, mimin akan menampilkan contoh code vba untuk menghapus kolom kosong di Excel.  Pembahasan ini masih terkait dengan postingan sebelumnya mengenai contoh kode macro vba untuk menghapus baris kosong di Excel. 

Mengapa menghapus kolom kosong menggunakan macro? Tentu saja perlu.. Dibandingkan menghapus baris kosong secara konvensional, macro menawarkan proses yang lebih cepat dan efisien.

Langsung saja menuju contoh code VBA untuk delete kolom kosong, silahkan langsung di copas saja code-nya.

1. Hapus Semua Kolom Kosong Dalam Range Terpakai

Contoh code macro yang pertama ini akan menghapus semua kolom kosong tanpa kecuali dalam range yang terpakai (used range). Tentu saja didalam sheet yang sedang aktif. Yang dimaksud range terpakai adalah sekumpulan sel dimulai dari sel terisi di paling atas kiri sampai dengan sel terisi paling bawah kanan dalam lembar kerja excel.

Sub HapusKolomKosongDalamRangeTerpakai() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = ActiveSheet.UsedRange For i = Target.Columns.Count To 1 Step -1 If WorksheetFunction.CountA(Target.Columns(i)) = 0 Then Target.Columns(i).Delete Shift:=xlToLeft End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Setelah kamu copas kode di atas ke dalam module standar vba excel, maka kamu bisa segera menggunakannya. Untuk menggunakannya, kamu tidak perlu menyeleksi range tertentu. Langsung saja jalankan makronya (tab developer --> Macros --> Pilih nama macro yang sesuai --> Run).

Maka semua kolom kosong akan terhapus seketika.

2. Hapus Semua Kolom Kosong Dalam Range Terpilih

Jika kamu hanya ingin menghapus kolom kosong dalam range tertentu maka gunakan contoh code vba excel berikut:

Sub HapusKolomKosongDalamRangeTerpilih() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = Selection For i = Target.Columns.Count To 1 Step -1 If WorksheetFunction.CountA(Target.Columns(i)) = 0 Then Target.Columns(i).Delete Shift:=xlToLeft End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Setelah code di copas ke modul standar vba, maka code sudah bisa digunakan. Seleksi range sel yang ingin kamu hapus bagian kolom kosongnya, kemudian jalankan macro nya. Maka semua kolom kosong dalam range terpilih akan terhapus. Kolom yang dihapus dibatasi hanya pada range terpilih.

 

3 Hapus Kolom Berdasarkan Kolom Kosong dalam Range Terpilih

Jika kamu mendapati sebuah kolom terdiri dari sel-sel, sebagian kosong, sebagian berisi. Kemudian kamu menyadari ternyata isi sel dalam baris lainnya yang sejajar dengan dengan sel-sel kosong tersebut tidak berguna, maka kamu bisa memutuskan untuk menghapus kolom-kolom berdasarkan kolom kosong dalam range terpilih.

Sub HapusKolomBerdasarkanKolomKosongDalamRangeTerpilih() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = Selection For i = Target.Columns.Count To 1 Step -1 If WorksheetFunction.CountA(Target.Columns(i)) = 0 Then Target.Columns(i).EntireColumn.Delete End If Next Application.ScreenUpdating = True End Sub

Untuk mengunakan code ini, caranya seperti prosedur nomor 2. Pertama seleksi atau pilih range tertentu sebagai acuan, lalu jalankan macro nya.

***

Demikian tiga contoh code macro untuk menghapus kolom kosong pada lembar kerja microsoft Excel. Kamu bisa menggunakannya code yang sesuai dengan kebutuhannmu.

Mau tau lebih banyak tentang koleksi contoh macro vba? Silahkan telusuri konten blog ini via Daftar Isi.  

Barangkali contoh code dalam tautan berikut bermanfaat buat kamu:

• Contoh Code VBA Excel untuk Menghapus Baris Kosong Sekaligus
• Contoh Code VBA Excel untuk Sisip Baris Kosong Sekaligus
• Contoh Code VBA Excel untuk Menghapus Sheet

Jika kamu ada saran/ koreksi ? jangan ragu untuk tinggalkan pesan dalam kolom komentar...

Salam...😎😎