Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Sun Last modified

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

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: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

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

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

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

جميع إضافات Kutools. مثبت واحد

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

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