كيف تحذف الجزء من السلسلة النصية الذي يلي الحرف رقم n في Excel؟

قد تحتاج في Excel غالبًا إلى معالجة سلاسل النصوص بإزالة الأحرف بعد موضع معيّن. على سبيل المثال، قد ترغب في اقتطاع سلسلة نصية بعد الحرف رقم *n* لتوحيد تنسيقات البيانات أو تنظيف النصوص المستوردة. تُعد هذه المهمة شائعة عند التعامل مع المعرّفات أو الرموز أو أي نصوص تتطلب الاحتفاظ فقط بعدد ثابت من الأحرف الأولى. يساعد حذف المحتوى بعد الحرف رقم *n* في تجنّب الأخطاء الناتجة عن البيانات الزائدة، ويضمن الاتساق أثناء استيراد البيانات أو تصديرها، كما يسهّل عمليات المقارنة والتحليل. يستعرض هذا الدليل ثلاث طرق عملية لإزالة الأحرف بعد الحرف رقم *n* في سلسلة نصية: باستخدام الصيغ، وKutools لـ Excel، والماكرو المكتوب بلغة VBA للأتمتة. وتتميّز كل طريقة بمزايا تناسب سيناريوهات معيّنة، مما يتيح لك اختيار الأنسب لاحتياجاتك.

---

إزالة جميع الأحرف بعد الحرف رقم n باستخدام صيغة

تقدم الصيغ طريقةً مرنةً للتعامل مع مهام معالجة النصوص في Excel، بما في ذلك إزالة الأحرف بعد موضعٍ معيّن. وتُعدّ هذه الطريقة مثاليةً عندما تحتاج إلى حلٍّ ديناميكي يتكيف تلقائيًا مع تغيّر بياناتك. فيما يلي كيفية استخدام صيغة لحذف جميع الأحرف بعد الحرف رقم n في سلسلة نصية:

بافتراض أنك تريد حذف كل شيء بعد الحرف الخامس من البيانات في لقطة الشاشة التالية، فإليك كيفية التعامل مع ذلك:

اختر خلية فارغة، وأدخل الصيغة التالية، ثم اضغط مفتاح «Enter»، واسحب «مقبض التعبئة» (Fill Handle) الخاص بالخلية الناتجة لأسفل للحصول على باقي النتائج.

=LEFT(A2,5)

تُستخدم طريقة الصيغة هذه بشكل أفضل في الحالات التالية:

• عندما تبحث عن حلٍ سريع لاقتطاع الأحرف مع الحفاظ على عدد ثابت منها.
• إذا كانت بياناتك مخزَّنة في جدول وترغب في الحفاظ على العملية شفافة وقابلة للعكس،

هي أقل ملاءمة عند التعامل مع مجموعات بيانات ضخمة جدًّا أو عندما تريد حذف أحرف معيّنة مباشرةً في موقعها الأصلي (أي استبدال البيانات الأصلية)، إذ ستحتاج عادةً إلى نسخ النتائج ولصقها فوق القيم الأصلية يدويًّا. كما يجب الانتباه إلى أن الصيغ تتجدّد ديناميكيًا: فبمجرد تغيّر الخلية المصدر، تتكيّف النتيجة تلقائيًا.

 

المشكلات الشائعة واستكشاف الأخطاء وإصلاحها:إذا كانت بياناتك أقصر من العدد الذي حددته (مثلًا، تحتوي الخلية على 3 أحرف فقط بينما وضعت 5)، فسيُعيد Excel السلسلة الأصلية دون خطأ. ومع ذلك، إذا احتوت بياناتك على قيم غير نصية (مثل صيغ تُرجع أخطاءً أو أرقامًا)، فتأكد من معالجتها حسب الحاجة قبل الاقتطاع. وللصيغ المصفوفية أو الاحتياجات الديناميكية الأكثر تعقيدًا، اجمع بينها وبين دوال نصية أخرى (مثل SEARCH أو FIND) لإنشاء أنماط أكثر تعقيدًا.

---

إزالة عدد معيّن من الأحرف بعد الحرف رقم n بسهولة

يقدّم «Kutools لـ Excel» نهجًا أكثر سهولة للمستخدمين لإزالة الأحرف بعد موضع معين، خاصةً عند التعامل مع مجموعات بيانات كبيرة أو عند تفضيل الحلول القائمة على الأدوات. وتُبسَّط هذه المهمة إلى بضع نقرات فقط. فيما يلي كيفية استخدام Kutools لـ Excel لتحقيق ذلك:

بعد تنزيل وتثبيت Kutools لـ Excel، انتقل إلى علامة التبويب «Kutools» وحدد «نص» > «حذف الأحرف من موقع معين» لفتح مربع الحوار، ثم قم بالتكوين كما يلي:

1. في مربع النص «الأرقام»، أدخل عدد الأحرف التي تريد إزالتها.
   تلميح: إذا كنت ترغب في إزالة جميع الأحرف بعد الحرف رقم n، يمكنك إدخال رقم كبير جدًّا، مثل 999، لضمان إزالة جميع الأحرف التالية للحرف رقم n.
2. اختر خيار «بدء من الموقع المحدد»، ثم أدخل الرقم الذي يمثل الموضع الذي تريد أن تبدأ منه إزالة الأحرف.
   في هذه الحالة، لإزالة الأحرف بعد الحرف الخامس، أدخل الرقم 6؛ أي أن الإزالة ستبدأ من الحرف السادس.
3. انقر فوق «موافق».

   

النتيجة

بعد ذلك، سيتم إزالة العدد المحدد من الأحرف التي تلي الحرف الخامس في كل خلية ضمن نطاق التحديد.

يُعد هذا الحل مثاليًا في سيناريوهات مثل تنظيف كميات كبيرة من البيانات المستوردة، أو إعداد قوائم تتطلب تصفية موحَّدة بناءً على طول النص، أو عند عدم إلمام المستخدمين بكتابة صيغ Excel أو أكواد VBA. ويُبسِّط Kutools for Excel العمليات الدُفعية ويوسِّع الإمكانيات أمام المستخدمين غير التقنيين.

المزايا الرئيسية:

• معالجة دُفعية للنطاق المحدد أو لورقة العمل بأكملها، مما يوفّر الجهد اليدوي عند التعامل مع كميات كبيرة من البيانات.
• سهلة وبديهية وسريعة، مع إعدادات بسيطة جدًّا.

القيود:

• تقوم هذه العملية باستبدال البيانات الأصلية، لذا ننصحك بعمل نسخة احتياطية من ورقة العمل مسبقًا إذا كنت قد تحتاج إلى المحتوى غير المعدّل لاحقًا.
• يتطلب تثبيت الإضافة (add-in)، والتي قد لا تكون متاحة في بعض البيئات التي تفرض عليها تقنية المعلومات (IT) قيودًا.

---

ماكرو VBA – اقتطاع النصوص تلقائيًا بعد الحرف رقم n عبر نطاق معين

عندما تحتاج إلى أتمتة اقتطاع النصوص بعد الحرف رقم n عبر عدة خلايا أو مجموعات بيانات كبيرة — خاصةً إذا كانت المهمة ستُنفَّذ بشكل منتظم أو في نفس الموقع — يُعد ماكرو VBA حلاً فعّالاً. هذه الطريقة مثالية للمستخدمين المتمرسين في الماكروات والذين يحتاجون إلى معالجة دُفعية أو يرغبون في تسريع عمليات تنظيف النصوص المتكررة في Excel.

تشمل السيناريوهات النموذجية المناسبة:

• توحيد رموز المرجع أو المعرّفات المستوردة من الأنظمة الأخرى.
• أتمتة المهام المتكررة الشهرية لمعالجة النصوص، سواءً لأغراض إعداد التقارير أو تنظيف البيانات.
• التعديل الدُفعي عندما تريد استبدال البيانات الأصلية مباشرةً، بدلًا من حفظ النتائج المستندة إلى الصيغ في مكان آخر.

