كيفية حذف أعمدة بأكملها على أساس قيمة الرأس في إكسيل؟
في كثير من الحالات ، قد تحتاج إلى حذف الأعمدة بأكملها بناءً على قيمة الرأس في Excel. على سبيل المثال ، تحتاج إلى حذف جميع الأعمدة التي تحتوي على القيمة "قديم" في الرأس. في هذا البرنامج التعليمي ، سوف نعرض لك طرق حذف أعمدة بأكملها بناءً على قيمة الرأس في التفاصيل.
احذف الأعمدة بأكملها بناءً على قيمة الرأس برمز VBA
احذف الأعمدة بأكملها بناءً على قيمة الرأس باستخدام Kutools for Excel
احذف الأعمدة بأكملها بناءً على قيمة الرأس برمز VBA
يمكنك حذف أعمدة بأكملها بناءً على قيمة الرأس برمز VBA. الرجاء القيام بما يلي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح تطبيق Microsoft Visual Basic نافذة.
2. في ال تطبيق Microsoft Visual Basic الإطار، انقر فوق إدراج > وحدة. ثم انسخ الكود أدناه والصقه في نافذة الوحدة النمطية.
كود فبا: احذف الأعمدة بأكملها بناءً على قيمة الرأس
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 for Excel
بدافع كوتولس ل إكسيلالصورة حدد خلايا معينة الأداة المساعدة ، يمكنك بسهولة تحديد جميع الأعمدة التي تحتوي على قيمة رأس معينة أولاً ، ثم حذف هذه الأعمدة المحددة مرة واحدة. الرجاء القيام بما يلي.
قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.
1. حدد النطاق الذي يحتوي على الأعمدة التي تريد حذفها ، ثم انقر فوق كوتولس > أختار > حدد خلايا معينة. انظر لقطة الشاشة:
2. في ال حدد خلايا معينة في مربع الحوار ، حدد ملف عامود كامل الخيار في نوع التحديد القسم ، وفي نوع خاص أو معين القائمة المنسدلة ، حدد يساوي الخيار ، ثم اكتب قيمة الرأس في المربع التالي. وأخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:
3. انقر فوق OK في مربع حوار آخر منبثق ، ثم يتم تحديد الأعمدة التي تحتوي على قيمة رأس محددة على الفور.
4. انقر بزر الماوس الأيمن فوق رأس العمود المحدد ، ثم انقر فوق حذف من قائمة النقر بزر الماوس الأيمن. ثم يتم حذف جميع الأعمدة المحددة مرة واحدة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!