كيفية إزالة الأوراق الفارغة من المصنفات

لنفترض أن لديك مصنفًا كبيرًا به أوراق متعددة ، ولكن هناك بعض الأوراق الفارغة بدون أي محتويات في هذا المصنف. لجعل المصنف أكثر احترافية ورسمية ، فأنت تريد إزالة هذه الأوراق الفارغة من المصنف. بدلاً من إزالة الأوراق الفارغة واحدة تلو الأخرى ، أقدم طرقًا لإزالة جميع الأوراق الفارغة بسرعة.

قم بإزالة الأوراق الفارغة بواسطة VBA

قم بإزالة الأوراق الفارغة بواسطة Kutools for Excel

---

قم بإزالة الأوراق الفارغة بواسطة VBA

أقدم هنا VBA لمساعدتك في إزالة جميع الأوراق الفارغة بسرعة من مصنف مفتوح.

1. صحافة ALT + F11 مفاتيح للتمكين مايكروسوفت فيجوال للتطبيقات الأساسية نافذة.

2. وانقر إدراج > وحدة، قم بلصق رمز VBA أدناه إلى المنبثق الجديد وحدة نافذة.

فبا: إزالة الأوراق الفارغة.

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. والصحافة F5 مفتاح أو زر تشغيل لتنفيذ VBA ، وينبثق مربع حوار لتذكيرك بما إذا كنت تريد إزالة الأوراق الفارغة ، انقر فوق نعم للاستمرار في الإزالة ، لا لإلغاء VBA.

4. بعد النقر نعم، ينبثق مربع حوار لإخبارك بعدد الأوراق التي تمت إزالتها ، انقر فوق OK لإغلاقه ، وتمت إزالة جميع الأوراق الفارغة في هذه اللحظة.

---

قم بإزالة الأوراق الفارغة بواسطة Kutools for Excel

بالنسبة لبعض أيدي Excel الخضراء ، يعد VBA طريقة صعبة إلى حد ما للتنفيذ ، ولكن مع كوتولس ل إكسيلالصورة احذف أوراق العمل الفارغة وظيفة ، يمكنك إزالة جميع الأوراق الفارغة بسرعة من مصنف بثلاث نقرات بالماوس!

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بتمكين المصنف الذي تريد إزالة أوراقه الفارغة منه ، وانقر فوق كوتولس بلس > ورقة العمل > احذف أوراق العمل الفارغة. انظر لقطة الشاشة:

 

---

مقالات ذات صلة:

• كيفية حساب التكرارات وإزالتها من قائمة في إكسيل؟
• كيفية حذف السلسلة بعد الحرف التاسع في إكسيل؟
• كيفية إزالة النص بين الأقواس / الأقواس في إكسيل؟
• كيفية إزالة أشكال الخطوط في إكسيل؟

---