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 Sub

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

İ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?