Bagaimana cara menyembunyikan beberapa baris atau kolom kosong di Excel sekaligus di Excel?
Untuk menyembunyikan atau menghapus baris atau kolom kosong dapat membantu Anda untuk memadatkan lembar kerja, pada artikel ini, saya akan memperkenalkan Anda beberapa cara cepat untuk menyembunyikan atau menghapus baris atau kolom kosong di lembar kerja Excel.
Sembunyikan dengan cepat beberapa baris atau kolom kosong dengan kode VBA
Hapus beberapa baris atau kolom kosong dengan cepat menggunakan Kutools for Excel
Sembunyikan dengan cepat beberapa baris atau kolom kosong dengan kode VBA
Kode VBA berikut dapat membantu Anda menyembunyikan beberapa baris atau kolom kosong di lembar kerja dengan cepat dan mudah.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Sembunyikan beberapa baris kosong di lembar kerja
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt ditampilkan untuk mengingatkan Anda memilih rentang data yang ingin Anda sembunyikan baris kosong, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, baris kosong disembunyikan sekaligus, lihat tangkapan layar:
Note: Untuk menyembunyikan beberapa kolom kosong, harap terapkan kode VBA berikut:
Kode VBA: Sembunyikan beberapa kolom kosong di lembar kerja
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
Hapus beberapa baris atau kolom kosong dengan cepat menggunakan Kutools for Excel
Bagian ini, saya akan berbicara tentang cara menghapus beberapa baris atau kolom kosong yang tidak Anda inginkan dalam rentang, lembar kerja, atau buku kerja. Itu Kutools untuk Excel'S Hapus Baris & Kolom Tersembunyi (Terlihat) utilitas dapat membantu Anda menyelesaikan tugas ini secepat mungkin.
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 data yang ingin Anda hapus baris atau kolom kosongnya, lalu klik Kutools > Delete > Hapus Baris & Kolom Tersembunyi (Terlihat), lihat tangkapan layar:
2. di Hapus Baris & Kolom Tersembunyi (Terlihat) kotak dialog, pilih Dalam Rentang Terpilih in Lihat kedalam daftar drop-down (Anda juga dapat memilih opsi lain dalam daftar drop-down ini sesuai kebutuhan), pilih Baris or Kolom dari Hapus jenis bagian, dan pilih Baris kosong or Kolom kosong bawah Jenis detail bagian, lihat tangkapan layar:
3. Dan kemudian klik Ok tombol, baris atau kolom kosong yang dipilih telah dihapus sekaligus. Lihat tangkapan layar:
Note: Dengan fitur ini, Anda juga dapat menghapus baris atau kolom tersembunyi, baris atau kolom yang terlihat dalam pilihan, lembar kerja atau buku kerja yang Anda butuhkan.
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!