انتقل إلى المحتوى الرئيسي

كيفية حذف الأعمدة الفارغة برأس في إكسيل؟

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

doc حذف الأعمدة الفارغة بالرأس 1

احذف الأعمدة الفارغة برأس باستخدام التعليمات البرمجية لـ 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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك سيتم حذف الأعمدة الفارغة ذات الرأس ، انظر لقطة الشاشة:

doc حذف الأعمدة الفارغة بالرأس 2

4. ثم انقر فوق OK الزر ، يتم حذف جميع الأعمدة الفارغة ذات الرأس فقط في ورقة العمل الحالية مرة واحدة.

ملاحظات: إذا كانت هناك أعمدة فارغة ، فسيتم حذفها أيضًا.


السهم الأزرق الحق فقاعة احذف عدة أعمدة فارغة في نطاق / ورقة عمل / مصنف باستخدام Kutools for Excel

في بعض الأحيان ، تحتاج فقط إلى حذف الأعمدة الفارغة ، ملف كوتولس ل إكسيلالصورة حذف الصفوف والأعمدة المخفية (المرئية) يمكن أن تساعدك الأداة المساعدة على إنهاء هذه المهمة بسهولة.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. 

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد نطاق الأعمدة الذي يتضمن الأعمدة الفارغة التي يجب حذفها.

2. ثم اضغط كوتولس > حذف > حذف الصفوف والأعمدة المخفية (المرئية)، انظر لقطة الشاشة:

3. في حذف الصفوف والأعمدة المخفية (المرئية) مربع الحوار ، يمكنك تحديد نطاق الحذف من القائمة المنسدلة بحث في ما تحتاج إليه ، حدد الأعمدة من نوع الحذف ، ثم اختر أعمدة فارغة من النوع التفصيلي القسم ، انظر لقطة الشاشة:

doc حذف الأعمدة الفارغة بالرأس 4

4. ثم اضغط Ok زر ، ويتم حذف الأعمدة الفارغة فقط مرة واحدة. انظر لقطة الشاشة:

doc حذف الأعمدة الفارغة بالرأس 5

نصائح: باستخدام هذه الميزة القوية ، يمكنك أيضًا حذف الصفوف الفارغة والأعمدة أو الصفوف المرئية والأعمدة أو الصفوف المخفية حسب حاجتك.

انقر فوق تنزيل Kutools for Excel مجانًا الآن!

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (10)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
All I keep getting is "There are no Columns to delete as each one has more data (rows) than just a header." Yet I know for a fact I have about 700 columns with a header and no data. I have a spreadsheet with over 900 columns and only 200ish have data below the header. Another macro worked but I had to delete the header row. So I know this macro is not working correctly. What's up?
This comment was minimized by the moderator on the site
Hello, Paul
The VBA code works well if there is only one header row in the worksheet, if there are two or more header rows, it will pop out the prompt message you said.
So you need to check out if there are hidden heading rows in your data.
Thank you!
This comment was minimized by the moderator on the site
Hello, I have the same issue, I know by fact that I have a lot of columns that have only headers but the same Error "There are no Columns to delete as each one has more data (rows) than just a header." and I have checked there are no hidden rows in the data.
Can anyone help me ?
This comment was minimized by the moderator on the site
Hi, Simoch
In this case, you can upload your Excel file attachment here, so that we can help to check the problem if you don't mind.
Thank you!
This comment was minimized by the moderator on the site
Dear skyyang no need, It worked perfecty now !! thank you so much for that VBA code !
Rated 5 out of 5
This comment was minimized by the moderator on the site
Amazing! You are correct. There must have been something hidden. Everything is working great now. Thank you so much for the quick reply.
This comment was minimized by the moderator on the site
Can this be saved in one spreadsheet and run on other files?
This comment was minimized by the moderator on the site
Works perfectly. Greatly appreciated
This comment was minimized by the moderator on the site
OMG, this is genius!!! thank you
This comment was minimized by the moderator on the site
Hi, Thanks for the nice code above. Is it free to use?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations