كيف تربط القيم الفريدة في Excel؟

عند العمل مع جداول البيانات، من الشائع أن تواجه حالات تحتاج فيها إلى دمج (ربط) القيم الفريدة من عمودٍ ما، أو تجميع قوائم تلخّص تلك القيم الفريدة مع سجلاتها المرتبطة. إن التعامل مع القيم المكررة وعرض المعلومات الموجزة لا يُنظّف بياناتك فحسب، بل يجعل تقاريرك أكثر وضوحًا واحترافية. في Excel، تتوفر عدة طرق عملية لتحقيق هذه الأهداف—ابتداءً من استخدام الدوال المضمنة، ووصولًا إلى الاستعانة بالإضافات المتقدمة أو الكود المخصص. يقدم هذا البرنامج التعليمي استكشافًا مفصّلًا لأفضل الطرق لربط القيم الفريدة وإدراجها مع بياناتها المرتبطة، مع مراعاة اختلاف إصدارات Excel وتفضيلات المستخدمين، ليُمكّنك من اختيار الأنسب لاحتياجاتك.

ربط القيم الفريدة فقط من عمود

• باستخدام دالتي TEXTJOIN وUNIQUE
• باستخدام KUTOOLS AI Aide
• باستخدام دالة معرّفة من قبل المستخدم (UDF)
• باستخدام صيغة Excel متقدمة (حل بديل)

سرد القيم الفريدة وربط القيم المرتبطة بها

• باستخدام دالتي TEXTJOIN وUNIQUE
• باستخدام Kutools for Excel
• باستخدام كود VBA
• باستخدام جدول PivotTable في Excel مع الصيغ (حل بديل)

ربط القيم الفريدة فقط من عمود

أثناء استخدام Excel لتحليل البيانات، يُعد دمج الإدخالات المميزة فقط في عمود ما ضمن خلية واحدة مهمةً شائعةً. ويمكن أن يكون ذلك مفيدًا بشكل خاص لإنشاء تقارير ملخّصة، أو تجنّب القيم المكررة في القوائم، أو إعداد البيانات للمعالجة اللاحقة. ويعتمد اختيار الطريقة المناسبة على إصدار Excel الذي تستخدمه، وحجم مجموعة البيانات، ومدى إلمامك بالصيغ أو البرمجة. وتستعرض الطرق التالية احتياجاتٍ مختلفة، وتسلّط الضوء على الاعتبارات الخاصة بكل منها، وتوفر نصائحَ عمليةً لضمان تنفيذها بدقة وكفاءة.

الطريقة 1: استخدام دالتي TEXTJOIN وUNIQUE

للمستخدمين الذين يستخدمون Excel 365 وExcel 2021، تجعل دالتا TEXTJOIN وUNIQUE دمج القيم الفريدة من عمودٍ ما أمرًا بسيطًا ومرنًا.

يُعد هذا الحل المثالي عندما يكون عمود بياناتك مستمرًا وترغب في دمج جميع العناصر الفريدة في خلية واحدة بسرعة باستخدام مُفَصِّل من اختيارك. فهو يزيل القيم المكررة تلقائيًا، ويُسهّل مراجعتها، ويمنحك المرونة لتغيير النطاق أو المُفَصِّل متى احتجت. ومع ذلك، يجدر التنبيه إلى أن هذا الأسلوب متاح فقط في أحدث إصدارات Excel، إذ لا تدعم الإصدارات القديمة دالة UNIQUE.

في الخلية التي تريد عرض الناتج فيها، أدخل الصيغة التالية (بافتراض أن بياناتك موجودة في الخلايا A2:A18):

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

نصائح مفيدة واستكشاف الأخطاء وإصلاحها:

• تأكد من أن إصدار Excel الذي تستخدمه يدعم دالتيUNIQUE وTEXTJOIN. إذا ظهرت لك رسالة الخطأ#NAME؟، فقد يكون إصدارك قديمًا.
• يمكنك تغيير المُفَصِّل في دالة TEXTJOIN إلى أي رمز تفضله، مثل "؛ " أو «|».
• إذا أضفت بيانات جديدة أو حذفت منها في النطاق الأصلي، فستُحدّث الصيغة تلقائيًا.
• لتجنب المسافات الزائدة أو المُفَصِّلات غير المقصودة، راجع وسيط المُفَصِّل في الصيغة بدقة.

الطريقة 2: استخدام KUTOOLS AI Aide

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

بعد تثبيت Kutools لـ Excel، يمكنك الوصول إلى هذه الميزة بالنقر على«Kutools» > «مساعد الذكاء الاصطناعي»لفتح لوحة «KUTOOLS AI Aide».

1. حدد الخلايا التي تحتوي على القيم التي تريد دمجها في خلية واحدة، مع التأكد من أن تحديدك يتوافق مع البيانات المطلوبة.
2. في مربع الدردشة، اصف طلبك. على سبيل المثال، يمكنك كتابة:
   اربط القيم الفريدة بفاصلة من نطاق محدد وضع الناتج في الخلية C2
3. اضغط مفتاحEnter أو انقر زر«إرسال». بعد أن يحلّل الذكاء الاصطناعي طلبك وينهي المعالجة، اضغط “تنفيذ” ليقوم Kutools بإجراء العملية، وسيُعرض الناتج كما هو موصوف.
   

ملاحظات ونصائح:

• تأكد من استخدامك أحدث إصدار من Kutools للوصول إلى جميع ميزات الذكاء الاصطناعي.
• كن دقيقًا في أمرك النصي للحصول على أفضل النتائج؛ اذكر المُفَصِّل والخلية المستهدفة.
• KUTOOLS AI فعّال بشكل خاص مع النطاقات الكبيرة أو سير العمل الذي يحتاج إلى تكراره على مجموعات بيانات مختلفة.

الطريقة 3: استخدام دالة معرّفة من قبل المستخدم (UDF)

للمستخدمين الذين يحتاجون إلى مرونة متقدمة، أو مُفَصِّلات مخصصة، أو أداة قابلة لإعادة الاستخدام عبر مصنفات متعددة، فإن كتابة دالة معرّفة من قبل المستخدم (UDF) باستخدام VBA هي طريقة فعّالة لربط القيم الفريدة تلقائيًا. ويتوافق حل VBA هذا مع جميع إصدارات Excel ولا يخضع لتوفر الدوال الجديدة.

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

2. في نافذة VBA، انقر علىإدراج > وحدة نمطية، ثم انسخ والصق الكود التالي:

كود VBA: ربط القيم الفريدة في خلية واحدة:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3.عد إلى ورقة العمل الخاصة بك، وفي خلية فارغة (على سبيل المثال C2)، اكتب الصيغة التالية:

اضغطEnter للتأكيد. ستعرض الخلية جميع القيم الفريدة من النطاق المحدد، مفصولةً بفواصل.

• إذا كان نطاقك مختلفًا، فعدّلA2:A18 وفقًا لذلك.
• إذا كنت بحاجة إلى مُفَصِّل مختلف، استبدل","في الصيغة بالرمز الذي تفضله (مثل)";" أو|).
• إذا ظهرت لك رسالة الخطأ#NAME؟، فتأكد من تفعيل وحدات الماكرو وأن اسم الدالة المعرّفة من قبل المستخدم (UDF) مطابق تمامًا.

تلميح:لاستخدام هذه الدالة مرة أخرى في مصنفات أخرى، ما عليك سوى نقل كود VBA إلى وحداتها أيضًا.

الطريقة 4: استخدام صيغة Excel المتقدمة (حل بديل)

في البيئات التي لا تتوفر فيها دالةUNIQUE (مثل Excel 2016 أو Excel 2019)، لا يزال بإمكانك استخراج القيم الفريدة باستخدام تركيبة أكثر تعقيدًا من دوالIF وCOUNTIF وTEXTJOIN ضمن صيغ صفيفية. يعمل هذا الأسلوب، لكنه يناسب مجموعات البيانات الأصغر بسبب العبء الحسابي الذي يولّده.

1. في خلية الوجهة (مثل C2)، أدخل صيغة الصفيف التالية (بعد الإدخال، اضغط)Ctrl+Shift+Enter بدلاً من مفتاح Enter فقط):

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A18, A2:A18,0) = ROW(A2:A18) - MIN(ROW(A2:A18)) +1, A2:A18, ""))

2. إذا ظهرت أقواس معقوفة{} حول صيغتك، فهذا يعني أنك أدخلتها بشكل صحيح كصيغة صفيفية. وستُعيد الصيغة قيمًا فريدة من النطاق A2:A18، مرتبطة ومفصَّلة بفواصل.

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

سرد القيم الفريدة وربط القيم المرتبطة بها

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

الطريقة 1: استخدام دالتي TEXTJOIN وUNIQUE

عند استخدام Excel 365 أو Excel 2021، يمكنك دمج دوال UNIQUE وFILTER مع TEXTJOIN للحصول على حلٍّ قوي يعتمد كليًّا على الصيغ. ويُعدّ هذا الأسلوب مثاليًّا لتلخيص البيانات عندما تكون قيمة واحدة مرتبطة بعدة سجلات، وتريد عرض تلك السجلات المرتبطة في قائمة مفصَّلة بفاصل.

1. في عمود فارغ، أدخل الصيغة التالية لإدراج جميع القيم الفريدة من العمود A:

=UNIQUE(A2:A17)

