Excel'de belirtilen / geçerli olan dışındaki tüm sayfalar nasıl silinir?
Excel çalışma kitabındaki tüm sayfaları, belirtilen bir veya geçerli etkin sayfa dışında silmek için, bununla aşağıda gösterilen yöntemlerle başa çıkabilirsiniz.
VBA kodu ile belirtilen hariç tüm sayfaları silin
Kutools for Excel ile mevcut aktif olan hariç tüm sayfaları silmek için tek bir tıklama
VBA kodu ile belirtilen hariç tüm sayfaları silin
Aşağıdaki VBA koduyla, Excel'deki belirli bir çalışma kitabındaki tüm sayfayı silebilirsiniz.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Microsoft Visual Basic Uygulaması pencere.
2. tık Ekle > modül, ardından VBA kodunu kopyalayıp Modül penceresine yapıştırın.
VBA kodu: Belirtilenler dışındaki tüm sayfaları silin
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 Sub
notlar:
1. "Sheet1"Ve"Sheet2"Mevcut çalışma kitabında saklamak istediğiniz sayfalardır. Bunları ihtiyaçlarınıza göre değiştirebilirsiniz.
2. Daha fazla sayfa tutmak dışında tümünü silmek istiyorsanız, lütfen kod ekleyin Ve xWs.Name <> "sayfa adınız" önce Sonra kodun altıncı satırındaki kelime. Gibi:
XWs.Name <> "Sayfa1" ve xWs.Name <> "Sayfa2" ise Ve xWs.Name <> "sayfanızın adı" Sonra
3. Yalnızca bir sayfayı saklamak ve çalışma kitabından tümünü silmek istiyorsanız, lütfen hepsini kaldırın Ve koddaki durum. Örneğin, sayfa1'i geçerli çalışma kitabında tutmak için altıncı satır kodunu şu şekilde değiştirmeniz gerekir: XWs.Name <> "Sayfa1" O zaman
Kutools for Excel ile mevcut aktif olanlar dışındaki tüm sayfaları sil (yalnızca tek tıklama)
Yo sadece tek bir tıklama ile mevcut aktif sayfa dışındaki tüm sayfaları kolayca kaldırabilirsiniz. Tüm Etkin Olmayan Sayfaları Sil yarar Kutools for Excel.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. tık Kutools Artı > Çalışma Sayfası > Tüm Etkin Olmayan Sayfaları Sil.
3. Ardından bir iletişim kutusu açılır, aktif olan hariç tüm sayfaları silmeye karar verirseniz, OK düğmesini, aksi takdirde, İptal etmek düğmesine basın.
Ardından, çalışma kitabınızdaki geçerli etkin olan dışındaki tüm sayfalar silinir.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
Kutools for Excel ile seçili hücrelerin ortasına metin ekleyin
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!