Ana içeriğe atla

Excel'deki tüm boş çalışma sayfalarını nasıl silebilirim?

Çok sayıda çalışma sayfası olan bir çalışma kitabınız varsa, bu arada, içinde bazı boş çalışma sayfaları vardır. Ve şimdi dosyayı kaydetmek veya arşivlemek için boş çalışma sayfalarını silmek istiyorsunuz. Birden fazla çalışma sayfasından boş sayfaları nasıl arayabilir ve otomatik olarak silebilirsiniz?

VBA kodu ile tüm boş çalışma sayfalarını silin

Kutools for Excel ile tüm boş çalışma sayfalarını silin

ok mavi sağ balon VBA kodu ile tüm boş çalışma sayfalarını silin

Boş çalışma sayfalarını kontrol etmeniz ve bunları birer birer kaldırmanız zahmetlidir, ancak aşağıdaki VBA kodu ile tüm boş çalışma sayfalarını aynı anda kolayca silebilirsiniz.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresine yapıştırın.

VBA: tüm boş çalışma sayfalarını sil

Sub DeleteBlankWorksheets () '20130830 Dim Ws As Worksheet As Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False For every Ws in Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Sonra Ws.Delete End Sonraki Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Daha sonra tuşuna basın. F5 anahtar ve tüm boş çalışma sayfaları bir defada silinir.

ok mavi sağ balon Kutools for Excel ile tüm boş çalışma sayfalarını silin

VBA koduna aşina değilseniz, size kolay bir araç sunabilirim. Kutools for Excel, Onun ile Boş Çalışma Sayfalarını Silin işlevi, tüm boş çalışma sayfalarını tek bir tıklama ile kaldırabilirsiniz.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.

Kutools for Excel'i kurduğunuzda, lütfen aşağıdaki adımları uygulayın:

1. tıklayın kuruluş > Çalışma Sayfası Araçları > Boş Çalışma Sayfalarını Silin, ekran görüntüsüne bakın:

doc-delete-blank-pages1

2. Ve tüm boş çalışma sayfalarını silmek isteyip istemediğinizi hatırlatmak için bir istem kutusu görünecektir, ekran görüntüsüne bakın:

doc-delete-blank-pages2

3. Sonra tıklayın Evetve boş çalışma sayfaları başarıyla silindi. Ekran görüntülerine bakın:

doc-delete-blank-pages3
-1
doc-delete-blank-pages4

Bu özellik hakkında daha fazla bilgi edinmek istiyorsanız, lütfen tıklayın Boş Çalışma Sayfalarını Silin.

İlgili makale:

Excel'de gizli çalışma sayfaları nasıl silinir?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
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ç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ 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...

Açıklama

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 (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations