Skip to main content

كيفية دمج قائمتين بدون تكرارات في Excel؟

Author: Sun Last Modified: 2025-05-30

توجد قائمتان في ورقة العمل الخاصة بك، وبعض القيم في القوائم مكررة، وتريد دمج هاتين القائمتين مع ترك القيم الفريدة فقط، كما هو موضح في لقطات الشاشة أدناه، فكيف يمكنك القيام بذلك؟

combine two lists without duplicates sample data arrow combine two lists without duplicates result

دمج القوائم بدون تكرارات باستخدام إزالة التكرارات في Excel

دمج القوائم بدون تكرارات باستخدام VBA

دمج القوائم بدون تكرارات باستخدام Kutools لـ Excel


arrow blue right bubble دمج القوائم بدون تكرارات باستخدام إزالة التكرارات في Excel

لدمج قائمتين وإزالة القيم المكررة في Excel، يمكنك القيام بما يلي:

1. انسخ إحدى القائمتين والصقها أسفل القائمة الأخرى، انظر إلى لقطة الشاشة:

combine two lists without duplicates sample data arrow combine two lists into one single column

2. حدد القائمة وانقر على البيانات > إزالة التكرارات، انظر إلى لقطة الشاشة:

turn on remove duplicates feature

3. في مربع حوار إزالة التكرارات، إذا لم يكن العمود الخاص بك يحتوي على رؤوس، قم بإلغاء تحديد البيانات تحتوي على رؤوس، ثم انقر فوق موافق. انظر إلى لقطة الشاشة:

set option in the remove duplicates dialog

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

remove duplicates message box

يمكنك مشاهدة النتيجة:


remove duplicates result


arrow blue right bubble دمج القوائم بدون تكرارات باستخدام VBA

في Excel، يمكن أن يساعدك VBA أيضًا في دمج القائمتين بدون تكرارات.

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

2. انقر على إدراج > وحدة، وقم بنسخ VBA في الوحدة.

VBA: دمج القوائم بدون تكرارات

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
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)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

 

3. انقر على زر تشغيل أو اضغط على F5 لتشغيل VBA.

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

combine two list without duplicates with vba code 1

5. انقر على موافق، ثم يظهر مربع حوار آخر لتحديد خلية لإخراج النتيجة المدمجة. انظر إلى لقطة الشاشة:

combine two list without duplicates with vba code 2

6. انقر على موافق. ستتمكن من رؤية أن القوائم قد تم دمجها.

combine two list without duplicates with vba code result

نصيحة: لا يمكن للنتيجة الاحتفاظ بتنسيق الخلايا بعد تشغيل VBA أعلاه.


arrow blue right bubble دمج القوائم بدون تكرارات باستخدام Kutools لـ Excel

مع تثبيت Kutools لـ Excel، يمكنك استخدام وظيفة تحديد المكررات والخلايا الفريدة لحل مشكلة دمج قائمتين بدون تكرارات.

Kutools لـ Excel يتضمن أكثر من 300 أداة مفيدة لـ Excel. جربها مجانًا دون قيود لمدة 30 يومًا. احصل عليها الآن

1. انسخ إحدى القائمتين والصقها أسفل القائمة الأخرى، حدد القائمة الجديدة، ثم انقر على Kutools > تحديد > تحديد المكررات والخلايا الفريدة. انظر إلى لقطة الشاشة:

2. في مربع الحوار تحديد المكررات والخلايا الفريدة، حدد جميع القيم الفريدة (بما في ذلك التكرارات الأولى)، انقر على موافق.

combine two list without duplicates with kutools 1

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

combine two list without duplicates with kutools 2

4. وقم بنسخ القيم الفريدة المحددة والصقها في عمود جديد. انظر إلى لقطة الشاشة:

combine two list without duplicates with kutools result

انقر هنا لمعرفة المزيد حول تحديد المكررات والخلايا الفريدة.


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

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

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

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

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