2. الآن، لربط القيم المرتبطة من العمود B لكل إدخال فريد، في العمود التالي بجانب القيمة الفريدة (مثل E2 إذا بدأت قيمك الفريدة من D2)، أدخل هذه الصيغة واسحبها لأسفل حسب الحاجة:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

• إذا كنت بحاجة إلى مُفَصِّل مختلف، غيّر", " في دالة TEXTJOIN وفقًا لذلك.
• لتجنب الأخطاء، تأكد من أن النطاقات في صيغك متساوية الطول وأن دالة FILTER لا تُرجع أخطاء بسبب عدم وجود تطابقات.
• يُحدّث هذا الأسلوب النتائج تلقائيًا عند تغيير بياناتك، مما يجعله مناسبًا لجداول الملخص الديناميكية.

الطريقة 2: استخدام Kutools لـ Excel

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

من الممارسات الجيدة أن تقوم بعمل نسخة احتياطية من بياناتك قبل إجراء أي تغييرات، وذلك بنقل البيانات الأصلية إلى موقع آخر. ثم اتبع الخطوات التالية:

• حدد نطاق البيانات الذي تود تنظيمه.
• انتقل إلى«Kutools» > «دمج وتقسيم» > «دمج متقدم للصفوف»، كما هو موضح أدناه:
  
• في مربع الحوار الذي يظهر:
  • حدد العمود الذي يحتوي على القيم المكررة التي تريد دمجها، وعيّنه كـ«المفتاح الأساسي» في عمود «العملية».
  • اختر العمود الذي ترغب في تجميع قيمه (التي سيتم ربطها)، ثم حدد المُفَصِّل المفضل لديك من القائمة المنسدلة ضمن «العملية».
  • انقرموافقللتنفيذ.
  

النتيجة:

سيعيد Kutools تنظيم بياناتك، مستخرجًا الإدخالات الفريدة ومرتبطةً جميع القيم المرتبطة بها، استنادًا إلى إعداداتك.

• إذا ارتكبت خطأً، استخدم ميزة التراجع في Excel (Ctrl+Z) للعودة إلى الحالة السابقة.
• تعمل هذه العملية مع مجموعات بيانات قد تحتوي على مئات أو آلاف السجلات، وتدعم مجموعة متنوعة من المُفَصِّلات.

الطريقة 3: استخدام كود VBA

يوفر استخدام نص برمجي VBA تحكمًا كاملاً في طريقة استخراج البيانات وتلخيصها. هذا النهج متوافق مع جميع إصدارات Excel، وهو مناسب جدًّا لسير العمل المخصص، والأتمتة، أو عندما لا تكون دوال مثل UNIQUE أو FILTER متاحة. إذا كان هيكل بياناتك يتغير كثيرًا، فيمكن بسهولة تعديل حل VBA هذا.

لاستخدام الكود أدناه، اتبع ببساطة الخطوات التالية:

1. اضغطALT + F11 لفتح محرر VBA.

2. انتقل إلىإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذة الوحدة النمطية المفتوحة:

كود VBA: عرض القيم الفريدة وربط البيانات المرتبطة بها

Sub test()
    'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xOutputRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

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

4. انقرموافق، ثم حدد الخلية الأولى التي سيبدأ منها جدول النتائج.

5. بعد النقر علىموافق، سيولّد الكود جدولًا يحتوي فقط على القيم الفريدة وبياناتها المرتبطة المجمعة.

• إذا ظهرت لك رسالة خطأ حول عدد الأعمدة، تحقق من أن تحديدك يشمل عمودين فقط.
• إذا كنت بحاجة لتغيير المُفَصِّل من فاصلة إلى رمز آخر، عدّل الكود في السطرxArr(xDic.Item(xArr(I,1)),2) = xArr(xDic.Item(xArr(I,1)),2) & "," & xArr(I,2) وفقًا لاحتياجاتك.
• احفظ دائمًا نسخة احتياطية من ملفك قبل تشغيل نصوص VBA الجديدة.

باختصار، يوفّر Excel مجموعةً متنوعةً من الطرق لربط القيم الفريدة وتوحيد البيانات المرتبطة بها. تتميّز طرق الصيغ بأنها سريعة وديناميكية في إصدارات Excel الحديثة، في حين توفّر حلول VBA وKutools توافقًا أوسع وقدرةً أكبر على التحكّم. اختر دائمًا الطريقة الأنسب لحجم بياناتك وإصدار Excel الذي تستخدمه وأسلوب عملك المفضّل. ولا تنسَ اختبار الحل على عيّنة من بياناتك أو عمل نسخة احتياطية من ملفك، خاصةً عند تجربة عمليات تعتمد على النصوص البرمجية أو العمليات الدفعية. لمزيد من الإرشادات حول Excel والنصائح المتقدمة،استكشف مجموعة دروسنا الكاملة.

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...