Sayfa adı listede yoksa sayfa nasıl silinir?
Diyelim ki, aşağıda gösterilen ekran görüntüsü gibi A sütunundaki ç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 yok, şimdi olmayan sayfaları silmek istiyorum A sütunu listesinde bu görevi Excel'de hızlı ve kolay bir şekilde nasıl çözebilirim?
VBA kodu ile belirli bir listede olmayan sayfaları silin
VBA kodu ile belirli bir listede olmayan sayfaları silin
Normalde, sayfa adlarını tek tek kontrol edebilir ve sayfa adları listesinde bulunmayanları silebilirsiniz. Ancak burada bununla başa çıkmak için bir VBA kodu hakkında konuşabilirim. Lütfen aşağıdaki işlemleri yapın:
1. Sayfa adları listesini içeren çalışma sayfasına gidin ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Sonra tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Listede olmayan sayfaları silin
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
not: Yukarıdaki kodda, A2: A6 sayfa adlarını içeren hücre referansıdır, ihtiyacınıza göre değiştirebilirsiniz.
3. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, listede olmayan sayfalar bir kerede silindi, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!