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

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

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

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

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

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

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

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

دالة REPLACE لإزالة أول N أحرف:

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

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

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

دالتي RIGHT وLEN لإزالة أول N أحرف:

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

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

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

باستخدام دالة معرفة من قبل المستخدم

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

كود VBA: إزالة أول n أحرف من سلاسل النص

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

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

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

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

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

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

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

دالتي LEFT وLEN لإزالة آخر N أحرف:

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

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

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

باستخدام دالة معرفة من قبل المستخدم

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

كود VBA: إزالة آخر n أحرف من سلاسل النص

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

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

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

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

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

1. حدد الخلايا التي تريد إزالة الأحرف منها، ثم انقر على "Kutools" > "نص" > "إزالة الأحرف في موضع محدد"، كما هو موضح في الصورة:

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

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

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

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

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

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

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

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

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

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

• "string": سلسلة النص التي تريد إزالة الأحرف منها؛
• "left_chars": عدد الأحرف التي ستتم إزالتها من اليسار؛
• "right_chars": عدد الأحرف التي ستتم إزالتها من اليمين.

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

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

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

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

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

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

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

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

إزالة عدة أحرف خاصة من سلاسل النص باستخدام دالة SUBSTITUTE

عادةً في Excel، يمكنك تضمين عدة دوال SUBSTITUTE لاستبدال كل حرف محدد بلا شيء، والصيغة العامة هي:

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

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

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

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

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

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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" هي الخلية التي تريد إزالة الأحرف منها؛ "$D$2" تحتوي على الأحرف الخاصة التي ترغب في إزالتها (يمكنك كتابة أي أحرف خاصة أخرى تحتاجها).

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

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

1. حدد نطاق الخلايا الذي تريد إزالة الأحرف الخاصة منه، ثم انقر على "Kutools" > "نص" > "حذف الأحرف المحددة"، كما هو موضح في الصورة:

2. في مربع الحوار "حذف الأحرف المحددة":

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

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

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

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

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

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

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

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

إذا كان لديك Excel2019 أو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 متوفرة فقط في Excel2019 و2021 وOffice365.

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

كود VBA: إزالة الأرقام من سلاسل النص

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)في خلية فارغة، ثم اسحب مقبض التعبئة للأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، كما هو موضح في الصورة:

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

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

1. حدد نطاق الخلايا الذي تريد إزالة الأرقام منه، ثم انقر على "Kutools" > "نص" > "حذف الأحرف المحددة".

2. في مربع الحوار "حذف الأحرف المحددة"، يرجى تنفيذ العمليات التالية:

• حدد خيار "الأحرف الرقمية" ضمن قسم "حذف الأحرف المحددة".
• ثم، انقر على زر "موافق" أو "تطبيق" لإزالة الأرقام فورًا. انظر الصورة:

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

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

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

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

=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، فسيتم فقدان الصفر.

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

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

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

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

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

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

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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)في خلية فارغة، ثم اسحب مقبض التعبئة للأسفل إلى الخلايا التي تريد تطبيق هذه الصيغة عليها، وسيتم استخراج الأرقام فقط كما هو موضح في الصورة أدناه:

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

لحذف الأحرف غير الرقمية مباشرة في نطاق من الخلايا، يمكن لأداة "حذف الأحرف المحددة" في "Kutools لـ Excel" إنجاز ذلك ببضع نقرات فقط.

1. حدد نطاق الخلايا الذي تريد إزالة الأحرف غير الرقمية منه، ثم انقر على "Kutools" > "نص" > "حذف الأحرف المحددة".

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

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

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

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

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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)في خلية أخرى واسحب مقبض التعبئة للأسفل إلى الخلايا التي تريد تعبئة هذه الصيغة فيها للحصول على الأرقام، كما هو موضح في الصورة:

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

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

1. حدد نطاق الخلايا الذي تريد تقسيمه، ثم انقر على "Kutools" > "دمج وتقسيم" > "تقسيم الخلايا"، كما هو موضح في الصورة:

2. في مربع الحوار "تقسيم الخلايا"، حدد خيار "تقسيم البيانات" ضمن قسم "النوع"، ثم حدد "تقسيم حسب النص والرقم" من قسم "الفاصل"، كما هو موضح في الصورة:

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

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

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

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

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

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

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

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

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

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

إزالة أحرف فاصل الأسطر من سلاسل النص باستخدام دالة SUBSTITUTE

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

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

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

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

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

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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. ثم، انقر على زر "موافق"، وسيتم حذف جميع فواصل الأسطر من نطاق البيانات المحدد.

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

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

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

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

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

2.6 إزالة المسافات (الأمامية، الخلفية، الزائدة أو جميع المسافات) من سلاسل النص

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

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

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

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

=TRIM(A2)

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

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

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

باستخدام دالة SUBSTITUTE

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

=SUBSTITUTE(A2," ","") 

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

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

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

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

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

• اضغط على "مسافة" في حقل "البحث عن"؛
• في حقل "استبدال بـ"، اترك هذا الحقل فارغًا.

3. ثم، انقر على زر "استبدال الكل"، سيتم حذف جميع المسافات في الخلايا المحددة دفعة واحدة. انظر الصورة:

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

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

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

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

• لإزالة المسافات الأمامية، يرجى تحديد خيار "الفراغات الأمامية"؛
• لإزالة المسافات الخلفية، يرجى تحديد خيار "الفراغات الخلفية"؛
• لإزالة المسافات الأمامية والخلفية دفعة واحدة، يرجى تحديد خيار "الفراغات الأمامية والخلفية"؛
• لإزالة جميع المسافات الزائدة، يرجى تحديد خيار "جميع الفراغات الزائدة"؛
• لإزالة جميع المسافات، يرجى تحديد خيار "جميع الفراغات".

3. ثم، انقر على زر "موافق" أو "تطبيق"، ستحصل على النتيجة التي تحتاجها.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

3.2 إزالة النص قبل أو بعد الظهور nth لحرف معين

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

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

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

• "cell": مرجع الخلية أو سلسلة النص التي تريد إزالة النص منها؛
• "char": الفاصل المحدد الذي تريد إزالة النص بناءً عليه؛
• "N": ترتيب ظهور الحرف الذي تريد إزالة النص قبله.

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

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

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

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

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

لإزالة النص بعد الظهور nth لفاصل معين، يمكن لدوال LEFT وSUBSTITUTE وFIND مساعدتك. الصيغة العامة هي:

• "cell": مرجع الخلية أو سلسلة النص التي تريد إزالة النص منها؛
• "char": الفاصل المحدد الذي تريد إزالة النص بناءً عليه؛
• "N": ترتيب ظهور الحرف الذي تريد إزالة النص بعده.

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

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

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

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

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

كود VBA: إزالة النص قبل أو بعد الظهور nth لحرف معين

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 إزالة النص قبل أو بعد آخر ظهور لحرف معين

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

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

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

• "cell": مرجع الخلية أو سلسلة النص التي تريد إزالة النص منها؛
• "char": الفاصل المحدد الذي تريد إزالة النص بناءً عليه؛

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

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

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

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

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

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

• "cell": مرجع الخلية أو سلسلة النص التي تريد إزالة النص منها؛
• "char": الفاصل المحدد الذي تريد إزالة النص بناءً عليه؛

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

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

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

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

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

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

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

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

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

• في حقل "البحث عن"، اكتب "(*)" في مربع النص؛
• في حقل "استبدال بـ"، اترك هذا الحقل فارغًا.

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

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

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

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

• "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" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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، والصيغة العامة هي:

• "text": سلسلة النص أو مرجع الخلية التي تريد إزالة أول كلمة منها.

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

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

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

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

• "text": سلسلة النص أو مرجع الخلية التي تريد إزالة أول n كلمات منها؛
• "N": يشير إلى عدد الكلمات التي تريد إزالتها من بداية سلسلة النص.

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

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

إزالة آخر كلمة من سلسلة النص باستخدام صيغة

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

• "text": سلسلة النص أو مرجع الخلية التي تريد إزالة آخر كلمة منها؛

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

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

نصيحة: لإزالة آخر N كلمات من قائمة الخلايا، الصيغة العامة هي:

• "text": سلسلة النص أو مرجع الخلية التي تريد إزالة آخر n كلمات منها؛
• "N": يشير إلى عدد الكلمات التي تريد إزالتها من نهاية سلسلة النص.

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

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

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

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

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

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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" لفتح نافذة "Microsoft Visual Basic for Applications".

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

كود VBA: إزالة الكلمات المكررة داخل خلية

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 كلمات

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

تقليم سلسلة النص إلى N كلمات باستخدام صيغة

لتقليم سلسلة نص إلى N كلمات، يمكنك إنشاء صيغة تعتمد على دوال LEFT وFIND وSUBSTITUTE، والصيغة العامة هي:

• "text": سلسلة النص أو مرجع الخلية التي تريد تقليمها؛
• "N": عدد الكلمات التي تريد الاحتفاظ بها من الجانب الأيسر لسلسلة النص المعطاة.

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

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

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

تقليم سلسلة النص إلى N كلمات باستخدام دالة معرفة من قبل المستخدم

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

1. اضغط باستمرار على مفاتيح "Alt + F11" لفتح نافذة "Microsoft Visual Basic for Applications".

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

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

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)في خلية فارغة، ثم اسحب مقبض التعبئة للأسفل لتطبيق هذه الصيغة على خلايا أخرى، وسيتم الاحتفاظ فقط بعدد الكلمات المحدد كما هو موضح في الصورة أدناه: