Note: The other languages of the website are Google-translated. Back to English

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

إذا كانت لديك ورقة عمل كبيرة تحتوي على أعمدة متعددة ، ولكن بعض الأعمدة تحتوي فقط على رأس ، والآن ، فأنت تريد حذف هذه الأعمدة الفارغة التي تحتوي على رأس فقط للحصول على لقطة الشاشة التالية. هل يمكن حل هذا في 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (10)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على الرمز الجميل أعلاه. هل هو مجاني للاستخدام؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا إلهي ، هذا عبقري !!! شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل بشكل مثالي. اقدر هذا جدا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن حفظ هذا في جدول بيانات وتشغيله على ملفات أخرى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كل ما أحصل عليه باستمرار هو "لا توجد أعمدة لحذفها حيث يحتوي كل عمود على بيانات (صفوف) أكثر من مجرد رأس." ومع ذلك ، فأنا أعلم أن لدي حوالي 700 عمود برأس ولا توجد بيانات. لدي جدول بيانات يحتوي على أكثر من 900 عمود و 200 عمود فقط بها بيانات أسفل الرأس. عمل ماكرو آخر ولكن كان علي حذف صف الرأس. لذلك أعرف أن هذا الماكرو لا يعمل بشكل صحيح. ما أخبارك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بول
يعمل رمز VBA جيدًا إذا كان هناك صف رأس واحد فقط في ورقة العمل ، وإذا كان هناك صفان أو أكثر من الصفوف الرأسية ، فسيظهر لك رسالة المطالبة التي قلتها.
لذلك تحتاج إلى التحقق مما إذا كانت هناك صفوف عناوين مخفية في بياناتك.
شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش! انت على حق. يجب أن يكون هناك شيء مخفي. كل شيء يعمل كبير الآن. شكرا جزيلا على الرد السريع لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لدي نفس المشكلة ، أعلم بحقيقة أن لدي الكثير من الأعمدة التي تحتوي على رؤوس فقط ولكن نفس الخطأ "لا توجد أعمدة لحذفها حيث يحتوي كل عمود على بيانات (صفوف) أكثر من مجرد رأس." وقد تحققت من عدم وجود صفوف مخفية في البيانات.
هل يستطيع أي أحد مساعدتي ؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا سيموك
في هذه الحالة ، يمكنك تحميل مرفق ملف Excel الخاص بك هنا ، حتى نتمكن من المساعدة في التحقق من المشكلة إذا كنت لا تمانع.
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي skyyang لا داعي ، لقد عملت بشكل مثالي الآن !! شكرًا جزيلاً على رمز VBA!
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL