كيفية استخراج القيم الفريدة من عدة أعمدة في Excel؟

لنفترض أن لديك عدة أعمدة تحتوي على قيم متعددة، حيث توجد بعض القيم المتكررة داخل نفس العمود أو عبر أعمدة مختلفة. الآن، تحتاج إلى تحديد القيم التي تكون فريدة عبر جميع الأعمدة. هل هناك أي طرق سريعة لاستخراج هذه القيم الفريدة من عدة أعمدة في Excel؟ دعنا نستعرض بعض الحلول الفعالة.

• استخراج القيم الفريدة من عدة أعمدة باستخدام الصيغ
  • صيغة المصفوفة (جميع إصدارات Excel)
  • الصيغة (Excel 365، Excel 2021 والإصدارات الأحدث)
• استخراج القيم الفريدة من عدة أعمدة باستخدام مساعد Kutools AI
• استخراج القيم الفريدة من عدة أعمدة باستخدام جدول محوري
• استخراج القيم الفريدة من عدة أعمدة باستخدام كود VBA

استخراج القيم الفريدة من عدة أعمدة باستخدام الصيغ

سيغطي هذا القسم صيغتين: واحدة باستخدام صيغة المصفوفة المناسبة لجميع إصدارات Excel، والأخرى باستخدام صيغة مصفوفة ديناميكية خصيصًا لـ Excel 365.

استخراج القيم الفريدة من عدة أعمدة باستخدام صيغة المصفوفة لجميع إصدارات Excel

بالنسبة للمستخدمين الذين لديهم أي إصدار من Excel، يمكن أن تكون صيغ المصفوفة أداة قوية لاستخراج القيم الفريدة عبر عدة أعمدة. إليك كيفية القيام بذلك:

1. بافتراض أن القيم الخاصة بك في النطاق A2:C9، يرجى إدخال الصيغة التالية في الخلية E2:

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

2. ثم اضغط على مفاتيح Shift + Ctrl + Enter معًا، وبعد ذلك اسحب مقبض التعبئة لاستخراج القيم الفريدة حتى تظهر خلايا فارغة. انظر لقطة الشاشة:

استخراج القيم الفريدة من عدة أعمدة باستخدام صيغة لـ Excel 365، Excel 2021 والإصدارات الأحدث

يدعم Excel 365، Excel 2021 والإصدارات الأحدث المصفوفات الديناميكية، مما يجعل من السهل جدًا استخراج القيم الفريدة من عدة أعمدة:

يرجى إدخال أو نسخ الصيغة التالية في خلية فارغة حيث تريد وضع النتيجة، ثم انقر على مفتاح Enter للحصول على جميع القيم الفريدة مرة واحدة. انظر لقطة الشاشة:

=UNIQUE(TOCOL(A2:C9,1))

استخراج القيم الفريدة من عدة أعمدة باستخدام مساعد Kutools AI

استغل قوة "مساعد Kutools AI" لاستخراج القيم الفريدة بسلاسة من عدة أعمدة في Excel. بنقرات قليلة، تقوم هذه الأداة الذكية بتصفية بياناتك، وتحديد وإدراج الإدخالات الفريدة عبر أي نطاق محدد. نسي تعقيد الصيغ أو كود VBA؛ اعتمد على كفاءة "مساعد Kutools AI" وحول تدفق عملك في Excel إلى تجربة أكثر إنتاجية وخالية من الأخطاء.

بعد تثبيت Kutools for Excel، يرجى النقر فوق "Kutools AI" > "AI Aide" لفتح لوحة "Kutools AI Aide":

1. اكتب طلبك في مربع الدردشة، وانقر على زر "إرسال" أو اضغط على مفتاح Enter لإرسال السؤال؛
   "استخرج القيم الفريدة من النطاق A2:C9، مع تجاهل الخلايا الفارغة، وضع النتائج بدءًا من E2:"
2. بعد التحليل، انقر على زر "تنفيذ" لتشغيل. سيقوم مساعد Kutools AI بمعالجة طلبك باستخدام الذكاء الاصطناعي وإرجاع النتائج مباشرة في الخلية المحددة في Excel.

استخراج القيم الفريدة من عدة أعمدة باستخدام الجدول المحوري

إذا كنت على دراية بالجدول المحوري، يمكنك بسهولة استخراج القيم الفريدة من عدة أعمدة باتباع الخطوات التالية:

1. في البداية، يرجى إدراج عمود فارغ جديد على يسار بياناتك، في هذا المثال، سأدرج العمود A بجانب البيانات الأصلية.

2. انقر فوق خلية واحدة في بياناتك، واضغط على مفاتيح "Alt+D"، ثم اضغط على مفتاح "P" فورًا لفتح "معالج PivotTable و PivotChart"، واختر "Multiple consolidation ranges" في خطوة المعالج الأولى، انظر لقطة الشاشة:

3. ثم انقر على زر التالي، وتحقق من خيار "Create a single page field for me" في خطوة المعالج الثانية، انظر لقطة الشاشة:

4. استمر بالنقر على زر "التالي"، انقر لتحديد نطاق البيانات الذي يتضمن العمود الجديد على اليسار، ثم انقر على زر "إضافة" لإضافة نطاق البيانات إلى مربع قائمة "All ranges"، انظر لقطة الشاشة:

5. بعد تحديد نطاق البيانات، استمر بالنقر على "التالي"، في خطوة المعالج الثالثة، اختر المكان الذي تريد وضع تقرير الجدول المحوري فيه كما تفضل.

6. أخيرًا، انقر على "إنهاء" لإكمال المعالج، وسيتم إنشاء جدول محوري في ورقة العمل الحالية. ثم قم بإلغاء تحديد جميع الحقول من قسم اختيار الحقول لإضافتها إلى التقرير، انظر لقطة الشاشة:

7. ثم تحقق من الحقل Value أو اسحب الحقل Value إلى تسمية "Rows"، الآن ستحصل على القيم الفريدة من الأعمدة المتعددة كما يلي:

استخراج القيم الفريدة من عدة أعمدة باستخدام كود VBA

مع الكود التالي لـ VBA، يمكنك أيضًا استخراج القيم الفريدة من عدة أعمدة.

1. اضغط مع الاستمرار على مفاتيح "ALT + F11"، ويفتح نافذة "Microsoft Visual Basic for Applications".

2. انقر على "إدراج" > "وحدة"، والصق الكود التالي في نافذة الوحدة.

VBA: استخراج القيم الفريدة من عدة أعمدة

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. ثم اضغط على F5 لتشغيل هذا الكود، وستظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد استخدامه. انظر لقطة الشاشة:

4. وبعد ذلك انقر على موافق، سيظهر مربع موجه آخر ليتيح لك اختيار مكان لوضع النتيجة، انظر لقطة الشاشة:

5. انقر على موافق لإغلاق هذا الحوار، وستتم عملية استخراج جميع القيم الفريدة مرة واحدة.

مقالات ذات صلة: