Note: The other languages of the website are Google-translated. Back to English

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

Office Sekmesi Office'te Sekmeli Düzenleme ve Göz Atmayı Etkinleştirin ve İşinizi Çok Daha Kolay Hale Getirin ...
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
  • Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
  • 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
  • Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
  • Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
  • Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
  • Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
  • 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.

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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (3)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
'WorkbookClass' türünde genel üye 'WorksheetFunction' bulunamadı.
Interop.Excel kullanıyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Estimado, hayır se si me pueda ayudar. En iyi makro kesin para ortadan kaldıran hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre bugünlerde las hojas vacías. Bu, en kötü ihtimalle, en kötü günlerin başında geliyor.

Makro es:

Alt Buscar_Hojas_Vacías_y_Eliminarlas2()

Tamsayı olarak Dim Nhojas
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = Yanlış
Application.DisplayAlerts = Yanlış

Nhojas = Sheets.Count

i = 1 için Nhojas için

WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 Ve Sheets(i).Shapes.Count = 0 ise

E-Tablolar(i).Sil

başka
nada
Eğer son
I Sonraki

Hata Dönüsünde 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Tebrikler, özet bilgiler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dilinizi konuşamıyorum ama kodunuzda bir kusur görüyorum.
Sorun şudur: >> Nhojas = Sheets.Count
Ve sonra Nhojas'a güveniyorsunuz ama bir sayfayı sildiğinizde Nhojas'ı 1 azaltmıyorsunuz.

Bu nedenle, "Sheets(i).Delete"den sonra ve "Else"den önce bu satırı kodunuza ekleyin:
Nhojalar = Nhojalar - 1

Bağış :)

Yine de iyi bir iş çıkardınız, ancak kodun hatalarını ayıklamaya çalışırken kodunuzu kuru çalıştırmanız gerekiyor.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır