كيف تُجري بحثًا عموديًّا (VLOOKUP) في إكسل وتُرجع قيمًا متعددة دون تكرار؟

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

---

إرجاع قيم مطابقة متعددة دون تكرار باستخدام دالتي TEXTJOIN وFILTER

إذا كنت تستخدم Excel 365 أو Excel 2021، يمكنك الاستفادة بسهولة من دالتي TEXTJOIN وFILTER لتحقيق ذلك. فباستخدام هاتين الدالتين معًا، يُمكنك تصفية البيانات ديناميكيًّا ودمج النتائج في خلية واحدة بسلاسة.

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

=TEXTJOIN(", ", TRUE, UNIQUE(FILTER(C2:C17, A2:A17=E2)))

---

إرجاع قيم مطابقة متعددة دون تكرار باستخدام ميزة قوية

إذا كنت ترغب في تنفيذ بحث عمودي (VLOOKUP) لإرجاع قيم مطابقة متعددة دون تكرار في Excel، لكنك وجدت أن الصيغ اليدوية أو VBA معقدة للغاية، فإن «Kutools لـ Excel» يوفّر لك حلاً سهلًا وفعالًا؛ فباستخدام ميزته «بحث واحد إلى العديد»، يمكنك استخراج جميع القيم المطابقة الفريدة ودمجها في خلية واحدة بنقرات قليلة فقط.

انقر على «Kutools» > «بحث متقدم» > «بحث واحد إلى العديد (تُرجع نتائج متعددة)» لفتح مربع حوار «بحث واحد إلى العديد»، ثم حدّد العمليات في مربع الحوار:

1. اختر «منطقة وضع القائمة» و«نطاق قيمة البحث» في مربعي النص بشكل منفصل؛
2. حدد نطاق الجدول الذي تريد استخدامه؛
3. حدّد العمود الرئيسي وعمود الإرجاع من القوائم المنسدلة «العمود الرئيسي» و«عمود الإرجاع» بشكل منفصل؛
4. وأخيرًا، انقر على زر «موافق».
   

النتيجة:

الآن، يمكنك رؤية أن جميع القيم المطابقة تم استخراجها دون أي عناصر مكررة، راجع لقطة الشاشة:

---

إرجاع قيم مطابقة متعددة دون تكرار باستخدام دالة معرّفة من قبل المستخدم (UDF)

إذا لم تكن تستخدم Excel 365 أو Excel 2021، يمكنك الاعتماد على الدالة المعرّفة من قبل المستخدم (UDF) الموضحة أدناه كبديل فعّال. وتُمكّنك هذه الطريقة من تحقيق نتائج مشابهة، مثل

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

1. اضغط مع الاستمرار على مفتاحَي «Alt» + "F11" لفتح نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».
2. انقر على «إدراج» > «وحدة برمجية (Module)»، ثم الصق الرمز التالي في نافذة الوحدة البرمجية.

   رمز VBA: بحث عمودي (VLOOKUP) وإرجاع قيم مطابقة فريدة متعددة:

     Function VlookupUnique(lookupValue As String, lookupRange As Range, resultRange As Range, delim As String) As String
       Dim cell As Range
       Dim result As String
       Dim dict As Object
       Set dict = CreateObject("Scripting.Dictionary")
       For Each cell In lookupRange
           If cell.Value = lookupValue Then
               If Not dict.exists(resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value) Then
                   dict.Add resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value, True
                   result = result & delim & resultRange.Cells(cell.Row - lookupRange.Row + 1, 1).Value
               End If
           End If
       Next cell 
       If Len(result) > 0 Then
           VlookupUnique = Mid(result, Len(delim) + 1)
       Else
           VlookupUnique = ""
       End If
   End Function

3. بعد إغلاق نافذة الرمز، عُد إلى ورقة العمل وأدخل الصيغة التالية، ثم اضغط مفتاح «Enter» للحصول على النتيجة الصحيحة التي تحتاجها. راجع لقطة الشاشة:

   =VlookupUnique(E2, A2:A17, C2:C17, ", ")

   
   

باختصار، هناك عدة طرق فعّالة لإجراء بحث عمودي (VLOOKUP) وإرجاع قيم مطابقة متعددة دون تكرار في إكسل؛ اختر الطريقة الأنسب لاحتياجاتك وإصدار إكسل الذي تستخدمه. وباستخدام هذه التقنيات، يمكنك بسهولة استرجاع قيم مطابقة متعددة دون تكرار في إكسل. إذا كنت مهتمًّا باستكشاف المزيد من نصائح وحيل إكسل،يقدّم موقعنا آلاف الدروس التعليمية.

---