جدول المحتويات
سيعلمك البرنامج التعليمي كيفية إزالة الأعمدة الفارغة في Excel باستخدام ماكرو وصيغة ونقرة زر.
تافه كما يبدو ، حذف الأعمدة الفارغة في Excel هو ليس شيئًا يمكن تحقيقه بمجرد نقرة على الماوس. لا يمكن أن يتم ذلك بنقرتين أيضًا. إن احتمال مراجعة جميع الأعمدة في ورقة العمل الخاصة بك وإزالة الأعمدة الفارغة يدويًا هو بالتأكيد شيء تريد تجنبه. لحسن الحظ ، يوفر Microsoft Excel الكثير من الميزات المختلفة ، وباستخدام هذه الميزات بطرق مبتكرة يمكنك التعامل مع أي مهمة تقريبًا! استخدم
عندما يتعلق الأمر بإزالة الفراغات في Excel (سواء كانت خلايا أو صفوفًا أو أعمدة فارغة) ، تعتمد العديد من الموارد عبر الإنترنت على انتقل إلى خاص & gt ؛ الفراغات الأمر. لا تفعل ذلك أبدًا في أوراق العمل الخاصة بك!
هذه الطريقة ( F5 & gt؛ Special… & gt؛ الفراغات ) تجد وحدد جميع الخلايا الفارغة في النطاق:
إذا قمت الآن بالنقر بزر الماوس الأيمن فوق الخلايا المحددة واختر حذف & gt؛ العمود بالكامل ، ستفقد جميع الأعمدة التي تحتوي على خلية فارغة واحدة على الأقل ! إذا كنت قد فعلت ذلك عن غير قصد ، فاضغط على Ctrl + Z لاستعادة كل شيء.
الآن بعد أن عرفت طريقة خاطئة لحذف الأعمدة الفارغة في Excel ، دعنا نرى كيفية القيام بذلك بشكل صحيح.
كيفية إزالة الأعمدة الفارغة في Excel باستخدام VBA
من ذوي الخبرةيعرف مستخدمو Excel قاعدة الإبهام هذه: لا تضيع ساعات في القيام بشيء يدويًا ، استثمر بضع دقائق في كتابة ماكرو سيفعل ذلك نيابةً عنك تلقائيًا.
يزيل ماكرو VBA أدناه جميع الأعمدة الفارغة في المحدد نطاق. ويتم ذلك بأمان - يتم حذف الأعمدة الفارغة تمامًا فقط. إذا كان العمود يحتوي على قيمة خلية واحدة ، حتى السلسلة الفارغة التي تم إرجاعها بواسطة بعض الصيغ ، فسيظل هذا العمود كما هو.
ماكرو Excel: إزالة الأعمدة الفارغة من ورقة Excel Public Sub DeleteEmptyColumns () Dim SourceRange As Range Dim EntireColumn As Range عند الخطأ ، استئناف المجموعة التالية SourceRange = Application.InputBox (_ "حدد نطاقًا:" ، "حذف الأعمدة الفارغة" ، _ Application.Selection.Address ، النوع: = 8) إذا لم يكن (SourceRange لا شيء) ثم Application.ScreenUpdating = خطأ بالنسبة إلى i = SourceRange.Columns.Count To 1 Step -1 Set EntireColumn = SourceRange.Cells (1، i) .EntireColumn If Application.WorksheetFunction.CountA (EntireColumn) = 0 ثم EntireColumn.Delete End If Next Application.ScreenUpdating = True End إذا كان End Subكيفية استخدام ماكرو Delete Empty Columns
فيما يلي خطوات إضافة الماكرو إلى Excel:
- اضغط على Alt + F11 لفتح Visual Basic محرر.
- في شريط القوائم ، انقر فوق إدراج & gt؛ الوحدة النمطية .
- الصق الكود أعلاه في Code windo w.
- اضغط F5 لتشغيل الماكرو.
- عندما يظهر مربع الحوار المنبثق ، قم بالتبديل إلىورقة العمل ذات الأهمية ، حدد النطاق المطلوب ، وانقر فوق موافق:
إذا كنت لا تريد إضافة ماكرو إلى ورقة العمل الخاصة بك ، فيمكنك تشغيله من نموذج المصنف. وإليك الطريقة:
- قم بتنزيل نموذج المصنف الخاص بنا لإزالة الأعمدة الفارغة في Excel ، وافتحه ، وقم بتمكين المحتوى إذا طُلب منك ذلك.
- افتح المصنف الخاص بك أو قم بالتبديل إلى المصنف المفتوح بالفعل.
- في المصنف ، اضغط على Alt + F8 ، وحدد الماكرو DeleteEmptyColumns ، وانقر فوق تشغيل .
- في مربع الحوار المنبثق ، حدد النطاق وانقر فوق موافق .
في كلتا الحالتين ، سيتم التخلص من جميع الأعمدة الفارغة في النطاق المحدد:
تحديد وحذف الأعمدة الفارغة في Excel باستخدام صيغة
يقوم الماكرو أعلاه بإزالة الأعمدة الفارغة بسرعة وبصمت. ولكن إذا كنت من النوع "احتفظ بكل شيء تحت السيطرة" (مثلي :) فقد ترغب في رؤية الأعمدة التي ستتم إزالتها بصريًا. في هذا المثال ، سنحدد أولاً الأعمدة الفارغة باستخدام صيغة بحيث يمكنك مراجعتها بسرعة ، ثم حذف كل هذه الأعمدة أو بعضها.
ملاحظة. قبل حذف أي شيء نهائيًا ، خاصةً باستخدام تقنية غير معروفة ، أنصحك بشدة بعمل نسخة احتياطية من مصنفك ، فقط لتكون في الجانب الآمن إذا حدث خطأ ما.
مع نسخة احتياطية في مكان آمن ، نفذ الخطوات التالية:
الخطوة 1. أدخل نسخة جديدةصف
أضف صفًا جديدًا أعلى الجدول. لهذا ، انقر بزر الماوس الأيمن فوق رأس الصف الأول وانقر فوق إدراج . لا تقلق بشأن تشويه بنية / ترتيب بياناتك - يمكنك حذف هذا الصف لاحقًا.
الخطوة الثانية. حدد الأعمدة الفارغة
في أقصى اليسار خلية الصف المضاف حديثًا ، أدخل الصيغة التالية:
=COUNTA(A2:A1048576)=0
ثم انسخ الصيغة إلى الأعمدة الأخرى عن طريق سحب مقبض التعبئة.
منطق الصيغة بسيط للغاية: يتحقق COUNTA من عدد الخلايا الفارغة في العمود ، من الصف 2 إلى الصف 1048576 ، وهو الحد الأقصى للصف في Excel 2019 - 2007. تقارن هذا الرقم مع الصفر ، ونتيجة لذلك ، يكون لديك TRUE في أعمدة فارغة و FALSE في الأعمدة التي تحتوي على خلية واحدة على الأقل غير فارغة. نظرًا لاستخدام مراجع الخلايا النسبية ، يتم ضبط الصيغة بشكل صحيح لكل عمود يتم نسخها فيه.
في حالة قيامك بإعداد ورقة العمل لشخص آخر ، يمكنك تريد تسمية الأعمدة بطريقة أكثر وضوحا. لا توجد مشكلة ، يمكن القيام بذلك بسهولة باستخدام عبارة IF مشابهة لما يلي:
=IF(COUNTA(A2:A1048576)=0, "Blank", "Not blank")
الآن تشير الصيغة صراحةً إلى الأعمدة الفارغة وغير الفارغة:
نصيحة. بالمقارنة مع الماكرو ، تمنحك هذه الطريقة مزيدًا من المرونة فيما يتعلق بالأعمدة التي يجب اعتبارها فارغة. في هذا المثال ، نتحقق من الجدول بأكمله ، بما في ذلك صف الرأس. هذا يعني إذا كان العموديحتوي على رأس فقط ، ولا يعتبر هذا العمود فارغًا ولا يتم حذفه. إذا كنت ترغب في التحقق من صفوف البيانات فقط تجاهل رؤوس الأعمدة ، فقم بإزالة صف (صفوف) الرأس من النطاق الهدف (A3: A1048576). نتيجة لذلك ، سيتم اعتبار العمود الذي يحتوي على عنوان ولا توجد بيانات أخرى فيه فارغًا وعرضه للحذف. أيضًا ، يمكنك قصر النطاق على آخر صف مستخدم ، والذي سيكون A11 في حالتنا.
الخطوة 3. إزالة الأعمدة الفارغة
وجود عدد معقول من الأعمدة ، يمكنك ببساطة تحديد تلك التي تحتوي على "فارغ" في الصف الأول (لتحديد عدة أعمدة ، اضغط مع الاستمرار على مفتاح Ctrl أثناء النقر على أحرف الأعمدة). ثم ، انقر بزر الماوس الأيمن فوق أي عمود محدد ، واختر حذف من قائمة السياق:
إذا كان هناك عشرات أو مئات الأعمدة في ورقة العمل الخاصة بك ، من المنطقي إحضار كل العناصر الفارغة للعرض. لهذا ، قم بما يلي:
- حدد الصف العلوي بالصيغ ، وانتقل إلى علامة التبويب البيانات & gt ؛ الفرز والتصفية المجموعة ، وانقر فوق الزر فرز .
- في مربع حوار التحذير الذي يظهر ، حدد قم بتوسيع التحديد ، وانقر فوق فرز…
- سيؤدي هذا إلى فتح مربع الحوار فرز ، حيث تنقر فوق الزر خيارات… ، حدد فرز من اليسار إلى اليمين ، و انقر فوق موافق .
- تكوين مستوى فرز واحد فقط كما هو موضح أدناه وانقر فوق موافق:
- فرز حسب: الصف 1
- الفرز على: الخليةالقيم
- الترتيب: A إلى Z
نتيجة لذلك ، سيتم نقل الأعمدة الفارغة إلى الجزء الأيسر من ورقة العمل:
- حدد كل الأعمدة الفارغة - انقر فوق حرف العمود الأول ، واضغط على Shift ، ثم انقر فوق الحرف الخاص بآخر عمود فارغ.
- يمين- انقر فوق الأعمدة المحددة واختر حذف من القائمة المنبثقة.
تم! لقد تخلصت من الأعمدة الفارغة ، ولا يوجد شيء يمنعك الآن من حذف الصف العلوي بالصيغ.
أسرع طريقة لإزالة الأعمدة الفارغة في Excel
في في بداية هذا البرنامج التعليمي ، كتبت أنه لا توجد طريقة بنقرة واحدة لحذف الأعمدة الفارغة في Excel. في الواقع ، هذا ليس صحيحًا تمامًا. كان يجب أن أقول أنه لا توجد طريقة تحمل في ثناياه عوامل. يمكن لمستخدمي Ultimate Suite إزالة الفراغات في Excel حرفيًا ببضع نقرات :)
في ورقة العمل الهدف ، قم بالتبديل إلى علامة التبويب Ablebits Tools ، انقر فوق حذف الفراغات واختر أعمدة فارغة :
للتأكد من أن هذا لم يكن نقرًا عرضيًا بالماوس ، ستطلب منك الوظيفة الإضافية تأكيد ذلك تريد حقًا إزالة الأعمدة الفارغة من ورقة العمل هذه:
انقر فوق موافق ، وفي لحظة اختفت جميع الأعمدة الفارغة!
مثل الماكرو الذي تمت مناقشته أعلاه ، تحذف هذه الأداة فقط تلك الأعمدة التي تكون فارغة تمامًا . الأعمدة التي تحتوي على أي قيمة مفردة ، بما في ذلك الرؤوس ، هيتم الاحتفاظ بها.
حذف الفراغات هي مجرد واحدة من عشرات الميزات الرائعة التي يمكن أن تجعل حياتك كمستخدم Excel أسهل. للعثور على المزيد ، نرحب بتنزيل إصدار تجريبي من Ultimate Suite for Excel.
لا يتم حذف الأعمدة الفارغة! لماذا؟
المشكلة : لقد جربت جميع الطرق المذكورة أعلاه ، ولكن هناك عمودًا فارغًا واحدًا أو أكثر عالق في ورقة العمل الخاصة بك. لماذا؟
على الأرجح لأن هذه الأعمدة ليست فارغة حقًا. قد تكمن العديد من الأحرف المختلفة غير المرئية للعين البشرية دون أن يلاحظها أحد في جداول بيانات Excel ، خاصةً إذا قمت باستيراد معلومات من مصدر خارجي. يمكن أن يكون هذا مجرد سلسلة فارغة أو حرف مسافة ، أو مسافة غير قابلة للكسر أو بعض الأحرف الأخرى غير المطبوعة.
لتحديد الجاني ، حدد الخلية الأولى في العمود المشكل واضغط على Ctrl + سهم لأسفل . على سبيل المثال ، العمود C في لقطة الشاشة أدناه ليس فارغًا بسبب وجود حرف مسافة واحد في C6:
انقر نقرًا مزدوجًا فوق الخلية لمعرفة ما هو موجود بالفعل أو ببساطة اضغط على مفتاح الحذف للتخلص من الشيء المجهول. ثم كرر العملية المذكورة أعلاه لمعرفة ما إذا كان هناك أي أشياء أخرى غير مرئية في هذا العمود. قد ترغب أيضًا في تنظيف بياناتك عن طريق إزالة المسافات البادئة والتابعة وغير الفاصلة.
أشكرك على القراءة وآمل أن أراك على مدونتنا الأسبوع المقبل!