Bagaimana cara menghapus semua lembar kerja kosong di Excel?

Jika Anda memiliki workbook yang banyak worksheet-nya, ada beberapa worksheet kosong di dalamnya. Dan sekarang Anda ingin menghapus lembar kerja kosong untuk menyimpan atau mengarsipkan file. Bagaimana Anda bisa mencari lembar kosong dari beberapa lembar kerja dan menghapusnya secara otomatis?

Hapus semua lembar kerja kosong dengan kode VBA

Hapus semua lembar kerja kosong dengan Kutools for Excel

Hapus semua lembar kerja kosong dengan kode VBA

Luar biasa! Menggunakan Tab Efisien di Excel Seperti Chrome, Edge, Firefox dan Safari!
Hemat 50% waktu Anda, dan kurangi ribuan klik mouse untuk Anda setiap hari!

Sulit bagi Anda untuk memeriksa lembar kerja kosong dan menghapusnya satu per satu, tetapi dengan kode VBA berikut, Anda dapat dengan mudah menghapus semua lembar kerja kosong sekaligus.

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di jendela modul.

VBA: hapus semua lembar kerja kosong

Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Untuk Setiap Ws Dalam Aplikasi.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Kemudian Ws.Delete End Jika Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Lalu tekan F5 kunci, dan semua lembar kerja kosong dihapus sekaligus.

Hapus semua lembar kerja kosong dengan Kutools for Excel

Jika Anda tidak terbiasa dengan kode VBA, saya dapat memperkenalkan Anda alat yang mudah- Kutools untuk Excel, Dengan yang Hapus Lembar Kerja Kosong fungsi, Anda dapat menghapus semua lembar kerja kosong dengan satu klik.

Kutools untuk Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang.

Ketika Anda telah menginstal Kutools for Excel, lakukan langkah-langkah berikut:

1. Klik Enterprise > Alat Lembar Kerja > Hapus Lembar Kerja Kosong, lihat tangkapan layar:

2. Dan kotak prompt akan muncul untuk mengingatkan Anda apakah Anda ingin menghapus semua lembar kerja kosong atau tidak, lihat tangkapan layar:

3. Lalu klik Yes, dan lembar kerja kosong berhasil dihapus. Lihat tangkapan layar:

Jika Anda ingin tahu lebih banyak tentang fitur ini, silakan klik Hapus Lembar Kerja Kosong.

Alat Produktivitas Kantor Terbaik

🤖	Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas \| Hasilkan Kode \| Buat Rumus Khusus \| Analisis Data dan Hasilkan Grafik \| Aktifkan Fungsi Kutools...
	Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat \| Hapus Baris Kosong \| Gabungkan Kolom atau Sel tanpa Kehilangan Data \| Putaran tanpa Formula ...
	Pencarian Super: VLookup Beberapa Kriteria \| VLookup Nilai Berganda \| VLookup di Beberapa Lembar \| Pencarian Fuzzy ....
	Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat \| Daftar Drop Down yang Bergantung \| Multi-pilih Drop Down List ....
	Manajer Kolom: Tambahkan Jumlah Kolom Tertentu \| Pindahkan Kolom \| Alihkan Status Visibilitas Kolom Tersembunyi \| Bandingkan Rentang & Kolom ...
	Fitur Unggulan: Fokus Kisi \| Tampilan Desain \| Bar Formula Besar \| Manajer Buku Kerja & Lembar \| Perpustakaan Sumberdaya (Teks otomatis) \| Pemetik tanggal \| Gabungkan Lembar Kerja \| Enkripsi/Dekripsi Sel \| Kirim Email berdasarkan Daftar \| Filter Super \| Filter Khusus (filter tebal/miring/coret...) ...
	15 Perangkat Teratas: 12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...) \| 50 + Grafik jenis (Gantt Chart, ...) \| 40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...) \| 19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...) \| 12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...) \| 7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...) \| ... dan banyak lagi

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...

Deskripsi Produk

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!

Read More ... Download Gratis...

Comments (3)

No ratings yet. Be the first to rate!

Salvador Sánchez

about 4 years ago

#29815

This comment was minimized by the moderator on the site

Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.

SD Salvador Sánchez

about 4 years ago

#29816

This comment was minimized by the moderator on the site

I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.

Ems

about 6 years ago

#21196

This comment was minimized by the moderator on the site

Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

🤖	Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas \| Hasilkan Kode \| Buat Rumus Khusus \| Analisis Data dan Hasilkan Grafik \| Aktifkan Fungsi Kutools...
	Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat \| Hapus Baris Kosong \| Gabungkan Kolom atau Sel tanpa Kehilangan Data \| Putaran tanpa Formula ...
	Pencarian Super: VLookup Beberapa Kriteria \| VLookup Nilai Berganda \| VLookup di Beberapa Lembar \| Pencarian Fuzzy ....
	Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat \| Daftar Drop Down yang Bergantung \| Multi-pilih Drop Down List ....
	Manajer Kolom: Tambahkan Jumlah Kolom Tertentu \| Pindahkan Kolom \| Alihkan Status Visibilitas Kolom Tersembunyi \| Bandingkan Rentang & Kolom ...
	Fitur Unggulan: Fokus Kisi \| Tampilan Desain \| Bar Formula Besar \| Manajer Buku Kerja & Lembar \| Perpustakaan Sumberdaya (Teks otomatis) \| Pemetik tanggal \| Gabungkan Lembar Kerja \| Enkripsi/Dekripsi Sel \| Kirim Email berdasarkan Daftar \| Filter Super \| Filter Khusus (filter tebal/miring/coret...) ...
	15 Perangkat Teratas: 12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...) \| 50 + Grafik jenis (Gantt Chart, ...) \| 40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...) \| 19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...) \| 12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...) \| 7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...) \| ... dan banyak lagi

changelog

Tutorial Fitur

Mendapatkan bantuan?