كيف يمكن حذف أعمدة فارغة متعددة بسرعة في Excel؟
أحيانًا، عند استيراد البيانات إلى Microsoft Excel من صفحات ويب أو ملفات CSV أو نصوص، تظهر معها أعمدة فارغة كثيرة. وقد يكون حذف كل عمود فارغ يدويًّا أمرًا مرهقًا للغاية. لذلك، يبحث الكثيرون عن طرق سهلة للتخلص من هذه المشكلة بفعالية. وتجمع هذه المقالة أفضل النصائح الذكية لمساعدتك على حذف أعمدة فارغة متعددة بسرعة وسهولة.
حذف أعمدة فارغة متعددة في ورقة العمل باستخدام صيغة
حذف أعمدة فارغة متعددة في ورقة العمل باستخدام كود VBA
حذف أعمدة فارغة متعددة تحتوي على رأس باستخدام كود VBA
حذف أعمدة فارغة متعددة في ورقة العمل باستخدام صيغة
في Excel، يمكنك تطبيق صيغة لتحديد ما إذا كانت الأعمدة فارغة أم لا، ثم استخدام ميزة الفرز لتجميع جميع الأعمدة الفارغة معًا وحذفها دفعة واحدة. يُرجى اتباع الخطوات التالية:
1. أضف صفًا جديدًا في أعلى نطاق البيانات الخاص بك، كما هو موضح في لقطة الشاشة:
2. بعد ذلك، أدخل الصيغة أدناه في الخلية A1، ثم اسحب مقبض التعبئة إلى اليمين لتطبيقها على الخلايا الأخرى. ستظهر «TRUE» إذا كان العمود فارغًا، و«FALSE» في حالته غير الفارغة. راجع لقطة الشاشة:
3. بعد ذلك، حدد نطاق البيانات متضمنًا صف المساعدة، ثم انقر على «بيانات» > «فرز»، كما هو موضح في لقطة الشاشة:
4. في مربع حوار «الفرز» المنبثق، انقر على زر «خيارات»، ثم في مربع حوار «خيارات الفرز»، حدد خيار «فرز من اليسار إلى اليمين». راجع لقطات الشاشة التالية:
 |  |  |
5. انقر على زر «موافق» للعودة إلى مربع حوار «الفرز»، ثم اختر «الصف 1» من القائمة المنسدلة «فرز حسب»، وحدد «قيم الخلايا» في قسم «فرز حسب»، واختر «من الأكبر إلى الأصغر» في قسم «الترتيب». انظر لقطة الشاشة:
6. بعد ذلك، سيتم نقل جميع الأعمدة الفارغة إلى يسار بياناتك، وكل ما عليك فعله الآن هو تحديد تلك الأعمدة، ثم النقر بزر الماوس الأيمن واختيار «حذف» لإزالتها دفعة واحدة. انظر لقطة الشاشة:
حذف أعمدة فارغة متعددة في ورقة العمل باستخدام كود 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 لتشغيل هذا الماكرو، ثم حدد نطاق العمل المطلوب في مربع الحوار المنبثق. انظر لقطة الشاشة:
4. انقر على «موافق»، وستُزال جميع الأعمدة الفارغة ضمن التحديد تلقائيًا. راجع لقطة الشاشة:
حذف أعمدة فارغة متعددة النطاق المحدد / ورقة العمل الحالية / في المصنف بأكمله باستخدام Kutools لـ Excel
أداة حذف الصفوف/الأعمدة المخفية من Kutools لـ Excel تساعدك على إزالة صفوف أو أعمدة فارغة متعددة بسرعة دفعة واحدة.
بعد تثبيتKutools for Excel، يُرجى اتباع الخطوات التالية:
1. انقر على «Kutools» > «حذف» > «حذف الصفوف/الأعمدة المخفية (المرئية)»، كما هو موضح في لقطة الشاشة:
2. في مربع حialog «حذف الصفوف/الأعمدة المخفية (المرئية)»، حدّد النطاق الذي تريد تطبيق العملية عليه من القائمة المنسدلة «البحث في». (إذا اخترت «النطاق المحدد»، فعليك تحديد النطاق المطلوب يدويًّا أولًا.) بعد ذلك، اختر «الأعمدة» ضمن «نوع الحذف»، ثم اختر «أعمدة فارغة» من قائمة «النوع التفصيلي». انظر لقطة الشاشة:
3. بعد ذلك، انقر على «موافق»، وسيتم حذف الأعمدة الفارغة من نطاق التحديد. راجع لقطة الشاشة:
حذف أعمدة فارغة متعددة تحتوي على رأس باستخدام كود VBA
أحيانًا، قد ترغب في حذف جميع الأعمدة الفارغة التي تحتوي على رأس فقط في ورقة العمل. ويمكن لرمز VBA التالي مساعدتك في ذلك—يرجى اتباع الخطوات التالية:
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 لتشغيل هذا الكود، وسيظهر مربع تنبيه يُذكّرك بأنه سيتم حذف الأعمدة الفارغة التي تحتوي على رؤوس، كما هو موضح في لقطة الشاشة:
4. بعد ذلك، انقر على زر «موافق» وسيتم حذف جميع الأعمدة الفارغة التي تحتوي على رؤوس فقط في ورقة العمل الحالية دفعة واحدة. راجع لقطات الشاشة:
 | |  |
مقالات ذات صلة إضافية:
- حذف جميع الصفوف أو الأعمدة المخفية في Excel
- إذا كان لديك ملف عمل كبير يحتوي على عددٍ كبير من الصفوف والأعمدة المخفية، وأصبحت البيانات المخفية الآن غير متاحة، فقد ترغب في حذفها جميعًا. فكيف يمكنك حذفها بسرعة؟
- حذف جميع الصور أو الكائنات الأخرى في Excel
- إذا أردت حذف جميع الصور من Microsoft Excel، فقد يستغرق ذلك وقتًا طويلاً إذا اضطررت إلى تحديد كل صورة وحذفها واحدة تلو الأخرى. لحسن الحظ، يمكن للحيل التالية أن تُسهّل عليك المهمة وتوفر وقتك!
- حذف الصفوف بناءً على لون الخلفية في Excel
- كيف يمكنك حذف الصف بأكمله بناءً على لون خلفية الخلايا؟ في هذا المثال، ستحتاج إلى حذف جميع الصفوف التي تحتوي خلاياها على لون خلفية أزرق، كما هو موضح في لقطة الشاشة التالية. ومن خلال هذه المقالة، ستتلقى بعض الأكواد التي تُمكّنك من تنفيذ هذه المهمة في Excel.
- حذف جميع الصفوف التي تحتوي على نص معين ضمن عمود في أوراق Google
- لديك نطاق من البيانات في ورقة Google، وتريد الآن حذف الصفوف بناءً على قيم الخلايا في عمود معيّن. على سبيل المثال، قد ترغب في حذف جميع الصفوف التي تحتوي على النص «Complete» في العمود C. في هذه المقالة، سأوضح لك كيفية تنفيذ ذلك بسهولة في أوراق Google.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل