İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir iş kitabından boş təbəqələri necə çıxarmaq olar?

Çox hesabatı olan böyük bir iş kitabınız olduğunu düşünsən də, bu iş kitabında heç bir məzmunu olmayan bəzi boş təbəqələr var. İş kitabını daha peşəkar və formal etmək üçün bu boş səhifələri iş kitabından çıxarmaq istəyirlər. Boş təbəqələri bir-birindən silmək əvəzinə bütün boş təbəqələri tez bir şəkildə aradan qaldırmaq üçün üsulları təqdim edirəm.

VBA tərəfindən boş təbəqələri çıxarın

Excel üçün Kutools tərəfindən boş təbəqələri çıxarın yaxşı fikir3


arrow mavi sağ bubble VBA tərəfindən boş təbəqələri çıxarın


Burada açıq bir iş kitabından bütün boş təbəqələri tez bir zamanda silmək üçün bir VBA təqdim edirəm.

1. Basın Alt + F11 düymələri aktivləşdirmək Microsoft Visual Basic Applications üçün pəncərə.

2. Və basın Taxmaq > Modulesyeni VBA kodundan aşağıya yapışdırıb Modules pəncərə.

VBA: boş təbəqələri çıxarı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. Və mətbuat F5 VBA'yı yerinə yetirmək üçün düyməsini və ya Çalıştır düyməsini basın və boş təbəqələri aradan qaldırılması üçün xatırlatmaq üçün bir dialoq çıxır bəli aradan qaldırmaq, Yox bu VBA ləğv etmək.

boş sənədləri 1 sil

4. Kliklədikdən sonra bəli, silinmiş vərəqlərin sayını bildirmək üçün bir dialoq çıxır, klikləyin OK onu bağlamaq üçün, və bütün boş təbəqələr bu anda çıxarıldı.

boş sənədləri 2 sil

formula Artıq Excel-də uzun müddətli düsturlar barədə narahat olmayın! Excel üçün Kutools's Avtomatik mətn bütün formulları bir qrupa əlavə edə bilərsiniz
avtomatik mətn kimi, və beyninizi azad edin! Avtomatik Mətn haqqında məlumat Pulsuz Deneme alın

arrow mavi sağ bubble Excel üçün Kutools tərəfindən boş təbəqələri çıxarın

Bəzi Excel yaşıl əlləri üçün, VBA yerinə yetirmək üçün bir qədər çətin üsuldur Excel üçün Kutools'S Boşluqları silin funksiyanı, üç boş siçan ilə bir iş kitabından bütün boş təbəqələri tez bir zamanda silə bilərsiniz!

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyini artırmaq və iş vaxtınızı xilas etmək.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Boş təbəqələri çıxarmaq istədiyiniz iş kitabını aktivləşdirin və vurun Müəssisə > İş > Boşluqları silin. Ekran görüntüsünə baxın:

boş sənədləri 3 sil

2. Və bir Excel üçün Kutools dialoq bütün boş təbəqələri aradan qaldırmaq istəyirsənsə və basın bəli aradan qaldırılması və davam etmək Yox imtina etmək. Ekran görüntüsünə baxın:

boş sənədləri 4 sil

3. Və tıkladıktan sonra bəlibir dialoq uğurla çıxarılmış vərəqlərin sayını xatırlatmaq üçün çıxır. Basın OK onu bağlamaq üçün.

boş sənədləri 5 sil

diqqət 1Bu addi-inlə maraqlandığı halda, 60 gün pulsuz sınaq versiyasını yükləmək üçün buraya vurun.


Əlaqədar məqalələr:


doc KTE



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.