كيفية حذف الأعمدة الفارغة برأس في إكسيل؟
إذا كانت لديك ورقة عمل كبيرة تحتوي على أعمدة متعددة ، ولكن بعض الأعمدة تحتوي فقط على رأس ، والآن ، فأنت تريد حذف هذه الأعمدة الفارغة التي تحتوي على رأس فقط للحصول على لقطة الشاشة التالية. هل يمكن حل هذا في Excel بسرعة وسهولة؟
احذف الأعمدة الفارغة برأس باستخدام التعليمات البرمجية لـ VBA
احذف عدة أعمدة فارغة في نطاق / ورقة عمل / مصنف باستخدام Kutools for Excel
احذف الأعمدة الفارغة برأس باستخدام التعليمات البرمجية لـ VBA
في Excel ، لا توجد طريقة مباشرة للتعامل مع هذه الوظيفة باستثناء حذفها واحدة تلو الأخرى يدويًا ، ولكن هنا ، يمكنني تقديم رمز لك ، يرجى القيام بما يلي:
1. اضغط باستمرار ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: حذف الأعمدة الفارغة برأس:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك سيتم حذف الأعمدة الفارغة ذات الرأس ، انظر لقطة الشاشة:
4. ثم انقر فوق OK الزر ، يتم حذف جميع الأعمدة الفارغة ذات الرأس فقط في ورقة العمل الحالية مرة واحدة.
ملاحظات: إذا كانت هناك أعمدة فارغة ، فسيتم حذفها أيضًا.
احذف عدة أعمدة فارغة في نطاق / ورقة عمل / مصنف باستخدام Kutools for Excel
في بعض الأحيان ، تحتاج فقط إلى حذف الأعمدة الفارغة ، ملف كوتولس ل إكسيلالصورة حذف الصفوف والأعمدة المخفية (المرئية) يمكن أن تساعدك الأداة المساعدة على إنهاء هذه المهمة بسهولة.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد نطاق الأعمدة الذي يتضمن الأعمدة الفارغة التي يجب حذفها.
2. ثم اضغط كوتولس > حذف > حذف الصفوف والأعمدة المخفية (المرئية)، انظر لقطة الشاشة:
3. في حذف الصفوف والأعمدة المخفية (المرئية) مربع الحوار ، يمكنك تحديد نطاق الحذف من القائمة المنسدلة بحث في ما تحتاج إليه ، حدد الأعمدة من نوع الحذف ، ثم اختر أعمدة فارغة من النوع التفصيلي القسم ، انظر لقطة الشاشة:
4. ثم اضغط Ok زر ، ويتم حذف الأعمدة الفارغة فقط مرة واحدة. انظر لقطة الشاشة:
نصائح: باستخدام هذه الميزة القوية ، يمكنك أيضًا حذف الصفوف الفارغة والأعمدة أو الصفوف المرئية والأعمدة أو الصفوف المخفية حسب حاجتك.
انقر فوق تنزيل Kutools for Excel مجانًا الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!