Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Kelly Last modified

أحيانًا عند استيراد البيانات إلى Microsoft Excel من صفحة الويب أو ملف CSV أو نصوص، قد تظهر العديد من الأعمدة الفارغة معها. من المؤكد أن حذف كل عمود فارغ على حدة سيكون مضيعة للوقت. لذلك، يبحث بعضنا عن طرق سهلة لحل هذه المشكلة. جمعت هذه المقالة بعض الحيل لمساعدتك على حذف عدة أعمدة فارغة بسرعة.

حذف عدة أعمدة فارغة في ورقة العمل باستخدام صيغة

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

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

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

حذف عدة أعمدة فارغة في ورقة العمل باستخدام صيغة

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

1. أضف صفًا جديدًا أعلى نطاق بياناتك، انظر إلى لقطة الشاشة:

Add a new row at the top of your data range

2. بعد ذلك، أدخل الصيغة أدناه في الخلية A1، ثم اسحب مقبض التعبئة إلى الجانب الأيمن لتطبيق هذه الصيغة على الخلايا الأخرى. سيتم عرض TRUE إذا كان العمود فارغًا، وإلا سيتم عرض FALSE، انظر إلى لقطة الشاشة:

=COUNTA(A2:A1048576)=0

enter a formula to check if the column is blank

3. بعد ذلك، حدد نطاق البيانات بما في ذلك الصف المساعد، ثم انقر فوق "بيانات" > "ترتيب"، انظر إلى لقطة الشاشة:

click Data > Sort

4. في مربع الحوار المنبثق "ترتيب"، انقر فوق زر "خيارات"، وفي مربع الحوار "خيارات الترتيب"، حدد خيار "الترتيب من اليسار إلى اليمين"، انظر إلى لقطات الشاشة:

click Options button arrow right select Sort left to right option

5. انقر فوق زر "موافق" للعودة إلى مربع الحوار "ترتيب"، ثم حدد "الصف الأول" من القائمة المنسدلة "ترتيب حسب"، وحدد "قيم الخلية" من قسم "الترتيب حسب"، واختر "من الأكبر إلى الأصغر" من قسم "الترتيب"، انظر إلى لقطة الشاشة:

specify the options in the dialog box

6. بعد ذلك، تم ترتيب جميع الأعمدة الفارغة على الجانب الأيسر من بياناتك، والآن تحتاج فقط إلى تحديد جميع الأعمدة والنقر بزر الماوس الأيمن واختيار "حذف" لحذف هذه الأعمدة الفارغة دفعة واحدة، انظر إلى لقطة الشاشة:

all empty columns have been sorted at the left of your data,then, delete them

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

إذا كنت ترغب في استخدام ماكرو VBA، فإن الأمور تصبح أسهل بكثير. قد يساعدك الكود التالي لـ VBA، الرجاء القيام بما يلي:

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

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

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

Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
    Set rng = InputRng.Cells(1, i).EntireColumn
    If Application.WorksheetFunction.CountA(rng) = 0 Then
        rng.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

3. اضغط على مفتاح F5 لتشغيل هذا الماكرو، وحدد نطاق العمل الذي تحتاجه في مربع الحوار المنبثق. انظر إلى لقطة الشاشة:

vba code to select the data range

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

all empty columns in the selection are removed

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

يمكن لأداة حذف الصفوف (المرئية) والأعمدة المخفية في Kutools لـ Excel أن تساعدك على إزالة عدة صفوف أو أعمدة فارغة بسرعة دفعة واحدة.

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

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

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

click Delete Hidden (Visible) Rows & Columns feature of kutools

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

set the options in the dilaog box

3. بعد ذلك، انقر فوق "موافق". وتم حذف الأعمدة الفارغة من النطاق المحدد. انظر إلى لقطة الشاشة:

the blank columns have been deleted from the selected range

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

أحيانًا، قد ترغب في حذف جميع الأعمدة الفارغة التي تحتوي فقط على رأس في ورقة العمل، يمكن أن يساعدك الكود التالي لـ VBA، الرجاء القيام بالخطوات التالية:

Delete multiple empty columns with a header

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

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

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

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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 لتشغيل هذا الكود، وسيظهر مربع تنبيه ينبثق لتذكيرك بأن الأعمدة الفارغة مع الرأس سيتم حذفها، انظر إلى لقطة الشاشة:

a prompt box will pop out to remind you the blank columns with header will be deleted

4. وبعد ذلك، انقر فوق زر "موافق"، سيتم حذف جميع الأعمدة الفارغة التي تحتوي فقط على رأس في ورقة العمل الحالية دفعة واحدة. انظر إلى لقطات الشاشة:

original data arrow right all the blank columns with only header in current worksheet are deleted

مقالات ذات صلة أكثر:

  • حذف جميع الصور أو الكائنات الأخرى في Excel
  • إذا كنت ترغب في حذف جميع الصور من Microsoft Excel، فقد يكون من المستهلك للوقت اختيار كل صورة وحذفها واحدة تلو الأخرى. قد تساعدك الحيل التالية في تسهيل عملك لحذف جميع الصور.
  • حذف الصفوف بناءً على لون الخلفية في Excel
  • كيف يمكنك حذف الصفوف بأكملها بناءً على لون الخلفية؟ في هذا المثال، أحتاج إلى حذف جميع الصفوف التي تكون خلاياها مملوءة بلون خلفية أزرق كما هو موضح في لقطة الشاشة التالية. من خلال هذه المقالة، ستحصل على بعض الأكواد لتحقيق هذه المهمة في Excel.
  • حذف جميع الصفوف التي تحتوي على نص معين داخل عمود في Google Sheets
  • لنفترض أن لديك مجموعة من البيانات في ورقة Google، الآن ترغب في حذف الصفوف بناءً على قيم الخلايا في عمود. على سبيل المثال، أريد حذف جميع الصفوف التي تحتوي على النص "مكتمل" في العمود C. في هذه المقالة، سأتحدث عن كيفية حل هذه المشكلة في Google Sheets.

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

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

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

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

  • تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!

جميع إضافات Kutools. مثبت واحد

حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.

Excel Word Outlook Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد