كيفية البحث عن قيم متعددة وإرجاعها دون تكرار في Excel؟
في بعض الأحيان ، قد ترغب في البحث عن عدة قيم متطابقة وإرجاعها في خلية واحدة في وقت واحد. ولكن ، إذا كانت هناك بعض القيم المتكررة التي تم ملؤها في الخلايا التي تم إرجاعها ، فكيف يمكنك تجاهل التكرارات والاحتفاظ بالقيم الفريدة فقط عند إرجاع جميع القيم المطابقة كما هو موضح في لقطة الشاشة التالية في Excel؟
Vlookup وإرجاع قيم مطابقة متعددة بدون تكرارات باستخدام الوظيفة المحددة بواسطة المستخدم
Vlookup وإرجاع قيم مطابقة متعددة بدون تكرارات باستخدام الوظيفة المحددة بواسطة المستخدم
يمكن أن يساعدك رمز VBA التالي في إرجاع قيم مطابقة متعددة بدون تكرارات ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود VBA: Vlookup وإرجاع قيم متطابقة فريدة متعددة:
Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim xDic As New Dictionary
Dim xRows As Long
Dim xStr As String
Dim i As Long
On Error Resume Next
xRows = LookupRange.Rows.Count
For i = 1 To xRows
If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then
xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, ""
End If
Next
xStr = ""
MultipleLookupNoRept = xStr
If xDic.Count > 0 Then
For i = 0 To xDic.Count - 1
xStr = xStr & xDic.Keys(i) & ","
Next
MultipleLookupNoRept = Left(xStr, Len(xStr) - 1)
End If
End Function
3. بعد إدخال الرمز ، انقر فوق الأدوات > مراجع حسابات في الفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، ثم في المنبثقة المراجع - VBAProject مربع الحوار ، تحقق وقت تشغيل البرمجة لـ Microsoft الخيار في المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:
4. ثم اضغط OK لإغلاق مربع الحوار ، وحفظ وإغلاق نافذة التعليمات البرمجية ، والعودة إلى ورقة العمل ، وإدخال هذه الصيغة: =MultipleLookupNoRept(E2,A2:C17,3) في خلية فارغة حيث تريد إخراج النتيجة ، اضغط على أدخل مفتاح للحصول على النتيجة الصحيحة كما تحتاج. انظر لقطة الشاشة:
ملاحظات: في الصيغة أعلاه ، E2 هي المعايير التي تريد البحث عنها ، A2: C17 هو نطاق البيانات الذي تريد استخدامه ، الرقم 3 هو رقم العمود الذي يحتوي على القيم التي تم إرجاعها.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!