Ana içeriğe atla

Çalışma kitaplarından boş sayfalar nasıl kaldırılır

Birden çok sayfalı büyük bir çalışma kitabınız olduğunu, ancak bu çalışma kitabında içeriği olmayan bazı boş sayfalar olduğunu varsayalım. Çalışma kitabını daha profesyonel ve resmi hale getirmek için, bu boş sayfaları çalışma kitabından kaldırmak istersiniz. Boş sayfaları tek tek çıkarmak yerine, tüm boş sayfaları hızlı bir şekilde çıkarma yöntemlerini tanıtıyorum.

Boş sayfaları VBA ile çıkarın

Kutools for Excel ile boş sayfaları kaldırın iyi fikir3


ok mavi sağ balon Boş sayfaları VBA ile çıkarın

Burada, tüm boş sayfaları açılmış bir çalışma kitabından hızlı bir şekilde kaldırmanıza yardımcı olacak bir VBA tanıtıyorum.

1. Basın Alt + F11 etkinleştirmek için anahtarlar Temel Uygulamalar için Microsoft Visual pencere.

2. Ve tıklayın Ekle > modül, yeni açılana VBA kodunun altına yapıştırın modül pencere.

VBA: Boş sayfaları çıkarın.

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. Ve tuşuna basın F5 VBA'yı yürütmek için tuşuna veya Çalıştır düğmesi ve boş sayfaları kaldırıp kaldırmayacağınızı size hatırlatmak için bir iletişim kutusu açılır, Evet kaldırmaya devam etmek için Yok hayır bu VBA'yı iptal etmek için.

doc boş sayfaları kaldır 1

4. Tıkladıktan sonra Evet, kaldırılan sayfaların sayısını size söyleyen bir iletişim kutusu açılır, OK kapatmak için ve şu anda tüm boş sayfalar kaldırıldı.

doc boş sayfaları kaldır 2


ok mavi sağ balon Kutools for Excel ile boş sayfaları kaldırın

Bazı Excel yeşil eller için, VBA uygulaması biraz zor bir yöntemdir, ancak Kutools for Excel'S Boş Çalışma Sayfalarını Silin işlevi, bir çalışma kitabındaki tüm boş sayfaları üç fare tıklamasıyla hızlı bir şekilde kaldırabilirsiniz!

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. Boş sayfalarını kaldırmak istediğiniz çalışma kitabını etkinleştirin ve Kutools Artı > Çalışma Sayfası > Boş Çalışma Sayfalarını Silin. Ekran görüntüsüne bakın:

doc boş sayfaları kaldır 3

 


İlgili Makaleler:


En İyi Ofis Üretkenlik Araçları

Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50'den fazla Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

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...

kte sekmesi 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations