Bir Excel çalışma kitabından boş sayfaları nasıl kaldırılır
Diyelim ki çok sayıda sayfa içeren büyük bir çalışma kitabınız var, ancak içeriği olmayan bazı boş sayfalar da mevcut. Çalışma kitabını daha profesyonel ve resmi hale getirmek için bu boş sayfaları çalışma kitabından kaldırmak istiyorsunuz. Boş sayfaları tek tek kaldırmak yerine, bu kılavuz tüm boş sayfaları hızlıca kaldırmak için yöntemler sunar.
VBA kullanarak tüm boş sayfaları kaldırma
Kutools for Excel kullanarak tüm boş sayfaları kaldırma 
VBA kullanarak tüm boş sayfaları kaldırma
Burada, açık bir çalışma kitabındaki tüm boş sayfaları hızlıca kaldırmak için size yardımcı olacak bir VBA tanıtacağım.
1. Microsoft Visual for Basic Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu yeni açılan Modül penceresine yapıştırın.
VBA: Boş sayfaları kaldır.
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 Sub3. VBA'yi çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın. Boş sayfaları kaldırmak isteyip istemediğinizi soran bir iletişim kutusu açılacak. Devam etmek için Evet'e, işlemi iptal etmek için Hayır'a tıklayın.
4. Evet'e tıkladıktan sonra, kaldırılan sayfa sayısını gösteren bir iletişim kutusu açılacak. Kapatmak için Tamam'a tıklayın ve tüm boş sayfalar kaldırılacaktır.
Kutools for Excel kullanarak tüm boş sayfaları kaldırma
Excel başlangıç seviyesinde olanlar için VBA kullanmak biraz zor olabilir. Ancak Kutools for Excel'in Boş Çalışma Sayfalarını Sil fonksiyonu ile, üç tıklamayla bir çalışma kitabındaki tüm boş sayfaları kolayca kaldırabilirsiniz!
1. Boş sayfalarını kaldırmak istediğiniz çalışma kitabını açın ve Kutools Plus > Çalışma Sayfası > Boş Çalışma Sayfalarını Sil'e tıklayın. Ekran görüntüsüne bakın:
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Sürekli ücretsiz AI özelliklerinden yararlanın! Hemen Edinin
İlgili Makaleler:
- Excel'de bir listedeki yinelenenleri nasıl sayar ve kaldırırsınız?
- Excel'de n. karakterden sonraki metni nasıl silersiniz?
- Excel'de köşeli parantez/parantez içindeki metni nasıl kaldırırsınız?
- Excel'de çizgi şekillerini nasıl kaldırırsınız?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin