Apakah anda pernah menyembunyikan baris atau kolom di Microsoft Excel? Hampir semua pengguna Excel mungkin pernah melakukannya.
Banyak pengguna Excel menyembunyikan baris atau kolom yang tidak ingin mereka tampilkan dengan berbagai alasan. Mereka menyembunyikan untuk sementara atau agar tampilan data terlihat baik.
Ini adalah salah satu cara untuk membuat data yang berguna tetap terlihat, dan pada saat yang sama tidak perlu menghapus data yang Anda tidak perlu terlihat.
Ketika data sudah siap untuk anda publikasikan atau siap untuk anda bagikan, baris atau kolom yang tersembunyi tersebut akan tampak mengganggu. Jika baris atau kolom yang tersembunyi tersebut jumlahnya banyak, menghapus dengan cara manual adalah tugas yang memakan waktu.
Untuk mengatasinya, Excel memiliki fungsi bawaan untuk menemukan, dan menghapus baris dan kolom yang tersembunyi sekaligus. Berikut adalah beberapa langkah mudah dan cepat untuk menghapus semua baris atau kolom tersembunyi di Excel.
Artikel Menarik Lainnya
Hapus Semua Baris atau Kolom Tersembunyi di Excel dengan Inspect Document
- Klik tab “File” pada menu Microsoft Excel.
- Kemudian klik tombol “Info”. Pada bagian “Inspect Workbook”, klik tombol “Check for Issues”. Selanjutnya pilih opsi “Inspect Document”. Jika anda belum menyimpan file tersebut, akan muncul peringatan untuk menyimpan file terlebih dahulu.
- Pada kotak dialog “Document Inspector”, klik tombol “Inspect”.
- Kemudian geser ke bawah dan cari “Hidden Rows and Columns”. Selanjutnya klik tombol “Remove All”.
Hati-hati dalam melakukannya. Anda tidak bisa mengembalikan ke sebelumnya dengan proses “Undo”.
Hapus Semua Baris atau Kolom Tersembunyi di Excel dengan VBA
Jika anda belum tahu cara menggunakan VBA di Microsoft Excel, Anda bisa melihat pada artikel kami yang lain. Cara Membuat Macro Sederhana Pada Excel.
Script VBA berikut ini akan menghapus semua baris dan kolom dalam sebuah Worksheet.
Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim LastRow as Integer Dim LastCol as Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column For i = LastRow To 1 Step -1 If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete Next For i = LastCol To 1 Step -1 If Columns(i).Hidden = True Then Columns(i).EntireColumn.Delete Next End Sub