Bagaimana cara menghapus sheet jika nama sheet tidak ada dalam daftar?
Katakanlah, saya memiliki lembar kerja yang berisi daftar nama lembar dalam buku kerja di kolom A seperti gambar di bawah ini yang ditampilkan, dan beberapa nama lembar di buku kerja tidak ada dalam daftar, sekarang, saya ingin menghapus lembar yang tidak di daftar kolom A. Bagaimana saya bisa menyelesaikan tugas ini di Excel dengan cepat dan mudah?
Hapus lembar yang tidak ada dalam daftar tertentu dengan kode VBA
Hapus lembar yang tidak ada dalam daftar tertentu dengan kode VBA
Biasanya, Anda dapat memeriksa nama sheet satu per satu, dan menghapus nama yang tidak ada di daftar nama sheet. Tapi, di sini, saya bisa berbicara tentang kode VBA untuk menghadapinya. Harap lakukan sebagai berikut:
1. Masuk ke lembar kerja yang berisi daftar nama lembar, lalu tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Lalu klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Hapus lembar yang tidak ada dalam daftar
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
Note: Pada kode di atas, A2: A6 adalah referensi sel yang berisi nama sheet, Anda dapat mengubahnya sesuai kebutuhan Anda.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, lembar yang tidak ada dalam daftar telah dihapus sekaligus, lihat tangkapan layar:
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!
