Belirli bir listede olmayan sayfayı nasıl silerim?

Diyelim ki, A sütununda aşağıdaki ekran görüntüsünde gösterildiği gibi çalışma kitabındaki sayfa adlarının bir listesini içeren bir çalışma sayfam var ve çalışma kitabındaki bazı belirli sayfa adları listede bulunmuyor. Şimdi, A sütunundaki listede olmayan sayfaları silmek istiyorum. Bu görevi Excel'de hızlı ve kolay bir şekilde nasıl çözebilirim?

VBA kodu ile belirli bir listede olmayan sayfaları silme

VBA kodu ile belirli bir listede olmayan sayfaları silme

Normalde, sayfa adlarını tek tek kontrol edebilir ve listede olmayanları silebilirsiniz. Ancak burada, bu işlemi ele almak için bir VBA kodundan bahsedeceğim. Lütfen şu adımları izleyin:

1. Sayfa adları listesini içeren çalışma sayfasına gidin ve ardından Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ardından Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Belirli bir listede olmayan sayfaları silme

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 "No sheets found to delete.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted " & cnt & " worksheets."
    End If
End Sub

Not: Yukarıdaki kodda, A2:A6 , sayfa adlarını içeren hücre başvurusudur, bunu ihtiyaçlarınıza göre değiştirebilirsiniz.

3. Ve sonra bu kodu çalıştırmak için F5 tuşuna basın, listede olmayan sayfalar hemen silinecektir, ekran görüntüsüne bakın: