كيف يمكنك حذف جميع أوراق العمل الفارغة في Excel؟
إذا كان ملف العمل الخاص بك يحتوي على العديد من أوراق العمل، بما في ذلك بعض الأوراق الفارغة، وترغب الآن في حذف هذه الأوراق الفارغة لحفظ الملف أو أرشفته، فكيف يمكنك تحديد الأوراق الفارغة من بين أوراق العمل المتعددة وحذفها تلقائيًا؟
حذف كل ورقة عمل فارغة باستخدام كود VBA
حذف كل ورقة عمل فارغة باستخدام Kutools لـ Excel
حذف كل ورقة عمل فارغة باستخدام كود VBA
من المزعج أن تتحقق يدويًّا من وجود أوراق عمل فارغة وتحذفها واحدةً تلو الأخرى، لكن مع كود VBA التالي، يمكنك حذف جميع أوراق العمل الفارغة دفعةً واحدة بسهولة!
1. اضغط مع الاستمرار على مفاتيحALT + F11، وستفتح لك نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية.
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؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل