Note: The other languages of the website are Google-translated. Back to English

كيفية حذف أعمدة بأكملها على أساس قيمة الرأس في إكسيل؟

في كثير من الحالات ، قد تحتاج إلى حذف الأعمدة بأكملها بناءً على قيمة الرأس في 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

ملاحظة:

1) في الكود ، "قديم"هي قيمة الرأس التي تريد حذف العمود بأكمله بناءً عليها. يرجى التغيير إلى قيمة الرأس يدويًا. و A1: D1 هو نطاق العمود الذي تريد استخدامه.
2) هذا الرمز حساس لحالة الأحرف.

3. اضغط على F5 مفتاح لتشغيل التعليمات البرمجية ، سيتم حذف العمود بأكمله الذي يحتوي على رأس يساوي النص المحدد على الفور.


احذف الأعمدة بأكملها بناءً على قيمة الرأس باستخدام Kutools for Excel

بإضافة إلى كوتولس ل إكسيلالصورة حدد خلايا معينة الأداة المساعدة ، يمكنك بسهولة تحديد جميع الأعمدة التي تحتوي على قيمة رأس معينة أولاً ، ثم حذف هذه الأعمدة المحددة مرة واحدة. الرجاء القيام بما يلي.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. حدد النطاق الذي يحتوي على الأعمدة التي تريد حذفها ، ثم انقر فوق كوتولس > اختار > حدد خلايا معينة. انظر لقطة الشاشة:

2. في ال حدد خلايا معينة في مربع الحوار ، حدد ملف عامود كامل الخيار في نوع التحديد القسم ، وفي نوع خاص أو معين القائمة المنسدلة ، حدد يساوي الخيار ، ثم اكتب قيمة الرأس في المربع التالي. وأخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

3. انقر فوق OK في مربع حوار آخر منبثق ، ثم يتم تحديد الأعمدة التي تحتوي على قيمة رأس محددة على الفور.

4. انقر بزر الماوس الأيمن فوق رأس العمود المحدد ، ثم انقر فوق حذف من قائمة النقر بزر الماوس الأيمن. ثم يتم حذف جميع الأعمدة المحددة مرة واحدة.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف إذا كان هذا يبدو أساسيًا للغاية ولكن هذه هي المرة الأولى التي أحاول فيها vba. باستخدام هذا كيف يمكنني تطبيقه لحذف رؤوس أعمدة متعددة. أحاول في الواقع الاحتفاظ فقط بأعمدة رأس معينة وحذف بقية القائمة المتغيرة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في الكود الأول ، ما عليك سوى نسخ الصف الرابع وتغيير "القديم" إلى اسم العمود الثاني وسيعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا! يعمل هذا بشكل جيد حتى يكون لديك عمودين متجاورين بنفس الرأس. لنفترض أن النطاق الخاص بك هو A1: A5 ، وأن A2 و A3 لهما الرأس "قديم". سيحذف A2 ، ولكن بعد ذلك سينتقل A3 إلى المكان الذي كان A2 يشغله ، وسيتخطى الكود ، حيث سينظر إلى A3 الجديد ، الخلية التالية في نطاقه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا الياس ،
كما ذكرت ، A2 و A3 لهما نفس الرأس "قديم". لكنهم في نفس العمود ، بعد تطبيق الكود ، ستتم إزالة العمود A بالكامل على الفور.
لست متأكدًا من أنني فهمت وجهة نظرك. سيكون من الرائع أن تقدم لقطة شاشة لما تحاول القيام به.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل من الممكن القيام بذلك بأسماء أعمدة متعددة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مارك،
جرب الكود أدناه. في السطر الثامن ، يرجى إرفاق اسم كل عمود بعلامات اقتباس مزدوجة والفصل بينها بفاصلة. آمل أن أتمكن من المساعدة. شكرًا لك.

DeleteSpecifcColumn () فرعي

خافت xFNum ، xFFNum ، xCount كعدد صحيح

خافت xStr كسلسلة

خافت xArrName كمتغير

خافت MR ، xRg كمدى

على خطأ استئناف التالي

تعيين MR = النطاق ("A1: N1")

xArrName = Array ("old"، "new"، "get") 'قم بتضمين اسم كل عمود بعلامات اقتباس مزدوجة وافصل بينها بفاصلة

xCount = MR.Count

xStr = xArrName (xFNum)

بالنسبة إلى xFFNum = xCount To 1 Step -1

تعيين xRg = خلايا (1 ، xFFNum)

لـ xFNum = 0 إلى UBound (xArrName)

xStr = xArrName (xFNum)

إذا كانت xRg.Value = xStr ثم xRg.EntireColumn.Delete

التالي xFNum

التالى

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعتقد أن السطر 12 يحتاج إلى تغيير حتى يعمل الكود. السطر الأصلي 12 "Set xRg = Cells (1، xFFNum)" السطر المعدل 12 "Set xRg = MR (1، xFFNum)"
DeleteSpecifcColumn () فرعي
خافت xFNum ، xFFNum ، xCount كعدد صحيح
خافت xStr كسلسلة
خافت xArrName كمتغير
خافت MR ، xRg كمدى
على خطأ استئناف التالي
تعيين MR = النطاق ("A1: N1")
xArrName = Array ("old"، "new"، "get") 'قم بتضمين اسم كل عمود بعلامات اقتباس مزدوجة وافصل بينها بفاصلة
xCount = MR.Count
xStr = xArrName (xFNum)
بالنسبة إلى xFFNum = xCount To 1 Step -1
تعيين xRg = MR (1 ، xFFNum)
لـ xFNum = 0 إلى UBound (xArrName)
xStr = xArrName (xFNum)
إذا كانت xRg.Value = xStr ثم xRg.EntireColumn.Delete
التالي xFNum
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كانت الرؤوس تبدأ من الصف الرابع
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوضح مثال VBA أن التعليمات البرمجية ستحذف كافة الأعمدة التي تحتوي رؤوسها على "قديم". ليس هذا هو الحال. عامل التشغيل = سيحذف التطابقات التامة فقط. تحتاج إلى استخدام عامل التشغيل LIKE مع حرف بدل.
كود ثابت: Sub DeleteSpecifcColumn ()
تعيين MR = النطاق ("A1: D1")
لكل خلية في MR
إذا كانت cell.Value مثل "old *" ثم cell.EntireColumn.Delete
التالى
نهاية الفرعية

تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا لك على التصحيح والمشاركة. 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Hola، tengo una hoja de excel con varios datos، digamos 4، y 12 filas، me gustaría poder Imprimir cada fila en un folioeparado en una plantilla، es decir، tenemos una hoja con varios nombres y apellidos y teléfono، quiero Impráimir t como filas tenga la hoja de excel، he inte tado varias cosas pero no encuentro la forma. جراسياس دي أنتيمانو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
إذا كنت تريد طباعة كل صف في صفحة منفصلة في ورقة العمل ، فإليك اقتراح بإدراج فواصل الصفحات كل صف واحد ثم طباعتها.
الأساليب الواردة في هذه المقالة قد تفيدك. يرجى المحاولة. شكرًا لك.
كيفية إدراج فاصل صفحة كل X صفوف في إكسيل؟ [/ url]
https://www.extendoffice.com/documents/excel/1774-excel-insert-page-break-every-row.html
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL