Bagaimana cara menghapus semua lembar kecuali yang ditentukan / saat ini di Excel?
Untuk menghapus semua lembar dalam buku kerja Excel kecuali satu atau lembar aktif saat ini yang ditentukan, Anda dapat menangani ini seperti metode di bawah ini.
Hapus semua lembar kecuali yang ditentukan dengan kode VBA
Satu klik untuk menghapus semua lembar kecuali yang aktif saat ini dengan Kutools for Excel
Hapus semua lembar kecuali yang ditentukan dengan kode VBA
Dengan kode VBA di bawah ini, Anda dapat menghapus semua lembar di buku kerja kecuali yang spesifik di Excel.
1. tekan lain + F11 tombol secara bersamaan untuk membuka Aplikasi Microsoft Visual Basic jendela.
2. klik Menyisipkan > Modul, lalu salin dan tempel kode VBA di bawah ini ke jendela Modul.
Kode VBA: Hapus semua lembar kecuali yang ditentukan
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubCatatan:
1. 'Sheet1"Dan"Sheet2”Adalah sheet yang ingin Anda simpan di workbook saat ini. Anda dapat mengubahnya berdasarkan kebutuhan Anda.
2. Jika Anda ingin menghapus semua kecuali menyimpan lebih banyak lembar, harap tambahkan kode Dan xWs.Name <> "nama lembar Anda" sebelum Kemudian kata di baris keenam kode. Seperti:
Jika xWs.Name <> "Sheet1" Dan xWs.Name <> "Sheet2" Dan xWs.Name <> "nama sheet Anda" Kemudian
3. Jika Anda hanya ingin menyimpan satu lembar dan menghapus semua dari workbook, harap hapus semua Dan kondisi dalam kode. Misalnya, untuk menyimpan sheet1 di buku kerja saat ini, Anda perlu mengubah kode baris keenam menjadi: Jika xWs.Name <> "Sheet1" Lalu
Hapus semua lembar kecuali yang aktif saat ini dengan Kutools for Excel (Hanya satu klik)
YAnda dapat dengan mudah menghapus semua lembar kecuali lembar aktif saat ini hanya dengan satu klik Hapus Semua Lembar Tidak Aktif kegunaan Kutools untuk Excel.
Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.
1. klik Kutools Ditambah > Lembar Kerja > Hapus Semua Lembar Tidak Aktif.
3. Kemudian kotak dialog muncul, jika Anda memutuskan untuk menghapus semua lembar kecuali yang aktif, klik OK tombol, jika tidak, klik Cancel .
Kemudian semua lembar dihapus kecuali yang aktif saat ini di buku kerja Anda.
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Tambahkan teks di tengah sel yang dipilih dengan Kutools for Excel
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!
