كيفية تطبيق دالة البحث العكسي أو دالة البحث في Excel؟
دالتاالبحثأوالبحث (Search)القياسيتان في Excel مصممتان للعثور على نص من اليسار إلى اليمين داخل سلسلة نصية، مما يسهّل استخراج المعلومات التي تظهر في بداية بياناتك. ومع ذلك، في بعض السيناريوهات—مثل معالجة إدخالات السجلات أو العناوين أو أي بيانات تكون فيها المعلومات الحرجة مذكورة في النهاية—قد تحتاج إلى عكس هذا الأسلوب واستخراج العنصر الأخير بناءً على فاصل معين. على سبيل المثال، قد ترغب في استخراج الكلمة الأخيرة أو الرقم أو العبارة التي تلي حرفًا معيّنًا في قائمة، كما هو موضح في لقطة الشاشة أدناه.
تطبيق دالة البحث العكسي للعثور على الكلمة من اليمين في السلسلة النصية باستخدام صيغة
استخدام VBA لأداء بحث عكسي بأي فاصل
تطبيق دالة البحث العكسي للعثور على الكلمة من اليمين في السلسلة النصية باستخدام صيغة
يقدّم Excel طريقةً عمليةً تعتمد على الصيغة لاستخراج الكلمة الأخيرة أو الجزء الأخير من سلسلة نصية باستخدام فاصل معيّن. وغالبًا ما يكون هذا الفاصل مسافةً، مما يجعل هذه الطريقة مثاليةً للعمل مع الأسماء، النصوص الوصفية، أو قوائم الكلمات.
إليك كيفية استخراج الكلمة الأخيرة من خلية (بافتراض أن الفاصل هو مسافة):
أدخل هذه الصيغة في خلية فارغة (مثل B2)، ثم اضغط على Enter للتأكيد. ولتطبيقها على صفوف متعددة، اسحب مقبض التعبئة لأسفل—وسيتم استخراج الكلمة الأخيرة من كل سلسلة نصية فورًا. انظر لقطة الشاشة:
=TRIM(RIGHT(SUBSTITUTE(TRIM(A2), " ", REPT(" ",99)),99))
ملاحظة: تعمل هذه الصيغة تحديدًا مع المسافات كفواصل. إذا كانت بياناتك تستخدم حرفًا آخر (مثل شرطة أو فاصلة أو أي رمز آخر)، فيجب تعديل الصيغة وفقًا لذلك.
=TRIM(RIGHT(SUBSTITUTE(TRIM(A2), "|", REPT(" ",99)),99))استخدام VBA لأداء بحث عكسي بأي فاصل
في السيناريوهات المتقدمة—مثل التعامل مع فواصل ذات طول متغير، أو استخراج كلمات وعناصر وفق معايير أكثر تعقيدًا (كتجاهل القيم الفارغة، أو معالجة الفواصل المتداخلة، أو التعامل مع سلاسل نصية طويلة جدًّا)—يُعد استخدام ماكرو VBA مخصصًا حلاً فعّالًا ومرنًا. إذ يمكّنك VBA من أتمتة مهام الاستخراج بأي فاصل وقواعد مخصصة، بما في ذلك البحث عن الأنماط من اليمين إلى اليسار.
1. لاستخدام VBA، ابدأ بفتح محرر VBA: انقر علىأدوات المطور > Visual Basic. ستظهر نافذةMicrosoft Visual Basic for Applications. بعد ذلك، انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود أدناه في الوحدة النمطية الجديدة:
Sub ReverseFindLastItem()
Dim rng As Range
Dim inputRange As Range
Dim delimiter As String
Dim cell As Range
Dim splitArray() As String
Dim i As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set inputRange = Application.Selection
Set inputRange = Application.InputBox("Select range to process", xTitleId, inputRange.Address, Type:=8)
delimiter = Application.InputBox("Enter your delimiter (e.g., comma, pipe, dash)", xTitleId, ",", Type:=2)
For Each cell In inputRange
If cell.Value <> "" Then
splitArray = Split(cell.Value, delimiter)
cell.Offset(0, 1).Value = splitArray(UBound(splitArray))
End If
Next cell
End Sub2. انقر على زر
لتنفيذ الكود. بعد التشغيل، سيعرض لك مربع حوار يطلب منك تحديد نطاق الخلايا المستهدفة، ثم إدخال الفاصل الخاص بك. وسيتم إخراج العنصر الأخير بعد الفاصل في كل خلية إلى الخلية الموجودة مباشرةً على يمين كل قيمة أصلية.
تذكير بالخطأ:إذا لم تُحدِّد فاصلًا صالحًا أو كانت الخلية فارغة، فسيتخطى الماكرو تلك الخلية دون إجراء أي تغييرات. لذا، تحقق دائمًا من الناتج للتأكد من أن الاستخراج تم بشكل صحيح، خاصةً مع البيانات غير المعتادة أو المعقدة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل