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 أحرف من الخلايا، يمكنك إنشاء دالة معرَّفة من قِبل المستخدم (UDF) لإنجاز هذه المهمة بسلاسة. يُرجى اتباع الخطوات التالية:

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

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)

باستخدام دالة مُعرَّفة من قِبل المستخدم

يمكنك أيضًا الاستفادة من دالة معرَّفة من قِبل المستخدم (UDF) لإزالة آخر N أحرف من قائمة الخلايا. اتبع الخطوات التالية:

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

2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

كود 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 أحرف أو آخر 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 لإنشاء صيغة تُنفّذ هذه المهمة بسلاسة.

• «السلسلة»: سلسلة النص التي تريد حذف الأحرف المحددة منها؛
• «عدد_الأحرف_من_اليسار»: عدد الأحرف المراد إزالتها من اليسار؛
• «عدد_الأحرف_من_اليمين»: عدد الأحرف التي تُزال من اليمين.

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

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

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

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

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

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

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

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

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

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

• «خلية_السلسلة»: الخلية التي تحتوي على سلسلة النص التي تريد إزالة الأحرف الخاصة منها؛
• «الحرف1، الحرف2، الحرف3»: الأحرف غير المرغوب فيها التي ترغب في إزالتها.

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

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

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

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

إزالة أحرف خاصة متعددة من سلاسل النصوص باستخدام دالة مُعرَّفة من قِبل المستخدم

تعمل دالات SUBSTITUTE المتداخلة المذكورة أعلاه بكفاءة عندما يكون عدد الأحرف الخاصة التي يلزم إزالتها محدودًا. لكن إذا كنت بحاجة إلى إزالة عشرات الأحرف، فقد تصبح الصيغة مفرطة الطول ويصعب التعامل معها. في هذه الحالة، تُعد الدالة المعرّفة من قبل المستخدم (User Defined Function) التالية حلاً سريعًا وسهلًا لإتمام هذه المهمة.

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

2. انقر فوق «إدراج» > «وحدة نمطية (Module)»، ثم الصق الكود التالي في نافذة الوحدة النمطية.

كود 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

إذا كنت تستخدم Excel 2019 أو 2021 أو Microsoft 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.

إزالة الأرقام من سلاسل النصوص باستخدام دالة مُعرَّفة من قِبل المستخدم

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

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

2. انقر فوق «إدراج» > «وحدة نمطية (Module)»، ثم الصق الكود التالي في نافذة الوحدة النمطية.

كود 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.

إزالة الأحرف غير الرقمية من سلاسل النصوص باستخدام صيغة في 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، فسيتم فقدان هذا الصفر.

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

قد تبدو الصيغة أعلاه معقّدة بعض الشيء لمعظمنا. لكن إن كنت تستخدم Excel 2019 أو 2021 أو Microsoft 365، فثمة صيغة أنيقة جاهزة لمساعدتك!

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

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

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

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

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

بالطبع، يمكنك أيضًا إنشاء دالة معرّفة من قبل المستخدم (User Defined Function) خاصة بك بصيغة أبسط، يُرجى اتباع ما يلي:

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

2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

كود 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 فصل تقسيم حسب النص والرقم من خلية واحدة إلى عمودين

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

فصل تقسيم حسب النص والرقم من خلية واحدة إلى عمودين باستخدام دالة معرّفة من قبل المستخدم (User Defined Function)

باستخدام دالة معرّفة من قبل المستخدم (User Defined Function) التالية، يمكنك استخراج تقسيم حسب النص والرقم دفعة واحدة، يُرجى اتباع الخطوات أدناه:

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

2. انقر فوق «إدراج» > «وحدة نمطية (Module)»، ثم الصق الكود التالي في نافذة الوحدة النمطية.

كود 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. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

كود 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. بعد ذلك، انقر فوق زر «موافق» أو «تطبيق» للحصول على النتيجة التي تحتاجها.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

• «الخلية»: مرجع الخلية أو سلسلة النص التي تريد إزالة نص منها؛
• «الفاصل»: الفاصل المحدد الذي تريد إزالة النص بناءً عليه؛
• «N»: تكرار الحرف السابق يؤدي إلى إزالة النص.

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

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

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

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

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

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

• «الخلية»: مرجع الخلية أو سلسلة النص التي تريد إزالة نص منها؛
• «الفاصل»: الفاصل المحدد الذي تريد إزالة النص بناءً عليه؛
• «N»: تكرار الحرف التالي يؤدي إلى إزالة النص.

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

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

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

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

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

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

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

2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

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

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(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

3. بعد ذلك، انقر على زر «استبدال الكل» وسيتم حذف جميع الأحرف الموجودة داخل القوسين — بما في ذلك القوسان أنفسهما — من الخلايا المحددة دفعةً واحدة. راجع لقطة الشاشة:

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

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

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

• النص: السلسلة النصية أو مرجع الخلية التي تريد حذف الأحرف المحددة منها.

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

=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. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

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

• النص: السلسلة النصية أو مرجع الخلية التي ترغب في إزالة الكلمة الأولى منها.

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

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

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

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

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

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

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

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

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

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

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

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

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

• «النص»: سلسلة النص أو مرجع الخلية التي تريد إزالة آخر 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. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

رمز 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. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

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

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

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

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

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

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

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

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

2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).

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

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

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...