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

هناك طرق متعددة لحذف الأعمدة الفارغة في ملف Microsoft Excel. لماذا تحتاج إلى القيام بذلك؟ - بسيط.

انظر أيضا مقالتنا كيفية تجميد الصف العلوي في إكسل

بين الحين والآخر ، قد تؤدي البيانات التي تقوم باستيرادها من صفحات الويب إلى ظهور عدد كبير من الأعمدة حتى لو لم يتم استخدامها. ترى هذا يحدث مع ملفات CSV وملفات txt.

عند حدوث ذلك ، قد لا يكون حذف الأعمدة يدويًا أمرًا سهلاً دائمًا. بالتأكيد ، إذا كان لديك فقط عمودين أو ثلاثة أعمدة فارغة ، فلا بأس في حذفها يدويًا. ولكن ماذا لو أن مشروعك المستورد ينشئ 57 عمودًا فارغًا وغير مستمر؟ - لذلك ، ستحتاج إلى عملية تلقائية.

باستخدام VBA ماكرو

روابط سريعة

• باستخدام VBA ماكرو
  • • • انتقل إلى ملف Excel الخاص بك
      • امسك Alt و F11 معًا
      • انتظر حتى تظهر نافذة Microsoft Visual Basic للتطبيقات
      • انقر فوق إدراج
      • اختر الوحدة
      • الصق سطور الكود التالية في النافذة
      • اضغط F5 إلى ترجمة وتنفيذ الماكرو
      • أدخل نطاق العمل المناسب في نافذة الحوار
      • $ A $ - الزاوية العليا
      • $ J $ 12 - الركن السفلي
      • اضغط موافق
• باستخدام أدوات اكسل
  • • • حدد أولاً نطاق البيانات
      • اضغط F5
      • انقر فوق خاص
      • حدد خيار الفراغات
      • انقر فوق "موافق" (سيضمن هذا التحديد تحديد جميع الخلايا الفارغة في النطاق المستهدف)
      • انتقل إلى علامة التبويب الصفحة الرئيسية
      • حدد القائمة المنسدلة حذف ضمن مجموعة أدوات الخلايا
      • حدد حذف الخلايا
      • حدد Shift Cells Left لإزالة الأعمدة وإعادة ترتيبها
      • انقر فوق موافق
      • حدد Shift cells لأعلى لإزالة الصفوف وإعادة ترتيبها
• أخرى سهلة لأداء المهام الفرز
• الفكر النهائي

تتضمن الطريقة الأولى استخدام ماكرو VBA.

1. انتقل إلى ملف Excel الخاص بك

2. امسك Alt و F11 معًا

3. انتظر حتى تظهر نافذة Microsoft Visual Basic للتطبيقات

4. انقر فوق إدراج

5. اختر الوحدة

   

6. الصق سطور الكود التالية في النافذة

Sub DeleteEmptyColumns()
'Updateby20140317
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

1. اضغط F5 إلى ترجمة وتنفيذ الماكرو

2. أدخل نطاق العمل المناسب في نافذة الحوار

نطاق العمل أو نطاق البيانات هو الفاصل الزمني المحدد بين الأعمدة التي تريد استهدافها. التنسيق هو $ A $ 1: $ J $ 12. تتوافق الأحرف مع العمود وتتوافق الأرقام مع الصفوف.

إذا قمت بسحبه للخارج باستخدام الماوس أو بالضغط على مفتاح Shift واستخدام مفاتيح الأسهم ، فستلاحظ ما يلي:

$ A $ - الزاوية العليا

$ J $ 12 - الركن السفلي

لا يمكنك تحديد نطاق البيانات قبل البدء في تحميل الماكرو لأنه لن يبقى محددًا.

اضغط موافق

بعد ذلك ، يجب محو جميع الأعمدة الفارغة ويجب أن تكون جميع الأعمدة المملوءة بجانب بعضها البعض.

باستخدام أدوات اكسل

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

1. حدد أولاً نطاق البيانات

2. اضغط F5

3. انقر فوق خاص

   

4. حدد خيار الفراغات

5. انقر فوق "موافق" (سيضمن هذا التحديد تحديد جميع الخلايا الفارغة في النطاق المستهدف)

   

6. انتقل إلى علامة التبويب الصفحة الرئيسية

7. حدد القائمة المنسدلة حذف ضمن مجموعة أدوات الخلايا

8. حدد حذف الخلايا

   

9. حدد Shift Cells Left لإزالة الأعمدة وإعادة ترتيبها

10. انقر فوق موافق

الآن يجب أن تختفي الخلايا الفارغة من الأعمدة الفارغة وسيتم تقريب جميع الصفوف الأخرى معًا.

يمكنك استخدام نفس الطريقة لحذف الصفوف بالكامل. ومع ذلك ، بدلاً من نقل الخلايا إلى اليسار ، حدد الخيار الآخر.

حدد Shift cells لأعلى لإزالة الصفوف وإعادة ترتيبها

بناءً على إصدار Excel الذي تقوم بتشغيله ، قد تحصل على كلمات مختلفة. ولكن على أي حال ، يكون الخياران الأوليان في قائمة "حذف الخلايا" دائمًا متماثلين.

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

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

أخرى سهلة لأداء المهام الفرز

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

باستخدام نفس وحدة VBA أو قائمة الانتقال إلى الوظيفة ، يمكنك القيام بالكثير في Excel. هل لديك صيغ معينة لم تعد ذات صلة؟ - يمكنك إزالتها أيضًا أو إعادة ترتيبها وفقًا لذلك.

يمكنك أيضًا إزالة التعليقات غير الضرورية أو جميع التعليقات من مشروعك إذا كنت لا تريد أن تظهر أثناء العرض التقديمي. ابحث في VBA إذا كنت تريد أن تكون مستخدمًا قويًا لبرنامج Excel.

الفكر النهائي

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

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