كيفية حذف جميع أوراق العمل الفارغة في إكسيل؟
إذا كان لديك مصنف يحتوي على الكثير من أوراق العمل ، فهناك بعض أوراق العمل الفارغة فيه. والآن تريد حذف أوراق العمل الفارغة لحفظ الملف أو أرشفته. كيف يمكنك البحث عن الأوراق الفارغة من أوراق عمل متعددة وحذفها تلقائيًا؟
احذف جميع أوراق العمل الفارغة برمز VBA
احذف جميع أوراق العمل الفارغة باستخدام Kutools for Excel
احذف جميع أوراق العمل الفارغة برمز VBA
من المزعج لك التحقق من أوراق العمل الفارغة وإزالتها واحدة تلو الأخرى ، ولكن باستخدام رمز VBA التالي ، يمكنك بسهولة حذف جميع أوراق العمل الفارغة مرة واحدة.
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في نافذة الوحدة النمطية.
فبا: احذف جميع أوراق العمل الفارغة
Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As ورقة عمل عند الخطأ ، استئناف التطبيق التالي. ScreenUpdating = False Application.DisplayAlerts = False For each Ws In Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 ثم Ws.Delete End إذا كان Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
3. ثم اضغط F5 مفتاح ، ويتم حذف جميع أوراق العمل الفارغة مرة واحدة.
احذف جميع أوراق العمل الفارغة باستخدام Kutools for Excel
إذا لم تكن على دراية برمز VBA ، يمكنني تقديم أداة سهلة لك- كوتولس ل إكسيل، بما لديها احذف أوراق العمل الفارغة وظيفة ، يمكنك إزالة جميع أوراق العمل الفارغة بنقرة واحدة.
كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.
عندما تقوم بتثبيت Kutools for Excel ، يرجى اتباع الخطوات التالية:
1. انقر مشروع > أدوات ورقة العمل > احذف أوراق العمل الفارغة، انظر لقطة الشاشة:
2. وسيظهر مربع موجه لتذكيرك بما إذا كنت تريد حذف جميع أوراق العمل الفارغة أم لا ، انظر لقطة الشاشة:
3. ثم اضغط نعم، وتم حذف أوراق العمل الفارغة بنجاح. انظر لقطات الشاشة:
إذا كنت تريد معرفة المزيد عن هذه الميزة ، الرجاء النقر فوق احذف أوراق العمل الفارغة.
مقالة ذات صلة:
كيفية حذف أوراق العمل المخفية في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!