كيفية إزالة الأوراق الفارغة من المصنفات
لنفترض أن لديك مصنفًا كبيرًا به أوراق متعددة ، ولكن هناك بعض الأوراق الفارغة بدون أي محتويات في هذا المصنف. لجعل المصنف أكثر احترافية ورسمية ، فأنت تريد إزالة هذه الأوراق الفارغة من المصنف. بدلاً من إزالة الأوراق الفارغة واحدة تلو الأخرى ، أقدم طرقًا لإزالة جميع الأوراق الفارغة بسرعة.
قم بإزالة الأوراق الفارغة بواسطة 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 طريقة صعبة إلى حد ما للتنفيذ ، ولكن مع كوتولس ل إكسيلالصورة احذف أوراق العمل الفارغة وظيفة ، يمكنك إزالة جميع الأوراق الفارغة بسرعة من مصنف بثلاث نقرات بالماوس!
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. قم بتمكين المصنف الذي تريد إزالة أوراقه الفارغة منه ، وانقر فوق كوتولس بلس > ورقة العمل > احذف أوراق العمل الفارغة. انظر لقطة الشاشة:
مقالات ذات صلة:
- كيفية حساب التكرارات وإزالتها من قائمة في إكسيل؟
- كيفية حذف السلسلة بعد الحرف التاسع في إكسيل؟
- كيفية إزالة النص بين الأقواس / الأقواس في إكسيل؟
- كيفية إزالة أشكال الخطوط في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!