Bagaimana cara menghapus kolom kosong dengan header di Excel?
Jika Anda memiliki lembar kerja besar yang berisi banyak kolom, tetapi beberapa kolom hanya berisi header, dan sekarang, Anda ingin menghapus kolom kosong ini yang hanya memiliki header untuk menampilkan screenshot berikut. Apakah ini bisa diselesaikan di Excel dengan cepat dan mudah?
Hapus kolom kosong dengan header dengan menggunakan kode VBA
Hapus beberapa kolom kosong dalam rentang / lembar kerja / buku kerja dengan Kutools for Excel
Hapus kolom kosong dengan header dengan menggunakan kode VBA
Di Excel, tidak ada metode langsung untuk menangani pekerjaan ini kecuali menghapusnya satu per satu secara manual, tetapi, di sini, saya dapat memperkenalkan kode untuk Anda, lakukan hal berikut:
1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Hapus kolom kosong dengan header:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda bahwa kolom kosong dengan header akan dihapus, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, semua kolom kosong dengan hanya header di lembar kerja saat ini dihapus sekaligus.
Note: Jika ada kolom kosong, maka akan dihapus juga.
Hapus beberapa kolom kosong dalam rentang / lembar kerja / buku kerja dengan Kutools for Excel
Terkadang, Anda hanya perlu menghapus kolom kosong, file Kutools untuk Excel'S Hapus Baris & Kolom Tersembunyi (Terlihat) utilitas dapat membantu Anda menyelesaikan tugas ini dengan mudah.
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Setelah menginstal Kutools untuk Excel, lakukan hal berikut:
1. Pilih rentang kolom yang menyertakan kolom kosong yang perlu dihapus.
2. Lalu klik Kutools > Delete > Hapus Baris & Kolom Tersembunyi (Terlihat), lihat tangkapan layar:
3. di Hapus Baris & Kolom Tersembunyi (Terlihat) kotak dialog, Anda dapat memilih ruang lingkup hapus dari Lihat di drop-down yang Anda butuhkan, pilih Kolom dari Hapus jenis bagian, lalu pilih Kolom kosong dari Jenis detail bagian, lihat tangkapan layar:
4. Lalu klik Ok tombol, dan hanya kolom kosong yang dihapus sekaligus. Lihat tangkapan layar:
Tips: Dengan fitur canggih ini, Anda juga dapat menghapus baris kosong, kolom atau baris yang terlihat, kolom atau baris tersembunyi sesuai kebutuhan.
Klik Unduh Gratis Kutools untuk Excel Sekarang!
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!