كيف تستخرج كل التطابقات الجزئية في إكسيل؟
إذا كنت ترغب في استخراج جميع التطابقات التي تحتوي على كلمة رئيسية معينة من عمود وإدراجها في عمود أو في خلية مفصولة بمحدد كما هو موضح أدناه ، كيف يمكنك حل هذه المهمة في Excel؟
استخراج كافة التطابقات الجزئية عموديًا باستخدام الصيغة
قم باستخراج جميع التطابقات الجزئية في خلية واحدة بوظيفة محددة بواسطة المستخدم
استخراج كافة التطابقات الجزئية عموديًا باستخدام الصيغة
لاستخراج جميع التطابقات عموديًا في عمود استنادًا إلى نص جزئي ، يمكن أن تقدم لك صيغة الصفيف التالية ميزة:
Step1: يرجى نسخ الصيغة أدناه ولصقها في خلية فارغة حيث تريد وضع النتيجة:
ملاحظات: في الصيغة أعلاه ، A2: A14 هل الخلايا قد تحتوي على الكلمة الرئيسية التي تريد إرجاع التطابقات منها ، C2 يحتوي على الكلمة الرئيسية ، E1 هي الخلية الموجودة أعلى الصيغة.
Step2: ثم اضغط كترل + شيفت + إنتر في نفس الوقت للحصول على النتيجة الأولى ، ثم اسحب مقبض التعبئة لأسفل للحصول على جميع التطابقات حتى تظهر قيمة الخطأ. أخيرًا ، احذف قيم الخطأ ، انظر الصورة:
قم باستخراج جميع التطابقات الجزئية في خلية واحدة بوظيفة محددة بواسطة المستخدم
إذا كنت بحاجة إلى استخراج جميع التطابقات في خلية واحدة ومفصولة بمحدد معين ، فربما لا توجد صيغة يمكنها حلها. هنا ، تحتاج إلى تطبيق الوظيفة المحددة من قبل المستخدم أدناه:
Step1: صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
Step2: في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ الكود التالي إلى الوحدة النمطية.
كود فبا: استخراج جميع التطابقات الجزئية في خلية واحدة
Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function
Step3: بعد لصق الرمز ، يرجى الرجوع إلى ورقة العمل حيث تريد تحديد النتيجة ، ثم أدخل هذه الصيغة: =ExtractPartMatch(C2,$A$2:$A$14)، ثم اضغط على أدخل مفتاح للحصول على النتيجة كما هو موضح أدناه لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
