كيف تجد كلمة محددة بدقة داخل نص في Excel؟
عند التعامل مع قوائم تحتوي على سلاسل نصية في Excel—مثل جمل أو كلمات مفتاحية مفصولة بمسافات—غالبًا ما تحتاج إلى تحديد ما إذا كانت كلمة معيّنة تظهر كتطابق مستقل وواضح داخل كل خلية. ومن أبرز التحديات الشائعة التمييز بين التطابقات الدقيقة والتطابقات الجزئية؛ فعلى سبيل المثال، قد ترغب في العثور على الكلمة «low» دون احتساب كلمات مثل «below» أو «lowest» كتطابقات، لأن هاتين الكلمتين تتضمّنان تسلسل «low» دون أن تكونا تطابقًا دقيقًا له. ويمكن أن يكون استخراج أو تمييز التطابقات الدقيقة للكلمات أمرًا بالغ الأهمية للتحقق من صحة البيانات، أو تنفيذ مهام البحث، أو تصفية التقارير، أو تحليل الكلمات المفتاحية في جداول بياناتك. وتستعرض هذه المقالة طرقًا فعّالة لتحقيق ذلك في Excel.

- العثور على كلمة دقيقة في نص باستخدام صيغة
- رمز VBA: العثور على تطابقات الكلمات الدقيقة واستخراجها
- طريقة أخرى مضمنة في Excel: التصفية باستخدام عمود مساعد لعرض التطابقات الدقيقة
العثور على كلمة دقيقة في نص باستخدام صيغة
تُعد إحدى أكثر الطرق مباشرةً للتحقق مما إذا كانت الخلية تحتوي على تطابق كامل لكلمة معينة هي استخدام صيغة. ويُعد هذا النهج مثاليًا عندما تريد فحص نطاق البيانات بسرعة لتحديد ما إذا كانت الكلمة المستهدفة تظهر كوحدة مستقلة، وليس كجزء من كلمة أخرى.
اختر خلية فارغة لعرض النتيجة فيها (على سبيل المثال، B2 إذا كانت بياناتك تبدأ من الخلية A2)، وأدخل الصيغة التالية في شريط الصيغة:
=ISNUMBER(SEARCH(" low ", " "&A2&" ")) تعمل هذه الصيغة بإضافة مسافات في بداية ونهاية كلٍّ من كلمة البحث وقيمة الخلية، مما يضمن أن تُرجع النتيجة إيجابية فقط عند وجود الكلمة الدقيقة محاطة بمسافات. وبهذا تتجنب التطابقات الجزئية: فعلى سبيل المثال، سيتطابق « low » مع « low » في الجملة «It is low »، لكنه لن يتطابق مع «below» في «It is below ». وتعيد الصيغة TRUE إذا وُجدت الكلمة الدقيقة، وFALSE إذا لم تُوجد.
بعد إدخال الصيغة، اضغط Enter للحصول على النتيجة الخاصة بالصف الأول.

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

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

افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
رمز VBA: العثور على تطابقات الكلمات الدقيقة واستخراجها
للمستخدمين الذين يحتاجون مرونةً أكبر—مثل البحث عن كلمات مستهدفة متعددة دفعة واحدة، أو إجراء عمليات بحث حساسة لحالة الأحرف، أو دمج الحل ضمن سير عمل آلي أوسع—يوفّر VBA طريقةً قابلة للتخصيص لفحص الخلايا واستخراج التطابقات الدقيقة للكلمات برمجيًّا. ويُعد هذا الأسلوب مثاليًا عندما تطلب تحكمًا دقيقًا أو معالجة مجموعات بيانات كبيرة تتجاوز قدرة الصيغ القياسية على التعامل معها بسلاسة.
1. لتطبيق هذا الأسلوب، انقر علىأدوات المطور > Visual Basic، مما يفتح محرر Microsoft Visual Basic for Applications. بعد ذلك، اخترإدراج > وحدة برمجية (Module)، والصق الكود التالي في الوحدة البرمجية الجديدة:
Sub FindExactWord_Match()
Dim WorkRng As Range
Dim cell As Range
Dim targetWord As String
Dim caseSensitive As Integer
Dim resultCol As Range
Dim i As Integer
Dim pattern As String
Dim str As String
xTitleId = "KutoolsforExcel"
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select the range to search:", xTitleId, WorkRng.Address, Type:=8)
targetWord = Application.InputBox("Enter the exact word to search for:", xTitleId, "", Type:=2)
caseSensitive = MsgBox("Should the search be case sensitive? (Yes = Case sensitive, No = Not case sensitive)", vbYesNo + vbQuestion, xTitleId)
Set resultCol = Application.InputBox("Select the first cell for results (same number of rows as data):", xTitleId, "", Type:=8)
i = 0
For Each cell In WorkRng
str = CStr(cell.Value)
pattern = "\b" & targetWord & "\b"
If caseSensitive = vbYes Then
If Not str Like "*" & targetWord & "*" Then
resultCol.Offset(i, 0).Value = False
Else
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = pattern
.IgnoreCase = False
resultCol.Offset(i, 0).Value = .test(str)
End With
End If
Else
If Not LCase(str) Like "*" & LCase(targetWord) & "*" Then
resultCol.Offset(i, 0).Value = False
Else
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = pattern
.IgnoreCase = True
resultCol.Offset(i, 0).Value = .test(str)
End With
End If
End If
i = i + 1
Next
End Sub 2. اضغط علىF5 أو انقر على زر
التشغيل لتنفيذ الكود. سيتم مطالبتك بتحديد النطاق المراد معالجته، وإدخال الكلمة المستهدفة، واتخاذ قرار بشأن الحساسية لحالة الأحرف، واختيار مكان إخراج النتائج. بعد ذلك، سيقوم الكود بمعالجة كل خلية في النطاق، ويضع TRUE إذا وجد الكلمة الدقيقة كمصطلح مستقل (مع مراعاة حدود الكلمات)، أو FALSE إذا لم يجدها.
المزايا:يوفّر هذا الحل تخصيصًا قويًّا وأتمتةً دفعيةً، ويُمكّنك من التعامل مع كلمات إدخال متعددة (مع بعض التعديل)، والبحث الحساس لحالة الأحرف، ومعالجة النصوص المتقدمة حسب الحاجة.
القيود:يجب تفعيل ماكروهات VBA، ويصلح هذا الحل لمستخدمي Excel المتوسطين المعتادين على تشغيل البرامج النصية. كما أن النتائج تصبح ثابتة بعد التشغيل—لذا إذا تغيّرت بياناتك، فعليك إعادة تشغيل الماكرو لتحديث النتائج.
طريقة أخرى مضمنة في Excel: التصفية باستخدام عمود مساعد لعرض التطابقات الدقيقة
عندما لا يقتصر هدفك على التحقق فحسب، بل يمتد ليشمل عرض أو التعامل فقط مع الصفوف التي تحتوي على الكلمة الدقيقة التي تبحث عنها، فإن استخدام ميزة التصفية المضمنة في Excel مع عمود مساعد يُعد حلاً عمليًا وسهل الإدارة. وتبرز فائدته بشكل خاص عند تصفية القوائم الكبيرة، مما يتيح لك التركيز على البيانات ذات الصلة أو نسخها أو تعديلها، مع إخفاء جميع الصفوف غير المتطابقة.
السيناريو المناسب:تضييق القوائم الكبيرة بكفاءة لعرض الصفوف ذات الأهمية فقط، دون المساس بالبيانات الأصلية. وهي مثالية للمراجعات البصرية السريعة أو المعالجة الإضافية.
- أضف عمودًا مساعدًا بجانب بياناتك (على سبيل المثال، العمود B إذا كانت بياناتك في العمود A)، وأدخل الصيغة التالية في الخلية الأولى من العمود المساعد (بافتراض أن الكلمة المراد العثور عليها هي “low” وأن بياناتك تبدأ من A2):
=ISNUMBER(SEARCH(" low ", " "&A2&" ")) - اضغط Enter لتأكيد الصيغة، ثم استخدم مقبض التعبئة (Fill Handle) لنسخها لأسفل وتغطية جميع الصفوف ذات الصلة.
- بعد تحديد أي خلية في العمود المساعد الجديد، انتقل إلىبياناتفي شريط أدوات Excel الشريطي، ثم انقر علىتصفية. ستظهر سهام تصفية صغيرة أعلى رأس كل عمود.
- انقر على سهم التصفية في العمود المساعد، ثم اختر «TRUE» فقط لعرض الصفوف التي تحتوي على الكلمة الدقيقة، أو «FALSE» لاستبعاد الصفوف التي لا تحتوي عليها.
ستظل الصفوف التي تتطابق مع القيمة «TRUE» مرئية، بينما يتم إخفاء جميع الصفوف الأخرى. بعد ذلك، يمكنك نسخ هذه الصفوف المُصفاة أو تعديلها أو تحليلها حسب احتياجاتك.
المزايا:تعتمد هذه الطريقة بالكامل على الصيغ والميزات—ولا تتطلب ماكروهات—وتحافظ على نتائجك ديناميكية. فبمجرد أن تتغيّر بياناتك الأساسية، تتجدّد الصيغ والتصفية تلقائيًّا دون الحاجة إلى إعادة تطبيق أي شيء يدويًّا.
باختصار، يوفّر Excel حلولًا متعددة لتحديد التطابقات الدقيقة للكلمات داخل النصوص، اعتمادًا على احتياجاتك: فللحصول على حلٍ سريع، يمكنك استخدام الصيغ؛ ولأتمتة متقدمة، يُعدّ VBA الخيار الأمثل؛ أما إذا كنت بحاجة إلى تصفية تفاعلية للعرض أو لإنشاء قائمة مختصرة، فستفي التصفية بالغرض. وللمعالجة الدفعية أو المتطلبات المتخصصة، تُعد البرمجة المخصصة الحل المثالي، بينما تكفي الصيغ والتصفية في العمليات اليومية الديناميكية لتلبية معظم الاحتياجات القياسية بكفاءة.
مقالات ذات صلة:
- كيف يمكن البحث عن جميع الخلايا الفارغة في Excel واستبدالها برقم أو نص معين؟
- كيف يمكن استبدال الفواصل بأسطر جديدة (Alt + Enter) داخل خلايا Excel؟
- كيف تُنشئ كود ماكرو لأتمتة عملية البحث والاستبدال النصي في Excel؟
- كيف يمكن البحث عن أسماء ألسنة أوراق العمل في Excel واستبدالها؟
- كيف تجد تقاطع الأعمدة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل