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: