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

يقوم Excel بإزالة الأحرف والكلمات والأرقام من السلاسل النصية

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

جدول المحتويات:

1. إزالة الأحرف من اليسار أو اليمين أو منتصف السلاسل النصية

2. إزالة الأحرف غير المرغوب فيها / الخاصة من السلاسل النصية

3. إزالة الأحرف / النص قبل أو بعد حرف معين

4. إزالة الكلمات من السلاسل النصية


إزالة الأحرف من اليسار أو اليمين أو منتصف السلاسل النصية

قد يكون من الشائع بالنسبة لمعظمنا إزالة بعض الأحرف من اليسار أو اليمين أو منتصف السلاسل النصية في أوراق عمل Excel. سيقدم هذا القسم بعض الحيل السريعة والسهلة لحل هذه المهمة.

1.1 إزالة الأحرف n الأولى من السلاسل النصية

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

 باستخدام الصيغ

عادةً ، لحذف الأحرف من بداية السلاسل النصية ، يمكنك استخدام وظيفة REPLACE أو مجموعة من الدالتين RIGHT و LEN.

وظيفة REPLACE لإزالة الأحرف N الأولى:

=REPLACE(string, 1, num_chars, "")
  • سلسلة: السلسلة النصية التي تريد إزالة الأحرف منها ؛
  • num_chars: عدد الأحرف التي تريد إزالتها.

على سبيل المثال ، لإزالة أول حرفين من الخلايا ، يرجى استخدام الصيغة أدناه ، ثم اسحب مقبض التعبئة لنسخ الصيغة إلى خلايا أخرى ، انظر لقطة الشاشة:

=REPLACE(A4, 1, 2, "")

وظائف RIGHT و LEN لإزالة الأحرف N الأولى:

=RIGHT(string, LEN(string) - num_chars)
  • سلسلة: السلسلة النصية التي تريد إزالة الأحرف منها ؛
  • num_chars: عدد الأحرف التي تريد إزالتها.

لإزالة أول حرفين من الخلايا ، يرجى تطبيق الصيغة التالية:

=RIGHT(A4,LEN(A4)-2)


 باستخدام الوظيفة المحددة من قبل المستخدم

لإزالة الأحرف n الأولى من الخلايا ، يمكنك أيضًا إنشاء وظيفة محددة بواسطة المستخدم لحل هذه المهمة. يرجى اتباع الخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

رمز فبا: إزالة الأحرف n الأولى من السلاسل النصية

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. ثم ارجع إلى ورقة العمل ، ثم أدخل هذه الصيغة: = removefirstx (A4,2،XNUMX) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل للحصول على النتائج التي تريدها ، انظر لقطة الشاشة:

ملاحظة: في هذه الصيغة: A4 هي الخلية التي تريد إزالة الأحرف منها ؛ الرقم 2 يشير إلى عدد الأحرف التي تريد إزالتها من بداية السلسلة النصية.


1.2 إزالة الأحرف n الأخيرة من السلاسل النصية

لإزالة عدد معين من الأحرف من الجانب الأيمن من السلاسل النصية ، يمكنك أيضًا استخدام صيغة أو دالة معرّفة من قبل المستخدم.

 باستخدام الصيغة

لإزالة الأحرف n الأخيرة من السلاسل النصية ، يمكنك استخدام صيغة تستند إلى دالتي LEFT و LEN.

وظائف LEFT و LEN لإزالة الأحرف N الأخيرة:

=LEFT(string, LEN(string) - num_chars)
  • سلسلة: السلسلة النصية التي تريد إزالة الأحرف منها ؛
  • num_chars: عدد الأحرف التي تريد إزالتها.

لحذف 3 أحرف من نهاية السلاسل النصية ، يرجى استخدام هذه الصيغة ، ثم اسحب مقبض التعبئة لنسخ الصيغة إلى خلايا أخرى ، انظر لقطة الشاشة:

=LEFT(A4, LEN(A4) - 3)


 باستخدام الوظيفة المحددة من قبل المستخدم

هنا ، يمكن أن تساعدك الوظيفة المعرفة من قبل المستخدم أيضًا على إزالة الأحرف n الأخيرة من قائمة الخلايا ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

رمز فبا: إزالة الأحرف n الأخيرة من السلاسل النصية

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. ثم عد إلى ورقة العمل ، وأدخل هذه الصيغة: = removelastx (A4,3،XNUMX) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل للحصول على النتائج التي تريدها ، انظر لقطة الشاشة:

ملاحظة: في هذه الصيغة: A4 هي الخلية التي تريد إزالة الأحرف منها ؛ الرقم 3 يشير إلى عدد الأحرف التي تريد إزالتها من نهاية السلسلة النصية.


1.3 قم بإزالة الأحرف الأولى والأخيرة n أو أحرف موضع معينة باستخدام ميزة قوية

قد يكون من المؤلم بالنسبة لك أن تتذكر العديد من الصيغ ، لإزالة الأحرف من اليسار أو اليمين أو موضع معين من السلاسل النصية ، كوتولس ل إكسيل يدعم ميزة قوية - إزالة حسب الموضع. باستخدام هذه الأداة الصغيرة ، يمكنك التعامل مع هذه المهام ببضع نقرات دون تذكر أي صيغ.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

2. في إزالة حسب الموضع مربع الحوار ، يرجى القيام بالعمليات التالية:

2.1 إزالة الأحرف n الأولى من الخلايا:

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

2.2 إزالة الأحرف n الأخيرة من الخلايا:

  • In أرقام في مربع النص ، اكتب عدد الأحرف التي تريد إزالتها من السلاسل. في هذا المثال ، سأزيل آخر 3 أحرف.
  • اختار من اليمين الخيار في الوظيفة الحالية والقسم الخاص به.
  • ثم اضغط Ok or قم بالمشاركة زر للحصول على النتيجة كما هو موضح أدناه لقطة الشاشة.

2.3 إزالة n حرفًا من موضع معين من الخلايا:

إذا كنت بحاجة إلى إزالة عدد معين من الأحرف من موضع معين من السلاسل النصية ، على سبيل المثال ، فإن إزالة 3 أحرف تبدأ من الحرف الثالث من السلاسل.

  • In أرقام في مربع النص ، اكتب عدد الأحرف التي تريد إزالتها من السلاسل. في هذا المثال ، سأزيل 3 أحرف من موضع معين.
  • اختار تحديد الخيار ، واكتب الرقم الذي تريد إزالة الأحرف التي تبدأ منه في مربع نص ملف الوظيفة الحالية الجزء. هنا ، سأقوم بإزالة الأحرف من الشخصية الثالثة.
  • ثم اضغط Ok or قم بالمشاركة زر للحصول على النتيجة كما هو موضح أدناه لقطة الشاشة.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


1.4 قم بإزالة كل من الأحرف n الأولى والأخيرة من السلاسل النصية مع الصيغة

عندما تحتاج إلى إزالة بعض الأحرف على جانبي السلاسل النصية في Excel ، يمكنك الجمع بين وظائف MID و LEN لإنشاء صيغة للتعامل مع هذه المهمة.

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • سلسلة: السلسلة النصية التي تريد إزالة الأحرف منها ؛
  • اليسار_شارز: عدد الأحرف المطلوب إزالتها من اليسار ؛
  • الحق_الأصلي: عدد الأحرف المطلوب إزالتها من اليمين.

على سبيل المثال ، تحتاج إلى إزالة أول 7 أحرف وآخر 5 أحرف من السلاسل النصية في نفس الوقت ، يرجى إدخال الصيغة التالية في خلية فارغة:

=MID(A4, 7+1, LEN(A4) - (7+5))

ملاحظة: في هذه الصيغة: A4 هي الخلية التي تريد إزالة الأحرف منها ؛ الرقم 7 هو عدد الأحرف التي تريد إزالتها من الجانب الأيسر ؛ الرقم 5 هو عدد الأحرف التي تريد إزالتها من الجانب الأيمن.

وبعد ذلك ، اسحب مقبض التعبئة لأسفل إلى حيث تريد تطبيق هذه الصيغة ، وستحصل على النتيجة كما هو موضح أدناه لقطة الشاشة:


قم بإزالة الأحرف غير المرغوب فيها / الخاصة من السلاسل النصية

عند استيراد البيانات من مكان آخر إلى Excel ، قد يتم لصق الكثير من الأحرف الخاصة أو غير المرغوب فيها في ورقة العمل الخاصة بك. لإزالة هذه الأحرف غير المرغوب فيها مثل # @ $٪ ^ & والمسافات والأرقام والأرقام غير الرقمية وفواصل الأسطر وما إلى ذلك ، سيوفر هذا القسم بعض الطرق المفيدة لمساعدتك.

2.1 إزالة بعض الأحرف الخاصة من السلاسل النصية

إذا كانت هناك بعض الأحرف الخاصة مثل٪ ^ & * () داخل سلاسل النص ، لإزالة هذا النوع من الأحرف ، يمكنك تطبيق الحيل الثلاثة أدناه.

 قم بإزالة العديد من الأحرف الخاصة من السلاسل النصية باستخدام وظيفة الاستبدال

عادةً ، في Excel ، يمكنك تداخل العديد من وظائف الاستبدال لاستبدال كل حرف محدد بلا شيء ، وبناء الجملة العام هو:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • سلسلة_خلية: تحتوي الخلية على السلسلة النصية التي تريد إزالة الأحرف الخاصة منها ؛
  • char1 ، char2 ، char3: الأحرف غير المرغوب فيها التي تريد إزالتها.

الآن ، يرجى نسخ أو إدخال الصيغة أدناه في خلية فارغة:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

وبعد ذلك ، اسحب مقبض التعبئة لأسفل إلى الخلايا حيث تريد تطبيق هذه الصيغة ، وستتم إزالة جميع الأحرف غير المرغوب فيها التي حددتها مرة واحدة ، انظر لقطة الشاشة:

نصائح: إذا كان هناك المزيد من الأحرف التي تريد إزالتها ، فأنت تحتاج فقط إلى تضمين المزيد من وظائف SUBSTITUTE داخل الصيغة.


 قم بإزالة العديد من الأحرف الخاصة من السلاسل النصية باستخدام الوظيفة المحددة بواسطة المستخدم

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: إزالة عدة أحرف خاصة من السلاسل النصية

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. بعد ذلك ، أغلق نافذة التعليمات البرمجية وعد إلى ورقة العمل ، وأدخل هذه الصيغة = RemoveUnwantedChars (A2، $ D $ 2) في خلية فارغة حيث يتم إخراج النتيجة ، ثم اسحب مقبض التعبئة لأسفل للحصول على النتائج التي تريدها ، انظر لقطة الشاشة:

ملاحظة: في الصيغة أعلاه: A2 هي الخلية التي تريد إزالة الأحرف منها ؛ 2 دولار يحتوي على الأحرف الخاصة التي ترغب في إزالتها (يمكنك كتابة أي أحرف خاصة أخرى تريدها).


 قم بإزالة العديد من الأحرف الخاصة من السلاسل النصية بميزة مذهلة

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

2. في إزالة الأحرف صندوق المحادثة:

  • الاختيار عرف الخيار تحت إزالة الأحرف والقسم الخاص به.
  • ثم أدخل الأحرف الخاصة في مربع النص الذي تريد إزالته.
  • ثم اضغط Ok or قم بالمشاركة زر لإزالة الأحرف التي حددتها مرة واحدة. انظر لقطة الشاشة:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


2.2 إزالة جميع الأرقام من السلاسل النصية

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

 قم بإزالة الأرقام من السلاسل النصية باستخدام وظيفة الاستبدال

في Excel ، يمكن أن تساعد وظيفة SUBSTITUTE المتداخلة في استبدال جميع الأرقام بلا شيء ، لذلك ، يمكنك استخدام الصيغة أدناه لإزالة جميع الأرقام من الخلايا:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

ثم اسحب مقبض التعبئة لأسفل إلى الخلايا حيث تريد تطبيق هذه الصيغة ، وسيتم حذف جميع الأرقام من قائمة السلاسل النصية ، انظر لقطة الشاشة:


 قم بإزالة الأرقام من السلاسل النصية باستخدام دالة TEXTJOIN

إذا كان لديك Excel 2019 أو 2021 أو 365 ، يمكن أن تساعد وظيفة TEXTJOIN الجديدة أيضًا في إزالة الأرقام من السلاسل النصية.

يرجى نسخ الصيغة التالية في خلية فارغة ، ثم الضغط على Ctrl + Shift + Enter معًا للحصول على النتيجة الأولى:

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

ثم انسخ الصيغة إلى خلايا أخرى أدناه حيث تريد تطبيق هذه الصيغة ، انظر لقطة الشاشة:

ملاحظة: هذا TEXTJOIN متاح فقط في Excel 2019 و 2021 و Office 365.


 قم بإزالة الأرقام من السلاسل النصية باستخدام الوظيفة المحددة بواسطة المستخدم

إلى جانب الصيغتين المذكورتين أعلاه ، يمكن للوظيفة المعرفة من قبل المستخدم أن تقدم لك معروفًا ، يرجى اتباع الخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: أزل الأرقام من السلاسل النصية

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. بعد ذلك ، أغلق نافذة التعليمات البرمجية واخرج منها ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = RemoveNumbers (A2) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة فيها ، انظر الصورة:


 قم بإزالة الأرقام من السلاسل النصية باستخدام خيار سهل الاستخدام

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. حدد نطاق الخلايا حيث تريد إزالة الأرقام ، ثم انقر فوق كوتولس > نص > إزالة الأحرف.

2. في إزالة الأحرف مربع الحوار ، يرجى القيام بالعمليات التالية:

  • الاختيار رقمية الخيار تحت إزالة الأحرف والقسم الخاص به.
  • ثم اضغط Ok or قم بالمشاركة زر لإزالة الأرقام على الفور. انظر لقطة الشاشة:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


2.3 إزالة الأحرف غير الرقمية من السلاسل النصية

لإزالة جميع الأحرف غير الرقمية والاحتفاظ فقط بالأرقام من السلاسل النصية ، سيتحدث هذا القسم عن بعض الطرق لحل هذه المهمة في Excel.

 قم بإزالة الأحرف غير الرقمية من السلاسل النصية باستخدام الصيغة في Excel 2016 والإصدارات السابقة

إذا كنت تستخدم Excel 2016 أو إصدارات سابقة ، فيجب عليك تطبيق صيغة معقدة لتحقيق هذه الوظيفة ، يرجى نسخ الصيغة أدناه أو إدخالها في خلية فارغة:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

ثم انسخ الصيغة إلى خلايا أخرى أدناه حيث تريد تطبيق هذه الصيغة ، انظر لقطة الشاشة:

ملاحظة: إذا كانت الأرقام في سلسلة نصية تبدأ بـ 0 ، فسيتم فقد 0.


 قم بإزالة الأحرف غير الرقمية من السلاسل النصية باستخدام وظيفة TEXTJOIN في Excel 2019 ، 2021 ، 365

قد يكون من الصعب جدًا فهم الصيغة أعلاه بالنسبة لمعظمنا. إذا كان لديك برنامج Excel 2019 أو 2021 أو 365 ، فهناك صيغة أنيقة يمكن أن تساعدك.

يُرجى نسخ الصيغة التالية أو إدخالها في خلية فارغة ، ثم الضغط على كترل + شيفت + إنتر مفاتيح معًا للحصول على أول نتيجة صحيحة:

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

بعد ذلك ، اسحب مقبض التعبئة لأسفل إلى الخلايا حيث ستطبق هذه الصيغة ، وستحصل على النتيجة كما هو موضح أدناه:

ملاحظة: باستخدام هذه الصيغة ، يمكنك رؤية الأصفار البادئة سيتم الاحتفاظ بها حيث يتم إرجاع الأرقام كنص.


 قم بإزالة الأحرف غير الرقمية من السلاسل النصية باستخدام الوظيفة المحددة بواسطة المستخدم

بالطبع ، يمكنك أيضًا إنشاء الوظيفة المحددة بواسطة المستخدم الخاصة بك باستخدام صيغة أبسط ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: قم بإزالة الأحرف غير الرقمية من السلاسل النصية

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. بعد ذلك ، أغلق نافذة التعليمات البرمجية واخرج منها ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = Removenonnumeric (A2) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة فيها ، وسيتم استخراج الأرقام فقط كما هو موضح أدناه:


 قم بإزالة الأحرف غير الرقمية من السلاسل النصية بميزة بسيطة

لحذف الأحرف غير الرقمية في نطاق من الخلايا مباشرةً ، كوتولس ل إكسيلالصورة إزالة الأحرف يمكن إنجاز ذلك بنقرات قليلة فقط.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. حدد نطاق الخلايا الذي تريد إزالة الأحرف غير الرقمية منه ، ثم انقر فوق كوتولس > نص > إزالة الأحرف.

2. في إزالة الأحرف مربع الحوار ، يرجى ضبط العمليات التالية:

  • الاختيار غير رقمي الخيار تحت إزالة الأحرف والقسم الخاص به.
  • ثم اضغط Ok or قم بالمشاركة زر لإزالة جميع الأحرف غير الرقمية على الفور. انظر لقطة الشاشة:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


2.4 فصل النص والأرقام من خلية واحدة إلى عمودين

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

 افصل النص والأرقام من خلية واحدة إلى عمودين باستخدام الوظيفة المحددة بواسطة المستخدم

باستخدام الوظيفة المعرفة من قبل المستخدم التالية ، يمكنك استخراج النص والأرقام مرة واحدة ، برجاء اتباع الخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: افصل النص والأرقام من السلاسل النصية إلى عمودين

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. بعد ذلك ، أغلق نافذة التعليمات البرمجية واخرج منها ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = SplitText (A2، FALSE) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد ملء هذه الصيغة للحصول على النص بالكامل ، انظر لقطة الشاشة:

4. وبعد ذلك ، استمر في كتابة هذه الصيغة: = SplitText (A2، TRUE) في خلية أخرى واسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد ملء هذه الصيغة للحصول على الأرقام ، انظر لقطة الشاشة:


 افصل النص والأرقام من خلية واحدة إلى عمودين بميزة سهلة

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

2. في تقسيم الخلايا مربع الحوار، حدد انقسام إلى أعمدة الخيار تحت النوع القسم ، ثم تحقق نص ورقم من تقسيم حسب القسم ، انظر لقطة الشاشة:

3. ثم اضغط Ok زر وآخر تقسيم الخلايا سيظهر مربع الحوار ، حدد خلية لإخراج النص والأرقام المنفصلة ، ثم انقر فوق OK زر. الآن ، يمكنك رؤية النص والأرقام في الخلايا المحددة مقسمة إلى عمودين في وقت واحد كما هو موضح أدناه العرض التوضيحي:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


2.5 إزالة أحرف فاصل الأسطر من السلاسل النصية

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

 قم بإزالة أحرف فواصل الأسطر من السلاسل النصية باستخدام ميزة البحث والاستبدال

في Excel ، يمكنك استخدام ملحق بحث واستبدال ميزة لإزالة فواصل الأسطر ، يرجى القيام بذلك على النحو التالي:

1. حدد نطاق البيانات الذي تريد إزالة فواصل الأسطر منه.

2. ثم اضغط الصفحة الرئيسية > بحث وتحديد > استبدل (أو اضغط كترل + H مفاتيح) للذهاب إلى بحث واستبدال مربع الحوار ، انظر لقطة الشاشة:

3. في خرجت بحث واستبدال مربع الحوار ، يرجى القيام بالعمليات التالية:

  • ضع المؤشر في ملف تجد ما الميدان والصحافة كترل + J على لوحة المفاتيح ، قد لا ترى أي شيء ، ولكن تم إدراج حرف فاصل الأسطر.
  • في مجلة استبدال ، اترك هذا الحقل فارغًا لمجرد حذف فواصل الأسطر أو الضغط على الفضاء باr مرة واحدة لاستبدال فواصل الأسطر بالفراغات.

4. ثم اضغط استبدال الكل زر ، سيتم حذف جميع فواصل الأسطر في الخلايا المحددة أو استبدالها بفراغات مرة واحدة. انظر لقطة الشاشة:


 قم بإزالة أحرف فاصل الأسطر من السلاسل النصية باستخدام وظيفة الاستبدال

يمكنك أيضًا إنشاء صيغة بناءً على دالتي SUBSTITUTE و CHAR لإزالة فواصل الأسطر من السلاسل النصية.

يرجى تطبيق الصيغة أدناه للحصول على النتيجة:

=SUBSTITUTE(A2,CHAR(10),"")

نصائح: تبحث الدالة SUBSTITUTE عن وتستبدل الحرف CHAR (10) الذي يمثل حرف فاصل السطر بلا شيء. إذا كنت تريد فصل النتيجة بفاصلة ومسافة ، فيمكنك استخدام الصيغة أدناه:

=SUBSTITUTE(A2,CHAR(10),", ")


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

إذا كنت مرتاحًا لاستخدام كود VBA ، هنا أيضًا يوفر لك رمزًا ، فيرجى اتباع الخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: إزالة فواصل الأسطر من السلاسل النصية

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه ، حدد النطاق الذي تريد إزالة فواصل الأسطر ، انظر لقطة الشاشة:

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


 قم بإزالة أحرف فواصل الأسطر من السلاسل النصية باستخدام خيار ذكي

هنا، كوتولس ل إكسيلالصورة إزالة الأحرف يمكن أن تساعدك الميزة أيضًا على إزالة فواصل الأسطر بسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. حدد نطاق الخلايا حيث تريد إزالة فواصل الأسطر ، ثم انقر فوق كوتولس > نص > إزالة الأحرف.

2. في إزالة الأحرف مربع الحوار ، يرجى ضبط العمليات التالية:

  • الاختيار عدم الطباعة الخيار تحت إزالة الأحرف والقسم الخاص به.
  • ثم اضغط Ok or قم بالمشاركة زر لإزالة كافة فواصل الأسطر من نطاق البيانات المحدد. انظر لقطة الشاشة:

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


2.6 إزالة المسافات (بادئة ، لاحقة ، زائدة أو كلها) من السلاسل النصية

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

 قم بإزالة المسافات الزائدة (بادئة ، لاحقة ، زائدة) من السلاسل النصية باستخدام وظيفة TRIM

في Excel ، لحذف المسافات البادئة والزائدة والمسافات الزائدة من السلاسل النصية ، يمكن أن تساعدك وظيفة TRIM البسيطة. تقوم هذه الوظيفة بحذف جميع المسافات باستثناء المسافات الفردية بين الكلمات.

الرجاء إدخال الصيغة أدناه في خلية فارغة:

=TRIM(A2)

ثم اسحب مقبض التعبئة لأسفل لنسخ الصيغة للخلايا الأخرى ، الآن ، يمكنك رؤية جميع المسافات البادئة والزائدة والمسافات الزائدة بين الكلمات تمت إزالتها مرة واحدة من لقطة الشاشة:


 إزالة جميع المسافات من السلاسل النصية

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

باستخدام وظيفة الاستبدال

يمكنك استخدام الدالة SUBSTITUTE لاستبدال جميع المسافات بلا شيء ، يرجى تطبيق الصيغة أدناه في خلية فارغة:

=SUBSTITUTE(A2," ","")

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


باستخدام ميزة البحث والاستبدال

في الواقع، فإن البحث والاستبدال يمكن أن تساعد الميزة في Excel أيضًا في التخلص من جميع المسافات من الخلايا المحددة ، يرجى اتباع الخطوات التالية:

1. حدد نطاق البيانات الذي تريد إزالة جميع المسافات منه.

2. ثم اضغط الصفحة الرئيسية > بحث وتحديد > استبدل (أو اضغط كترل + H مفاتيح) للذهاب إلى بحث واستبدال مربع الحوار ، في فتح بحث واستبدال مربع الحوار ، يرجى القيام بالعمليات التالية:

  • صحافة شريط الفضاء في ال تجد ما حقل؛
  • في مجلة استبدال الحقل ، اترك هذا الحقل فارغًا.

3. ثم انقر فوق استبدال الكل زر ، سيتم حذف جميع المسافات البيضاء في الخلايا المحددة مرة واحدة. انظر لقطة الشاشة:


 قم بإزالة جميع أنواع المسافات من السلاسل النصية بميزة قوية

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

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. حدد نطاق البيانات الذي ستقوم بإزالة المسافات منه ، ثم انقر فوق كوتولس > نص > إزالة المسافات. انظر لقطة الشاشة:

2. في إزالة المسافات في مربع الحوار ، حدد نوع مساحة واحدة تريد إزالته من ملف نوع المساحات:

  • قم بإزالة المسافات البادئة ، يرجى تحديد المساحات الرائدة الخيار.
  • قم بإزالة المسافات الزائدة ، يرجى تحديد مسافات زائدة الخيار.
  • قم بإزالة المسافات البادئة والمسافات اللاحقة مرة واحدة ، يرجى تحديد المساحات الرائدة والمتأخرة الخيار.
  • قم بإزالة جميع المسافات الزائدة ، يرجى تحديد جميع المساحات الزائدة الخيار.
  • قم بإزالة جميع المسافات ، يرجى تحديد كل المساحات الخيار.

3. ثم اضغط Ok or قم بالمشاركة زر ، سوف تحصل على النتيجة التي تحتاجها.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


إزالة الأحرف / النص قبل أو بعد حرف معين

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

3.1 إزالة النص قبل أو بعد الحرف الأول المحدد

إذا كنت ترغب في إزالة النص قبل أو بعد الحرف الأول المحدد ، مثل مسافة ، فاصلة من قائمة السلاسل النصية كما هو موضح أدناه ، سأقوم هنا بنشر طريقتين لك.

 قم بإزالة النص قبل الحرف الأول المحدد باستخدام صيغة

لإزالة نص أو أحرف قبل الحرف الأول المحدد ، يمكنك إنشاء صيغة بناءً على الدالات RIGHT و LEN و FIND ، الصيغة العامة هي:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • الخلية: مرجع الخلية أو السلسلة النصية التي تريد إزالة النص منها ؛
  • دبابة: الفاصل المحدد الذي تريد إزالة النص بناءً عليه.

على سبيل المثال ، لإزالة كل شيء قبل الفاصلة الأولى من سلاسل القائمة ، يجب عليك تطبيق الصيغة التالية في خلية فارغة ، ثم سحبها لأسفل إلى الخلايا التي تحتاجها ، انظر لقطة الشاشة:

=RIGHT(A2,LEN(A2)-FIND(",",A2))

ملاحظة: في الصيغة أعلاه: A2 هي الخلية التي تريد إزالة النص منها ؛ , هو الحرف المحدد الذي تريد إزالة النص بناءً عليه ، يمكنك تغييره إلى أي أحرف أخرى حسب حاجتك.


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

لإزالة كل شيء بعد الحرف الأول المحدد ، يمكنك استخدام الدالتين LEFT و FIND للحصول على النتيجة ، الصيغة العامة هي:

=LEFT(cell,FIND("char",cell)-1)
  • الخلية: مرجع الخلية أو السلسلة النصية التي تريد إزالة النص منها ؛
  • دبابة: الفاصل المحدد الذي تريد إزالة النص بناءً عليه.

الآن ، يرجى إدخال الصيغة أدناه في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا الأخرى حيث تريد تطبيق هذه الصيغة ، وستتم إزالة جميع الأحرف بعد الفاصلة الأولى مرة واحدة ، انظر لقطة الشاشة:

=LEFT(A2,FIND(",",A2)-1)


3.2 إزالة النص قبل أو بعد التكرار النوني للحرف

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

 قم بإزالة النص قبل التكرار النوني لحرف مع صيغة

لإزالة النص قبل التكرار التاسع لحرف معين ، يمكن أن تساعدك الصيغة التالية ، الصيغة العامة هي:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • الخلية: مرجع الخلية أو السلسلة النصية التي تريد إزالة النص منها ؛
  • دبابة: الفاصل المحدد الذي تريد إزالة النص بناءً عليه ؛
  • N: تكرار الحرف قبل إزالة النص.

على سبيل المثال ، لإزالة كل شيء قبل الفاصلة الثانية من السلاسل النصية ، يجب تطبيق الصيغة التالية:

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

ملاحظة: في الصيغة أعلاه: A2 هي الخلية التي تريد إزالة النص منها ؛ , هو الحرف المحدد الذي تريد إزالة النص بناءً عليه ، يمكنك تغييره إلى أي أحرف أخرى حسب حاجتك ؛ 2 يشير إلى الفاصلة التاسعة التي تريد إزالة النص قبلها.

وبعد ذلك ، اسحب مقبض التعبئة لنسخ الصيغة إلى خلايا أخرى ، انظر الصورة:


 قم بإزالة النص بعد التكرار التاسع لحرف مع صيغة

لإزالة النص بعد التكرار N لفاصل معين ، يمكن أن تقدم لك وظائف LEFT و SUBSTITUTE و FIND خدمة. الصيغة العامة هي:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • الخلية: مرجع الخلية أو السلسلة النصية التي تريد إزالة النص منها ؛
  • دبابة: الفاصل المحدد الذي تريد إزالة النص بناءً عليه ؛
  • N: تكرار الحرف وبعد ذلك يتم إزالة النص.

بمجرد أن تفهم الصيغة الأساسية ، يرجى نسخ أو إدخال الصيغة أدناه في خلية فارغة:

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

ملاحظة: في الصيغة أعلاه: A2 هي الخلية التي تريد إزالة النص منها ؛ , هو الحرف المحدد الذي تريد إزالة النص بناءً عليه ، يمكنك تغييره إلى أي أحرف أخرى حسب حاجتك ؛ 2 يشير إلى الفاصلة التاسعة التي تريد إزالة النص بعدها.

بعد ذلك ، اسحب مقبض التعبئة لنسخ الصيغة إلى خلايا أخرى ، وسيتم حذف جميع الأحرف بعد الفاصلة الثانية مرة واحدة ، انظر لقطة الشاشة:


 قم بإزالة النص قبل أو بعد التكرار النوني لحرف مع وظيفة من تحديد المستخدم

كما ترى ، يمكنك حل الحالات الخاصة بإزالة النص قبل أو بعد التواجد النوني للحرف باستخدام وظائف Excel الأصلية في مجموعات مختلفة. تكمن المشكلة في أنك بحاجة إلى تذكر هذه الصيغ الصعبة. في هذه الحالة ، سوف أقوم بإنشاء وظيفة محددة بواسطة المستخدم لتغطية جميع السيناريوهات ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: قم بإزالة النص قبل أو بعد التواجد النوني للحرف

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. بعد ذلك ، أغلق نافذة التعليمات البرمجية واخرج منها ، وارجع إلى ورقة العمل ، واستخدم الصيغ التالية:

إزالة النص قبل التكرار الثاني للفاصلة:

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

أزل النص بعد التكرار الثاني للفاصلة

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


3.3 إزالة النص قبل أو بعد آخر تكرار للحرف

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

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

لإزالة جميع الأحرف قبل التواجد الأخير للحرف ، فإن الصيغة العامة هي:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • الخلية: مرجع الخلية أو السلسلة النصية التي تريد إزالة النص منها ؛
  • دبابة: الفاصل المحدد الذي تريد إزالة النص بناءً عليه ؛

الآن ، إذا كنت بحاجة إلى إزالة النص قبل آخر تكرار للفاصلة ، فيرجى نسخ الصيغة أدناه أو إدخالها في خلية فارغة:

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

ملاحظة: في الصيغة أعلاه: A2 هي الخلية التي تريد إزالة النص منها ؛ , هو الحرف المحدد الذي تريد إزالة النص بناءً عليه ، يمكنك تغييره إلى أي أحرف أخرى حسب حاجتك.

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


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

إذا كانت قيم الخلية مفصولة بعدد متغير من المحددات ، فأنت الآن تريد حذف كل شيء بعد آخر مثيل لهذا المحدد ، وبناء الجملة العام هو:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • الخلية: مرجع الخلية أو السلسلة النصية التي تريد إزالة النص منها ؛
  • دبابة: الفاصل المحدد الذي تريد إزالة النص بناءً عليه ؛

يرجى نسخ أو إدخال الصيغة أدناه في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل للحصول على النتائج الأخرى التي تريدها ، انظر لقطة الشاشة:

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

ملاحظة: في الصيغة أعلاه: A2 هي الخلية التي تريد إزالة النص منها ؛ , هو الحرف المحدد الذي تريد إزالة النص بناءً عليه ، يمكنك تغييره إلى أي أحرف أخرى حسب حاجتك.


3.4 إزالة النص بين الأقواس

إذا كانت لديك قائمة بالسلاسل النصية مع جزء من الأحرف محاطة بأقواس ، فقد ترغب الآن في إزالة جميع الأحرف داخل الأقواس بما في ذلك الأقواس نفسها كما هو موضح أدناه في لقطة الشاشة. سيتحدث هذا القسم عن بعض الحيل لحل هذه المهمة في Excel.

 قم بإزالة النص بين الأقواس باستخدام ميزة البحث والاستبدال

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

1. حدد قائمة البيانات التي تريد إزالة النصوص الموجودة بين الأقواس.

2. ثم اضغط الصفحة الرئيسية > بحث وتحديد > استبدل (أو اضغط كترل + H مفاتيح) للانتقال إلى مربع الحوار "بحث واستبدال" ، في ملف بحث واستبدال في مربع الحوار ، قم بالعمليات التالية:

  • في مجلة تجد ما نوع الحقل (*) في مربع النص
  • في مجلة استبدال الحقل ، اترك هذا الحقل فارغًا.

3. ثم اضغط استبدال الكل الزر ، سيتم حذف جميع الأحرف الموجودة داخل الأقواس (بما في ذلك الأقواس) في الخلايا المحددة مرة واحدة. انظر لقطة الشاشة:

نصائح: ال بحث واستبدال تعمل الميزة أيضًا مع اثنين أو أكثر من أزواج الأقواس داخل سلاسل النص.


 قم بإزالة النص بين الأقواس بالصيغة

إلى جانب ميزة البحث والاستبدال ، يمكنك أيضًا استخدام صيغة لحل هذه المهمة في Excel ، الصيغة العامة هي:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • نص: السلسلة النصية أو مرجع الخلية الذي تريد إزالة الأحرف منه.

الآن ، يرجى نسخ أو إدخال الصيغة التالية في خلية فارغة حيث تريد الحصول على النتيجة:

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

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

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

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 قم بإزالة النص بين الأقواس باستخدام الوظيفة المحددة بواسطة المستخدم

تعمل الصيغة أعلاه بشكل جيد لإزالة النص من زوج واحد من الأقواس ، إذا كنت بحاجة إلى إزالة النصوص من أزواج متعددة من الأقواس داخل السلاسل النصية ، فلن تعمل الصيغة بشكل صحيح. هنا ، سوف أقوم بإنشاء وظيفة محددة من قبل المستخدم لحل هذه المهمة.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: إزالة النص بين الأقواس

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. بعد ذلك ، ارجع إلى ورقة العمل ، وأدخل هذه الصيغة في خلية فارغة: = remtxt (A2)، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا حيث تريد تطبيق هذه الصيغة ، ستتم إزالة جميع النصوص الموجودة داخل جميع الأقواس بما في ذلك الأقواس كما هو موضح أدناه:


إزالة الكلمات من السلاسل النصية

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

4.1 إزالة الكلمة الأولى أو الأخيرة من السلسلة النصية

لإزالة الكلمة الأولى أو الأخيرة من قائمة السلاسل النصية ، قد تفيدك الصيغ التالية.

 إزالة الكلمة الأولى من سلسلة نصية مع الصيغة

قم بإزالة الكلمات الأولى من قائمة السلاسل النصية ، يمكنك إنشاء صيغة بسيطة بناءً على وظائف RIGHT و LEN و FIND ، وبناء الجملة العام هو:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • نص: السلسلة النصية أو مرجع الخلية الذي تريد إزالة الكلمة الأولى منه.

الآن ، يرجى إدخال الصيغة التالية أو نسخها في خلية فارغة:

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

وبعد ذلك ، اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا الأخرى ، انظر الصورة:

نصائح: إذا كنت بحاجة إلى إزالة الكلمات N الأولى من الخلايا ، فيرجى استخدام الصيغة أدناه:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • نص: السلسلة النصية أو مرجع الخلية الذي تريد إزالة الكلمات n الأولى منه ؛
  • N: يشير إلى عدد الكلمات التي تريد إزالتها من بداية السلسلة النصية.

على سبيل المثال ، لإزالة أول كلمتين من الخلايا ، يرجى نسخ أو إدخال الصيغة أدناه في خلية فارغة للحصول على النتيجة التي تريدها ، انظر لقطة الشاشة:

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


  إزالة الكلمة الأخيرة من سلسلة نصية مع الصيغة

لإزالة الكلمة الأخيرة من السلاسل النصية ، يمكنك أيضًا استخدام صيغة لحل هذه المهمة ، الصيغة العامة هي:

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • نص: السلسلة النصية أو مرجع الخلية الذي تريد إزالة الكلمة الأخيرة منه ؛

يرجى استخدام الصيغة أدناه في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على الخلايا الأخرى ، انظر لقطة الشاشة:

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

نصائح: لإزالة الكلمات N الأخيرة من قائمة الخلايا ، يكون بناء الجملة العام هو:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • نص: السلسلة النصية أو مرجع الخلية الذي تريد إزالة الكلمات n الأخيرة منه ؛
  • N: يشير إلى عدد الكلمات التي تريد إزالتها من نهاية السلسلة النصية.

لنفترض ، لحذف آخر 3 كلمات من قائمة الخلايا ، يرجى استخدام الصيغة أدناه لإرجاع النتيجة ، انظر لقطة الشاشة:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


4.2 إزالة الأحرف أو الكلمات المكررة داخل الخلية

عند إزالة القيم أو الصفوف المكررة ، يقدم Excel بعض الخيارات المختلفة ، ولكن عندما يتعلق الأمر بإزالة بعض الأحرف أو الكلمات المكررة داخل خلية معينة ، فقد لا تكون هناك أي ميزة مضمنة جيدة لحلها. في هذه الحالة ، سيساعد هذا القسم في إنشاء بعض الوظائف المحددة بواسطة المستخدم للتعامل مع هذا اللغز.

 قم بإزالة الأحرف المكررة داخل خلية باستخدام وظيفة معرّفة من قبل المستخدم

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

رمز فبا: إزالة الأحرف المكررة داخل الخلية

Function RemoveDupeschars(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupeschars = xOutValue
End Function

3. ثم أغلق نافذة الكود ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة = RemoveDupeschars (A2) في خلية فارغة بجانب بياناتك ، ثم اسحب مقبض التعبئة إلى الخلايا التي تريد تطبيق هذه الصيغة ، انظر الصورة:

ملاحظةA2 هي خلية البيانات التي تريد إزالة الأحرف المكررة منها.

معلومه- سرية: الوظيفة حساسة لحالة الأحرف ، لذلك تعامل الأحرف الصغيرة والكبيرة كأحرف مختلفة.


 إزالة الكلمات المكررة داخل خلية باستخدام وظيفة معرّفة من قبل المستخدم

بافتراض أن لديك نفس الكلمات أو السلاسل النصية في خلية وترغب في إزالة جميع الكلمات نفسها من الخلية كما هو موضح أدناه. يمكنك استخدام الوظيفة المعرفة من قبل المستخدم التالية لحل هذه المهمة في Excel.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

رمز فبا: إزالة الكلمات المكررة داخل خلية

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. ثم أغلق نافذة الكود ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة = RemoveDupeswords (A2، "،") في خلية فارغة بجانب بياناتك ، ثم اسحب مقبض التعبئة إلى الخلايا التي تريد تطبيق هذه الصيغة ، انظر الصورة:

ملاحظة: A2 هي الخلية التي تريد حذف الكلمات المكررة منها ، والفاصلة والمسافة (, ) هي المحددات لفصل السلاسل النصية ، يمكنك تغييرها إلى أي محددات أخرى حسب احتياجاتك.

معلومه- سرية: هذه الوظيفة ليست حساسة لحالة الأحرف ، ويتم التعامل مع الأحرف الصغيرة والكبيرة على أنها نفس الأحرف.


4.3 اقتطاع السلسلة النصية إلى كلمات N.

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

 اقتطاع سلسلة النص إلى كلمات N مع الصيغة

لاقتطاع سلسلة نصية إلى كلمات N ، يمكنك إنشاء صيغة بناءً على وظائف LEFT و FIND و SUBSTITUTE ، وبناء الجملة العام هو:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • نص: السلسلة النصية أو مرجع الخلية الذي تريد قصه ؛
  • N: عدد الكلمات التي تريد الاحتفاظ بها من الجانب الأيسر للسلسلة النصية المحددة.

للتعامل مع هذه الوظيفة ، يرجى نسخ الصيغة أدناه أو إدخالها في خلية فارغة:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

وبعد ذلك ، اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على الخلايا الأخرى ، انظر الصورة:


 اقتطاع سلسلة النص إلى كلمات N مع وظيفة محددة من قبل المستخدم

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في Module Window.

كود فبا: قص السلسلة النصية إلى كلمات ن

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. ثم أغلق نافذة التعليمات البرمجية واخرج منها ، وارجع إلى ورقة العمل ، وأدخل هذه الصيغة: = GetNWords (A2، B2) في خلية فارغة ، ثم اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على خلايا أخرى ، يتم الاحتفاظ فقط بأول عدد محدد من الكلمات كما هو موضح أدناه:



  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع