كيفية حذف جميع أوراق العمل الفارغة في Excel؟

إذا كان لديك مصنف يحتوي على العديد من أوراق العمل، وفي الوقت نفسه، هناك بعض أوراق العمل الفارغة فيه. والآن تريد حذف أوراق العمل الفارغة لحفظ أو أرشفة الملف. كيف يمكنك البحث عن الأوراق الفارغة من بين عدة أوراق عمل وحذفها تلقائيًا؟

حذف جميع أوراق العمل الفارغة باستخدام كود VBA

حذف جميع أوراق العمل الفارغة باستخدام Kutools لـ Excel

حذف جميع أوراق العمل الفارغة باستخدام كود VBA

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

1. اضغط باستمرار على مفاتيح ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

VBA: حذف جميع أوراق العمل الفارغة

Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
    If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
        Ws.Delete
    End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3. ثم اضغط على مفتاح F5، وسيتم حذف جميع أوراق العمل الفارغة مرة واحدة.

حذف جميع أوراق العمل الفارغة باستخدام Kutools لـ Excel

إذا لم تكن على دراية بكود VBA، يمكنني أن أقدم لك أداة سهلة - Kutools لـ Excel، باستخدام وظيفة حذف أوراق العمل الفارغة، يمكنك إزالة جميع أوراق العمل الفارغة بنقرة واحدة.

Kutools لـ Excel يتضمن أكثر من 300 أداة مفيدة لبرنامج Excel. جربه مجانًا بدون قيود لمدة 30 يومًا. احصل عليه الآن.

عندما تقوم بتثبيت Kutools لـ Excel، يرجى القيام بالخطوات التالية:

1. انقر فوق Kutools Plus > ورقة العمل > حذف أوراق العمل الفارغة، انظر إلى لقطة الشاشة:

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

3. ثم انقر فوق نعم، وستتم إزالة أوراق العمل الفارغة بنجاح. انظر إلى لقطات الشاشة:

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

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

كيفية حذف أوراق العمل المخفية في Excel؟