كيفية حذف الأعمدة بأكملها بناءً على قيمة الترويسة في Excel؟
في العديد من الحالات، قد تحتاج إلى حذف الأعمدة بأكملها بناءً على قيمة الترويسة في Excel. على سبيل المثال، قد تحتاج إلى حذف جميع الأعمدة التي تحتوي على كلمة “قديم” في الترويسة. في هذا الدليل التعليمي، سنوضح لك طرق حذف الأعمدة بأكملها بناءً على قيمة الترويسة بالتفصيل.
حذف الأعمدة بأكملها بناءً على قيمة الترويسة باستخدام كود VBA
حذف الأعمدة بأكملها بناءً على قيمة الترويسة باستخدام Kutools لـ Excel
حذف الأعمدة بأكملها بناءً على قيمة الترويسة باستخدام كود VBA
يمكنك حذف الأعمدة بأكملها بناءً على قيمة الترويسة باستخدام كود VBA. يرجى اتباع الخطوات التالية:
1. اضغط على مفاتيح Alt + F11 معًا لفتح نافذة تطبيق Microsoft Visual Basic.
2. في نافذة تطبيق Microsoft Visual Basic، انقر فوق إدراج > وحدة. ثم قم بنسخ ولصق الكود أدناه في نافذة الوحدة.
كود VBA: حذف الأعمدة بأكملها بناءً على قيمة الترويسة
Sub DeleteSpecifcColumn()
Set MR = Range("A1:D1")
For Each cell In MR
If cell.Value = "old" Then cell.EntireColumn.Delete
Next
End Sub
ملاحظات:
3. اضغط على مفتاح F5 لتشغيل الكود، سيتم حذف العمود بالكامل الذي تكون فيه الترويسة مساوية للنص المحدد فورًا.
حذف الأعمدة بأكملها بناءً على قيمة الترويسة باستخدام Kutools لـ Excel
مع أداة تحديد خلايا محددة من Kutools لـ Excel، يمكنك بسهولة اختيار جميع الأعمدة التي تحتوي على قيمة ترويسة معينة أولاً، ثم حذف هذه الأعمدة المختارة دفعة واحدة. يرجى اتباع الخطوات التالية:
1. حدد النطاق الذي يحتوي على الأعمدة التي تحتاج إلى حذفها، ثم انقر فوق Kutools > تحديد > تحديد خلايا محددة. شاهد لقطة الشاشة:
2. في مربع الحوار تحديد خلايا محددة، حدد خيار العمود بأكمله في قسم نوع التحديد، وفي قائمة النوع المحدد المنسدلة، حدد الخيار يساوي، ثم اكتب قيمة الترويسة في الصندوق التالي. وأخيرًا انقر فوق الزر موافق. شاهد لقطة الشاشة:
3. انقر فوق زر موافق في مربع الحوار المنبثق الآخر، ثم يتم تحديد الأعمدة التي تحتوي على قيمة الترويسة المحددة فورًا.
4. انقر بزر الماوس الأيمن على رأس العمود المحدد، ثم انقر فوق حذف من قائمة النقر بزر الماوس الأيمن. بعد ذلك يتم حذف جميع الأعمدة المحددة دفعة واحدة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
أفضل أدوات زيادة الإنتاجية لمجموعة Office
عزز مهاراتك في Excel مع Kutools لـ Excel، وتمتع بكفاءة غير مسبوقة. يقدم Kutools لـ Excel أكثر من300 ميزة متقدمة لتعزيز الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير
- فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
- افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
- يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!