المزايا:

• معالجة آلاف الإدخالات دفعةً واحدة تلقائيًا.
• تحكم تام في النطاق المتأثر وعدد الأحرف التي سيتم الاحتفاظ بها.
• إمكانية إعادة استخدام المهام المتكررة ببساطة عبر تشغيل الماكرو مجددًا كلما احتجتَ لذلك.

العيوب:

• تقوم الماكرو بتعديل البيانات الأصلية مباشرةً، لذا ننصحك بشدة بعمل نسخة احتياطية من ورقة العمل قبل تشغيلها.
• لحماية إمكانية استخدام كود VBA مستقبلاً، احفظ المصنف بصيغة تدعم الماكرو (.xlsm)، وتأكد من تمكين الماكرو في إعدادات Excel.

 

خطوات التنفيذ:

1. في Excel، انقر فوقالمطوّر > Visual Basic. وسيؤدي ذلك إلى فتح نافذة محررMicrosoft Visual Basic for Applications.
2. في محرر VBA، انقر فوقإدراج>وحدة نمطية (Module). ثم انسخ والصق الكود التالي في الوحدة النمطية الجديدة:

   Sub TruncateTextAfterNthCharacter()
       Dim WorkRng As Range
       Dim cell As Range
       Dim n As Integer
       
       On Error Resume Next
       xTitleId = "KutoolsforExcel"
       
       Set WorkRng = Application.InputBox("Select the range to truncate:", xTitleId, Selection.Address, Type:=8)
       If WorkRng Is Nothing Then Exit Sub
       
       n = Application.InputBox("Keep how many characters (n)?", xTitleId, 5, Type:=1)
       If n < 1 Then Exit Sub
       
       For Each cell In WorkRng
           If Not IsEmpty(cell) And VarType(cell.Value) = vbString Then
               If Len(cell.Value) > n Then
                   cell.Value = Left(cell.Value, n)
               End If
           End If
       Next
   End Sub

3. أغلق محرر VBA، وعند العودة إلى Excel، اضغط علىAlt + F8، ثم اختر «TruncateTextAfterNthCharacter» وانقر فوقتشغيل (Run).
4. سيظهر مربع حوار يطلب منك تحديد النطاق المراد معالجته (مثل A1:A10)، ثم إدخال عدد الأحرف التي ترغب في الاحتفاظ بها. وبعد التأكيد، سيقوم الماكرو باستبدال كل خلية محددة بنتيجتها المقتطعة.

الاحتياطات واستكشاف الأخطاء وإصلاحها:

• احرص دائمًا على عمل نسخة احتياطية من بياناتك قبل تشغيل الماكرو، إذ إن هذا النوع من الماكرو يُجري استبدالًا نهائيًّا للمحتوى الأصلي ولا يمكن التراجع عنه باستخدام أمر «تراجع» (Ctrl+Z) بعد التنفيذ.
• يتعامل الماكرو فقط مع القيم النصية. إذا تضمّن نطاقك أرقامًا أو صيغًا تُنتج أرقامًا أو أخطاءً، فلن يتم تعديلها. ويمكنك تخصيص الكود لمعالجة أنواع البيانات الأخرى وفقًا لاحتياجاتك.
• إذا ظهرت لك نوافذ طلب إذن تتعلق بالماكرو، فقم بتمكين الماكرو من خلال إعدادات Excel (ملف > خيارات > مركز الثقة > إعدادات مركز الثقة > إعدادات الماكرو).
• لتكرار عملية الاقتطاع على نطاقات أو أوراق عمل أخرى، ما عليك سوى إعادة تشغيل الماكرو. كما يمكنك تعيين الماكرو على زر لاستخدامه مرارًا وتكرارًا بسهولة.

إذا طبّقت الماكرو عن طريق الخطأ على نطاقٍ خاطئ أو استخدمت رقم اقتطاع غير صحيح، فاستعد نسختك الاحتياطية أو استخدم ميزات سجل الإصدارات إن كانت متوفرة في بيئة عملك.

---