كيف يمكن حذف الأعمدة الفارغة التي تحتوي على رؤوس أعمدة في 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’s حذف الصفوف/الأعمدة المخفية (المرئية)لإنهاء هذه المهمة بسهولة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاق الأعمدة الذي يحتوي على الأعمدة الفارغة التي تريد حذفها.
2. بعد ذلك، انقر فوقKutools > حذف > حذف الصفوف/الأعمدة المخفية (المرئية)، انظر لقطة الشاشة:
3. في مربع الحوارحذف الصفوف/الأعمدة المخفية (المرئية)، يمكنك تحديد نطاق الحذف من القائمة المنسدلة «البحث في» حسب حاجتك، وتحديدالأعمدةمن قسمنوع الحذف، ثم اختيارأعمدة فارغةمن قسمالنوع التفصيلي. انظر لقطة الشاشة:
4. بعد ذلك، انقر فوق زرموافقوسيتم حذف الأعمدة الفارغة دفعة واحدة. انظر لقطة الشاشة:
نصائح: باستخدام هذه الميزة القوية، يمكنك أيضًا حذف الصفوف الفارغة، أو الأعمدة والصفوف المرئية، أو الأعمدة والصفوف المخفية حسب حاجتك.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل