كيفية حذف الأعمدة بأكملها بناءً على قيمة الترويسة في 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 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!