كيفية حذف الأعمدة الفارغة التي تحتوي على رأس في Excel؟

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

حذف الأعمدة الفارغة مع رأس باستخدام كود VBA

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

حذف الأعمدة الفارغة مع رأس باستخدام كود VBA

في Excel، لا توجد طريقة مباشرة للتعامل مع هذه المهمة باستثناء حذفها واحدة تلو الأخرى يدويًا، ولكن هنا يمكنني أن أقدم لك كودًا، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفاتيح ALT + F11، ثم ستفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: حذف الأعمدة الفارغة مع رأس:

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 columns with only headers are 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. انقر فوق موافق، جميع الأعمدة الفارغة التي تحتوي فقط على رؤوس في ورقة العمل الحالية سيتم حذفها دفعة واحدة.

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

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

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

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

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

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

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

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